为查询中的每一行运行一个子函数

时间:2011-03-23 20:19:23

标签: ms-access vba

在我的Access数据库中,有一堆想要为每个返回的行运行特定函数的查询。

我的功能实际上是通过Lotus Notes发送邮件。

如何在每个返回的行上运行我的函数?如何选择要作为参数发送到我的函数的字段数据?

2 个答案:

答案 0 :(得分:1)

您需要知道如何使用Lotus Notes发送电子邮件(另一个问题?)。

您的查询:

Select SomeName
       , SendEmailThroughLotusNotes([EmailAddress]
              , [TheseData], [ThoseData]) as EmailSent
From MyTableOfThingsPromptingAnEmail

'在模块中

Public Function SendEmailThroughLotusNotes(EmailAddress as String, FieldData1 As String, FieldData2 As String) AS Boolean

 'Put lotus notes code here

End Sub

答案 1 :(得分:0)

看一下使用ADO运行查询并遍历每条记录。请参阅此问题以获取一些示例:Trouble connecting and querying in ADO