Очистить/заполнить поля формы в цикле

Recordset.MoveFirst

Do While Not Recordset.EOF

Me.FIELD_NAME = Null

...

Recordset.MoveNext

Loop

Recordset.MoveFirst

Exit Sub

Err:

Err.Raise 1, CErr

'представляет ошибку программы / exception в виде строки

Public Function CErr() As String

CErr = "Error: " & CStr(Err.Number) & "; " & Err.Source & "; " & Err.Description

'например Error: 3421; DAO.Field; Ошибка преобразования типа данных.

End Function

Скачать пример в zip: TwoRecordsetsExample.zip