Dim i As Integer
Dim strForm as String
   
   For i = 1 To CurrentProject.AllForms.Count
       If CurrentProject.AllForms(i - 1).IsLoaded Then
           strForm = CurrentProject.AllForms(i - 1).Name
           If strForm <> "criteria form" And strForm <> "main menu" Then
               DoCmd.Close acForm, strForm, acSaveNo
           End If
       End If
   Next i

John -

Here's a routine you can call to close all forms except a list you specify
as arguments when you call it:

'----- start of code -----
Sub CloseAllFormsExcept(ParamArray ExceptForm())

   ' Copyright (c) 2008, DataGnostics LLC
   ' License is granted to use in your application, so long as
   ' the copyright notice remains unchanged.

   Dim lngFrm As Long
   Dim intX As Integer
   Dim blnPreserve As Boolean

   ' Close all open forms except those in the list.

   For lngFrm = Forms.Count - 1 To 0 Step -1
       With Forms(lngFrm)
           blnPreserve = False
           For intX = LBound(ExceptForm) To UBound(ExceptForm)
               If .Name = ExceptForm(intX) Then
                   blnPreserve = True
                   Exit For
               End If
           Next intX
           If blnPreserve Then
               ' Spare this form
           Else
               DoCmd.Close acForm, .Name
           End If
       End With
   Next lngFrm

End Sub

'----- end of code -----