Запустите подфункцию для каждой строки в запросе

Question

В моей базе данных Access есть несколько запросов, которые хотят запустить определенную функцию для каждой возвращаемой строки.

На самом деле моя функция - отправлять почту через Lotus Notes.

Как мне запустить мою функцию в каждой возвращаемой строке? Как выбрать данные поля для отправки в качестве параметров моей функции?

Answer 1

Вам нужно знать, как отправлять электронную почту с помощью Lotus Notes (еще вопрос?) В VBA.

Ваш запрос:

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

Answer 2

Взгляните на использование ADO для выполнения запроса и просмотра каждой записи. См. Этот вопрос для некоторых примеров: Неисправность подключения и запросов в ADO