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