如何使用访问查询到VBA代码中的字段值

Question

嗨，我正在尝试制作一个Access宏，它将邮件发送给人们。

该邮件存在于查询“ Query1”的字段“ MailField”中。 因此，我尝试遍历所有行，并使用“ MailField”发送邮件，并将第i行的相应值作为“消息”：

示例：邮件至“ mail2@123.com”，并显示消息“第2行中的字段a的值”。

Function makroabc()
On Error GoTo makroabc_Err

For i = "first Raw" To "mumber of data in the query"

    If (Eval("Hour(Now()) Between 11 And 16")) Then
        DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly
        DoCmd.SendObject , "", "", "Mail from row i", "", "", "Subject", "Message", False, ""
    End If

Next i

makroabc_Exit:
    Exit Function

makroabc_Err:
    MsgBox Error$
    Resume makroabc_Exit

End Function

我可以输入什么而不是“来自第i行的邮件”？

我希望你能帮助我。

谢谢。

Answer 1

要在VBA中使用查询中的值，请不要使用DoCmd.OpenQuery 。 而是打开一个记录集 。

例如，发送给查询中的所有收件人，遍历记录集：

Dim db as DAO.Database
Dim rs as DAO.Recordset
Dim subj as String

Set db = CurrentDB
Set rs = db.OpenRecordset("Query1")

Do While Not rs.EOF
    subj = "Hello " & rs![field b]
    DoCmd.SendObject acSendNoObject, , , rs!Mailfield, , , subj, "Message", False
    rs.MoveNext
Loop
rs.Close

请注意，尽管Outlook可能会显示安全警告。