[kapetang]

Καλημέρα

Γιώργο, δοκίμασε τον παρακάτω κώδικα:

Public Sub CloseAllForms()
    Dim j As Long
    For j = Forms.Count - 1 To 0 Step -1
        If Not (Forms(j).Name = "frmLogon" Or _
            Forms(j).Name = "frmStartupScreen") Then
            DoCmd.Close acForm, Forms(j).Name, acSaveYes
        End If
    Next
End Sub

Φιλικά/Γιώργος