Merhaba arkadaşlar daha önce böyle bir kod aramıştım zor bulmuştum;
Bugün yine ihtiyaç duydum ve yabancı sitede buldum.
Belki birinin işine yarayabilir diye paylaşayım dedim..!
Bu kodu açık kalmasını istediğiniz formun açıldığında bölümüne ekleyerek;
Açık kalacak formun isminide formunuzun ismiyle değiştirdiğiniz zaman o formunuz açıldığında diğer açık olan bütün formlar kapanır.
Bundaki amacımız, çok form kullandığımız programlarımızda hem sade bir kullanış hemde bazen çift veri çektiğim sorgu ve tabloların kitlenmediği olaylarında hataları azaltmak.
Örneğin veri girdiğimiz tabloya ait form açık iken o tablodan rapor için veri çekerken tablo kilitlenemedi hatası vermektedir. Tabi bu da canımızı sıkan en büyük sorunlardan bir tanesi için bu da bir çözüm yolu...
Umarım birilerinin işine yarar. Saygılarımla
Bugün yine ihtiyaç duydum ve yabancı sitede buldum.
Belki birinin işine yarayabilir diye paylaşayım dedim..!
Visual Basic
- Dim obj As Object
- Dim strName As String
- For Each obj In Application.CurrentProject.AllForms
- If obj.Name <> "ACIKKALACAKFORM" Then
- DoCmd.Close acForm, obj.Name, acSaveYes
- End If
- Next obj
Bu kodu açık kalmasını istediğiniz formun açıldığında bölümüne ekleyerek;
Visual Basic
- If obj.Name <> "ACIKKALACAKFORM" Then
Açık kalacak formun isminide formunuzun ismiyle değiştirdiğiniz zaman o formunuz açıldığında diğer açık olan bütün formlar kapanır.
Bundaki amacımız, çok form kullandığımız programlarımızda hem sade bir kullanış hemde bazen çift veri çektiğim sorgu ve tabloların kitlenmediği olaylarında hataları azaltmak.
Örneğin veri girdiğimiz tabloya ait form açık iken o tablodan rapor için veri çekerken tablo kilitlenemedi hatası vermektedir. Tabi bu da canımızı sıkan en büyük sorunlardan bir tanesi için bu da bir çözüm yolu...
Umarım birilerinin işine yarar. Saygılarımla
