Kod:
Private Sub Komut0_Click()
Dim TumFormlar As Object
For Each TumFormlar In Application.CurrentProject.AllForms
If Me.Form.Name <> TumFormlar.Name Then 'Aktif olan formu kapatmasın.
DoCmd.Close acForm, TumFormlar.Name, acSaveNo
End If
Next
End Sub