Private Sub ВашаКнопка_Click()
If currentproject.allforms("имяформы").isloaded then
msgbox "открыта"                                              'ваши директивы (что Вы хотите-в ТЗ после "то" стоят точки)
else
msgbox "закрыта"                                              'ваши директивы (что Вы хотите-в ТЗ после "иначе" стоят точки)
end if

Private Sub кнопка4_Click() ' нажатие кнопки на форме YYY
If IsLoaded("xxx") Then
DoCmd.Close
DoCmd.SelectObject acForm, "XXX"
Else
DoCmd.Close
DoCmd.OpenForm "zzz"
End If
End Sub

Function IsLoaded(MyFormName As String)
        ' проверка, загружена ли форма в любом режиме кроме конструктора
        Const FORM_DESIGN = 0
    Dim i As Integer
        IsLoaded = False
    For i = 0 To Forms.Count - 1
        If Forms(i).FormName = MyFormName Then
            If Forms(i).CurrentView <> FORM_DESIGN Then
                IsLoaded = True
                Exit Function  ' форма найдена-выход
            End If
        End If
    Next
 End Function