Determine if Form is Open

Function IsLoaded(strFrmName As String) As Boolean

    '  Determines if a form is loaded.
    
    Const conFormDesign = 0
    Dim intX As Integer
    
    IsLoaded = False
    For intX = 0 To Forms.Count - 1

    If Forms(intX).FormName = strFrmName Then
        If Forms(intX).CurrentView <> conFormDesign Then
            IsLoaded = True
            Exit Function  ' Quit function once form has been found.
        End If
    End If
    Next intX

End Function

'Place this one in a public module
Public Function IsFormOpen(strFormName As String) As Boolean
    IsFormOpen = (SysCmd(acSysCmdGetObjectState, acForm, strFormName) = acObjStateOpen)
End Function
        
'Use this in your form
Private Sub Command1_Click()
    
    If IsFormOpen("fA") = True Then
    MsgBox "Form A is open"
        Else
        MsgBox "Form A is not open"
    End If
    
End Sub