merhaba,
öncelikle bir fonksiyon oluşturuyoruz:
sonra anahtarı açılan formun etkinleştirildiğinde olay yordamına Call... yapıştırıyoruz o kadar..
burda ki olay şu; diyelimki siz bir form açtınız bu etkin olan formun dışındaki tüm formlar kapanıyor. isterseniz kapanmasını istemediğiniz formu Anamenüadi yazdığım yere yazabilirsiniz. yani ana münüyü buraya yazarak kapanmasını engelliyorsunuz.
kodlama bölümünde her formun boş yerine veya şaşırmamak açısından Option Compare Database 'nin altına aşağıdaki fonksiyonu aynen yapıştırıyoruz.
Function TumFormlarKapansin()
Dim AnaMenu As Object
Dim strName As String
For Each AnaMenu In Application.CurrentProject.AllForms
If AnaMenu.Name <> "Anamenüadı" And AnaMenu.Name <> Me.Name Then 'ana menüyü buraya yazıyoruz ki o formu kapatmasın.
'sadece aktif açık olan menü dışındakileri kapatsın.
DoCmd.Close acForm, AnaMenu.Name, acSaveYes
End If
Next AnaMenu
End Function
Daha sonra her formun Etkinleştirildiğinde Olay Yordamına aşağıdaki kodu yapıştırıyoruz:
Call TumFormlarKapansin
Saygılar,
Adı Soyadı:
Cü.... Ay....
Yaşı:
50
Konum:
İstanbul
Ofis Versiyonu:
Ofis 2016 64 Bit
Son Oturumu:
06/04/2022,03:24
Cevapla