Private Sub Кнопка75_Click()
Dim mdl As Module
DoCmd.OpenForm "форма2", acDesign, , , , acHidden
Set mdl = Modules("form_форма2")
mdl.AddFromString "Private Sub Поле0_Click()" & Chr(13) & Chr(10) & "docmd.close" & Chr(13) & Chr(10) & "end sub"
DoCmd.Close acForm, "форма2", acSaveYes
End Sub
|