ник: Lukas
Дядя Федор,
а нафига там цикл
...
DoCmd.OpenForm "япример2", , , , , acDialog
While Not flag
DoEvents
Wend
...
|
если форма открывается в диалоге?
А здесь нет проверки на "открытость" формы:
Private Sub btnok_Click()
Forms("япример1").NEWX = (Поле1)
Forms("япример1").NEWY = (Поле2)
Forms("япример1").NEWZ = (Поле3)
Forms("япример1").NEWFLAG = (True)
DoCmd.Close acForm, Me.Name
End Sub
|
И при самостоятельном открытии-закрытии правомерно ругается.
Ссылки на форму через коллекцию Forms лучше не пользовать,
потому как в случае создания нестандартного экземпляра класса формы будет ошибка при общении.
При многократном обращении к мемберам объекта, следует создавать ссылку на объект, для ускорения работы кода.
И здесь: Forms("япример1").NEW... = (Поле...) будет ошибка, если введенные данные не смогут преобразоваться к Long(в данном примере) или данные не будут введены вообще.