|
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
|