(20/08/2009, 14:33)Seruz yazdı: O an açık olan form haricinde kapatılmasını istiyorsak bunu kullanabilirsiniz.

Kod:

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

Teşekkür ederim arkadaşlar çok yardımcı oldunuz