Pa collection Forms contiene le form aperte...
Prova questa...
Chiamalo dalla form login cosi:
Call CloseAllForms (Me.name)
Public Function CloseAllForms(Optional strForm As String = vbNullString) As Boolean
'*****************************************************************
'Name : CloseAllForms()
'Purpose : Close all Forms eccept Form.Name passed
'Date : 23 gennaio 2002
'Called by :
'Calls :
'Inputs : Form che non deve essere chiusa
'Output : True if is OK
'*****************************************************************
On Error GoTo Err_Close
Dim n, x As Integer
n = Forms.count
For x = n - 1 To 0 Step -1
If Forms(x).Name <> strForm Then DoCmd.Close acForm, Forms(x).Name
Next
CloseAllForms = True
Exit_here:
Exit Function
Err_Close:
CloseAllForms = False
Resume Exit_here
End Function