Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas Почти тоже самое, но проще:
Public Function IsOpenForm(strFormName As String, Optional frm As Form) As Boolean On Error Resume Next Set frm = Forms(strFormName) IsOpenForm = frm.CurrentView End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.