ник: час
Да, Lukas - спасибо за примеры.
Особенно понравилось вот это:
With frm.Module
lngReturn = .CreateEventProc("Click", ctrl.Name)
.InsertLines lngReturn + 1, "On Error GoTo Err_btnClose_Click"
.InsertLines lngReturn + 2, vbTab & "DoCmd.Close acForm, Me.Name"
.InsertLines lngReturn + 3, "Exit_btnClose_Click:"
.InsertLines lngReturn + 4, vbTab & "Exit Sub"
.InsertLines lngReturn + 5, "Err_btnClose_Click:"
.InsertLines lngReturn + 6, vbTab & "MsgBox Err.Description, vbExclamation, Me.Caption"
.InsertLines lngReturn + 7, vbTab & "Resume Exit_btnClose_Click"
End With