Skip to main content

AccessTr.neT


Gezinti Bölmesinde Nesneye Tıklandığında Nesne Açılrken Gezinti Bölmesi Kapanabilirmi

Oğuz Türkyılmaz
Oğuz Türkyılmaz
2
1188

Gezinti Bölmesinde Nesneye Tıklandığında Nesne Açılrken Gezinti Bölmesi Kapanabilirmi

Çözüldü #1
Merhabalar
 Gezinti bölmesinde herhangi bir nesneyi ( tablo form rapor vs )  tıkladığımızda nesne açılırken aynı anda gezinti bölmesinin gizlenmesi mümkünmüdür. Özellikle Formlar üzerinde çalışırken formlar büyük tasarlandığından gezinti bölmesinden açtığımda formlarımın 1/5'i ekran dışına taşıyor. Gezinti bölmesini kapattığımda bu ekran dışına taşan kısım yüzünden form kısa kaldığından formun genişliğini herseferinde ayarlamak zorunda kalıyorum. Tamamen kapatmanın yolunu öğrendim ama tasarım aşamasında bu mümkün değil tabiki. Teşekkürler.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
Merhaba,

Formunuza resim yazısı "Gizle" olan "btn_gizle" adında buton ekleyip, bu butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.


If Me.btn_gizle.Caption = "Gizle" Then

   Call DoCmd.NavigateTo("acNavigationCategoryObjectType")    
   Call DoCmd.RunCommand(acCmdWindowHide)
   Me.btn_gizle.Caption = "Göster"

ElseIf Me.btn_gizle.Caption = "Göster" Then

   Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
   Call DoCmd.SelectObject(acTable, , True)
   Me.btn_gizle.Caption = "Gizle"

End If


Ayrıca, uygulamanıza bu tür işlevlerin eklenme zaruriyeti doğabilir, ancak sizin önceliğiniz kod olayını çözmek olmalıdır.
Cevapla
#3
(29/10/2018, 03:42)ozanakkaya yazdı: Merhaba,

Formunuza resim yazısı "Gizle" olan "btn_gizle" adında buton ekleyip, bu butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.


If Me.btn_gizle.Caption = "Gizle" Then

   Call DoCmd.NavigateTo("acNavigationCategoryObjectType")    
   Call DoCmd.RunCommand(acCmdWindowHide)
   Me.btn_gizle.Caption = "Göster"

ElseIf Me.btn_gizle.Caption = "Göster" Then

   Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
   Call DoCmd.SelectObject(acTable, , True)
   Me.btn_gizle.Caption = "Gizle"

End If


Ayrıca, uygulamanıza bu tür işlevlerin eklenme zaruriyeti doğabilir, ancak sizin önceliğiniz kod olayını çözmek olmalıdır.

Ozen Bey, önceliğimi zaten şu anda oraya verdim. Algoritma yı öğreniyorum, bir yandan Sn.Alpeki99'un Access Derslerini uygulamayı birebir yaparak takip diyorum. Bir yandan da C# Console derslerini takip ediyorum, Kendi projemle ilgili yapacak çok bir şey kalmadı bir hesaplama bölümü var, kodlamayı öğrenip yazmaya çalışacağım. Zaten orda bolca fırça yerim diye düşünüyorumImg-grin Çok teşekkür ederim.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task