Функция проверки наличия открытой формы ...
'******************** Code Start ************************ Function fIsLoaded(ByVal strFormName As String) As Boolean 'функция возращает True, если форма загружена или False - если нет If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function '******************** Code End ************************ Просмотров: 3951
Ваш коментарий будет первым | | |