[kapetang]

Καλησπέρα

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

Private Sub cmdCloseForms_Click()
Dim j As Long
    For j = 0 To Forms.Count - 1
        DoCmd.Close acForm, Forms(0).Name
    Next
End Sub

Private Sub cmdCloseFormsNotCurrent_Click()
Dim j As Long
    For j = 0 To Forms.Count - 2
        If Me.Name <> Forms(0).Name Then
            DoCmd.Close acForm, Forms(0).Name
        Else
            DoCmd.Close acForm, Forms(1).Name
        End If
    Next
End Sub

Η πρώτη διαδικασία κλείνει όλες τις φόρμες, ακόμα και αυτή που περιέχει τον κώδικα.

Η δεύτερη κλείνει όλες τις άλλες εκτός από την τρέχουσα.

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