Очистить/заполнить поля формы в цикле |
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Скачать пример в accdb: TwoRecordsetsExample.accdb |