ник: Гоблин
модуль присутствует и в нем функция
Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or Datasheet view.
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If
End Function
Написана один раз. В других модулях нигде больше нет. Я эти модули и формы просто с примера импортировал в свою базу. (Осталось вспомнить как внедрил) Там где-то что-то поменять надо что ли в цифрах. но это ладно. Работало одно время. И вдруг стоп. Хотел удалить все и снова импортировать, но как привязать к своей кнопке и форме - пока затык. Осталось только найти причину косяка. Чего-то не получается.