Mehmet hocam, valla güzel kod yazmışsın...
Ellerine sağlık...

If CurrentProject.AllForms("AFormu").IsLoaded = True Then
...
End If
If CurrentProject.AllForms("BFormu").IsLoaded = True Then
...
End If
Private Function isFormLoaded(strFormName As String)
isFormLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, strFormName)
End Function
Const FRM_A = "FORM1"
Const FRM_B = "FORM2"
Dim strArgs As String
If isFormLoaded(FRM_A) Then
'Form1 açık ise yapılacak işlem.
End If
If isFormLoaded(FRM_B) Then
'Form2 açık ise yapılacak işlem.
End If