AccessTr.neT

Teşekkürler Seruz, güzel kod..

(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

Sayın mehmetdemiral,
Sayın Seruz;

Bu güzel katkılarınız için teşekkürler.

Sağolun varolun...

(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

hep bi yerde lazım olmuştur bu hali ile çok kullanışlı bir kod örneği.

Katkı paylaşımlarınız için emeği geçenlere teşekkürler. Saygılar...