Dim rsEmployees As DAO.Recordset
Dim stringName As String
Dim strSQL As String
Dim strSQL1 As String
strSQL = "SELECT Employee_Name..., etc FROM Employee_id "
Set rsEmployees = CurrentDb.OpenRecordset(strSQL)
rsEmployees.MoveFirst
Do While Not rsEmployees.EOF
stringName = rsEmployees!Employee_Name
strSQL1 = "What ever your query is"
Do.Cmd.RunSQL (strSQL)
rsEmployes.MoveNext
Loop
End Sub
Set 1: Создайте запрос, который выбирает все записи из таблицы EMPLOYEE_ID
Набор 2: В то время как петли через записи вышеуказанного запроса
Set 3: Использование rsEmployess ColumnName доступ каждое поле для записи
Комплект 4: Используйте приведенную выше строку в запросе