ник: ГлазастыйМышь
ну как минимум объявить переменную As Form
Пример, допустим есть форма "frmDeclarant" в ней процедура q
Public Function prom1()
Dim frm As Form
On Error GoTo Err_Debug
Set frm = New Form_frmDeclarant
Call frm.q("sdfgg")
Exit_Here:
Set frm = Nothing
Exit Function
Err_Debug:
Resume Exit_Here
End Function