アクセス2010のVBAについて教えて下さい

質問

前回<http://okwave.jp/qa/q8035701.html>で2つのエラーを解消していただきましたが、新たにDoCmd.SendObject acSendNoObject, , acFormatTXT, RS!Email, "aaa@aaa.mil", , Subject, Body, TrueSetで「2498指定した式はいずれかの引数とデータ型が対応してません」というエラーで止まってしまいました。
「RS!Email」を消すと、メールを生成するので、ここが違っているのは分かりましたが、どう直せばいいのかがわかりません。。「Email」のデータ型はテキスト型になっています。、ハイパーリンク型も試しましたがダメでした。さらに記述を「RS![Email]」としてみましたが、それもダメでした。。

どうぞよろしくお願いします。

Private Sub EmailReminder_Click()
Dim DB As DAO.Database
Dim QD As DAO.QueryDef
Dim RS As DAO.Recordset
Dim Subject As String
Dim Body As String

Subject = "Audit Corrective Actions"
Body = "Good Morning Sir/Ma'am," & vbCrLf _
& "This is an auto generated email." & vbCrLf _
& "Please advise when these actions are completed. If you have any questions please feel free to contact our office. Thank you for your help and cooperation in this matter. Have a nice day." & vbCrLf & vbCrLf _
& "Corrective Actions:" & vbCrLf _

Set DB = CurrentDb()
Set QD = DB.QueryDefs("ReminderQuery")
With QD
.Parameters("[Forms]![fmReport]![ReportID]") = Forms!fmReport!ReportID
Set RS = .OpenRecordset
Do Until RS.EOF
Body = Body & "------------------------------------------------------" & vbCrLf _
& "[Due Date: " & RS!DueDate & "] [Agency: " & RS!Agency & "] [Report: " & RS!ReportNumber & "]" & vbCrLf _
& "Corrective Action: " & RS!CorrectiveAction & vbCrLf _
& "Recommendation: " & RS!Recommendation & vbCrLf
RS.MoveNext
Loop
DoCmd.SendObject acSendNoObject, , acFormatTXT, RS!Email, "aaa@aaa.mil", , Subject, Body, True
.Close
End With
End Sub

回答No.1

m3_maki · ベストアンサー

前回の質問で

> 生成するメールは1通、その本文に複数データを列記という形です。

ということですが、

取得した複数のレコードで、 「Email」 フィールドには
すべて同じ値が入っている、ということでよろしいでしょうか？

一応、これを前提としての回答です。

> Do Until RS.EOF
　　・　・　・
> Loop

で EOF までループしていますから
ループを抜けたところでは
もう レコード がありません。

そこで RS!Email を参照しようとしてエラーになっています。

止まっているところで、イミディエイトウィンドウで

? RS!Email

でエラー内容を確認してみてください。

で、解決策ですが、いろいろ考えられますね。

レコードセットをオープンしたときに
EOF なら メールを作成せずに抜ける。

EOF でないなら EMail の値を保存し、ループ終了後、保存した値で送信。

　　Dim strEmail As String

　　strEMail = Nz(RS!Email, "")

　　DoCmd.SendObject acSendNoObject, , acFormatTXT, strEMail, "aaa@aaa.mil", , Subject, Body, True

というところでしょうか。

お礼

できましたぁ！仰るとおりの記述追加で思い通り動くようになりました。
このAccess DBに一番やらせたいことができました。ここができなければ、DB作成自体をやめようと思っていました。メインの機能ができたので、もう少し作りこみます。分からない所が出てきたら、またよろしくお願いします。