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