aşağıdaki kod açık olan form dışındaki tüm formları kapatır. belki işe yarar.

    Dim AnaMenu As Object

    For Each AnaMenu In Application.CurrentProject.AllForms

    If AnaMenu.name <> Me.name Then

         DoCmd.Close acForm, AnaMenu.name, acSaveYes

    End If

    Next AnaMenu