Rivers,

I have a function that returns a boolean value if a form is loaded.  It
looks something like:

Public Function Isloaded(FormName As String) As Boolean

   Dim intLoop As Integer

   Isloaded = False

   If Forms.Count = 0 Then
       Exit Function
   Else
       For intLoop = 0 To Forms.Count - 1

           If Forms.Item(intLoop).Name = FormName Then
               Isloaded = True
               Exit Function
           End If
       Next
   End If

End Function

To use this in your code, you would do something like:

If isloaded("Extra") then
   docmd.close acform, "Extra"
Else
   docmd.close acform, "Main"
Endif

HTH
Dale

What version of Access?
Access 2000 or newer?

If Not CurrentProject.AllForms("FormA").IsLoaded Then
   Do something here
Else
    Do something else
End If

In Access 97, copy this function (from the Northwind.mdb sample
database) into a module:

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or
Datasheet view.

   Const conObjStateClosed = 0
   Const conDesignView = 0

   If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
       If Forms(strFormName).CurrentView <> conDesignView Then
           IsLoaded = True
       End If
   End If
End Function

Then code some event:
If Not IsLoaded("FormA") Then
   Do this
Else
   Do that
End if