AccessTr.neT
Bir Form açıldığında Diğer Tüm Formların Kapanması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bir Form açıldığında Diğer Tüm Formların Kapanması (/konu-bir-form-acildiginda-diger-tum-formlarin-kapanmasi.html)

Sayfalar: 1 2


Cvp: Bir Form açıldığında Diğer Tüm Formların Kapanması - mehmetdemiral - 20/08/2009

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


Cvp: Bir Form açıldığında Diğer Tüm Formların Kapanması - qhuan - 20/08/2009

(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


Cvp: Bir Form açıldığında Diğer Tüm Formların Kapanması - assenucler - 20/08/2009

Sayın mehmetdemiral,
Sayın Seruz;

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

Sağolun varolun...


Cvp: Bir Form açıldığında Diğer Tüm Formların Kapanması - gocebe - 21/08/2009

(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. Lol


Cvp: Bir Form açıldığında Diğer Tüm Formların Kapanması - benremix - 25/08/2009

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