[Resolvido]Ajuda - Verificar se um determinado formulário esta aberto!!!

If CurrentProject.AllForms("SeuFormulario").IsLoaded = True Then
    MsgBox "Está aberto", vbInformation
    Else
    MsgBox "Está fechado", vbCritical
End If

Public Function VerificarFrmAberto()
On Error Resume Next
   Dim obj As AccessObject, dbs As Object
   Set dbs = Application.CurrentProject
   
    For Each obj In dbs.AllForms
     If obj.IsLoaded = True Then
        MsgBox "Deve fechar o formulário " & obj.Name & " antes de prosseguir!", vbCritical, "Fecho obrigatório"
     End If
   Next obj
End Function

Public Function VerificarFrmAberto()
Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentProject
    
    For Each obj In dbs.AllForms

     If obj.Name = "Form1" Or obj.Name = "Form2" Or obj.Name = "Form3" Then
        If obj.IsLoaded = True Then
        MsgBox "Deve fechar o formulário " & obj.Name & " antes de prosseguir!", vbCritical, "Fecho obrigatório"
     End If
    End If
   Next obj
End Function