IsLoad function : Form Events « Forms « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Forms
  3. Form Events

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








Related examples in the same category

1.Writing the Form_Error Event Procedure
2.Assign form Recordset in its open action
3.CancelEvent: DoCmd.CancelEvent()
4.Form Before Update action
5.The Undo event executes before changes to a row are undone.
6.Key down event
7.If the data in the form dirty
8.Form_Filter
9.You can not only check how the filter was invoked, but you can also intercept the process when the filter is applied.
10.The Load Event Assigning a Recordset Object to the Form
11.Code for the Move Previous Button
12.Code for the Move Next Button
13.Code for the Add Button
14.Deleting a Record
15.Code for the Find Button