Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

IsLoad function

Sub m()     If Not IsLoaded("frmClients") Then         msgBox "You must load this form from the Projects form", _             vbCritical, "Warning"     End If End Sub Public Function IsLoaded(strFormName As String) As Boolean     Const FORMOPEN = -1     Const FORMCLOSED = 0     If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> FORMCLOSED Then         IsLoaded = True     Else         IsLoaded = False     End If End Function