+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: Access Penceresini Gizleme (/konu-access-penceresini-gizleme.html)
Cvp: Access Penceresini Gizleme - bigdaddy_isi - 01/02/2016
Tekrar ayrıntılı açıklamanız için Teşekkür ederim.
Maksat, bildiklerini paylaşmaktır elbette.
Sizler gibi yardımcı olanlar olduğu müddetce ne mutlu bu gibi Forum'ları kullananlara.
Toparlayalım o zaman:
Access Menü'sünü GİZLE:
Kod:
Const SW_HIDE = 0 'Pencere (Menü) Gizle
Const SW_NORMAL = 1 'Pencere (Menü) Göster
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Button1_Click()
Dim hWindow, nResult, nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE '<<< Pencereyi Gizleyen
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
End SubKod:
Const SW_HIDE = 0 'Pencere (Menü) Gizle
Const SW_NORMAL = 1 'Pencere (Menü) Göster
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Button2_Click()
Dim hWindow, nResult, nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_NORMAL '<<< Pencereyi GÖSTEREN
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
End SubCvp: Access Penceresini Gizleme - atoz112 - 01/02/2016
(01/02/2016, 14:57)atoz112 yazdı: ayrıca,formun KALDIRILDIĞINDA olay yordamına da
kod ifadesini yazmalısınız ki,form kapatıldığında ya da uygulamadan çıkıldığında arka planda açık kalmasın ve .LBD dosyası oluşmasın.Kod:Application.Quit
sayın bigdaddy_isi,
bu hususu da gerekli olduğu için özetlemeye dahil etmekte fayda var düşüncesi ile açıklamanıza ilave etmeyi uygun görmekteyim.neden de zaten açıklamasında yer almaktadır.
son olarak;
konuyu inceleyecek ve yazılan son kodlamaları denemede bulunmayı isteyebilecekler için hem GİZLEME hem de GÖSTERME işlevi için bir buton içeriğine dahil edilmiş olarak yazmış olduğunuzu (elbette ki denemelerde bulunup görsel hallerine vakıf olunması için yazdınız),buton yerine uygulamalarındaki ilk açılış formunun YÜKLENDİĞİNDE ya da tercihe göre AÇILDIĞINDA olay yordamına aktarmaları daha yerinde olacaktır kanısındayım.
bilginize...iyi çalışmalar,saygılar.
Cvp: Access Penceresini Gizleme - bigdaddy_isi - 01/02/2016
Final çok güzel özetlenmiş, Teşekkürler.
Saygılar
Cvp: Access Penceresini Gizleme - mehmetdemiral - 02/02/2016
Modulsüz çalışması güzel. O kadar incelemeden yazmıştım. Modül veya api kullanmak zorunda oluruz diye düşünmüştüm. Sanırım burada yerleşik bir işlevden yararlanıyor. Faydalı olduğuna emin olabilirsiniz. Emeğinize ve paylaşım kültürünüze sağlık.
Cvp: Access Penceresini Gizleme - atoz112 - 02/02/2016
sayın demiral,
konunun 130. ve 132.mesajlarında da bahsi yapıldığı üzere;
Kod:
ShowWindow(ByVal hWindow, ByVal nCmdShow)akabinde ikinci olarak da;
formun ÖZELLİKLER-DİĞER sekmesindeki AÇILAN ve KALICI satırlarını EVET olarak işaretlenmesi.bu ayarlama,raporlar için de geçerli elbette.
ayrıca,bunun dışında;BAŞLANGIÇ ayarlar kısmından da herhangi bir checkbox işaretleme iptali veya başka seçenek düzenlemeye de gerek yok.bu ayarları olduğu gibi de bırakabilirsiniz.bu hususta da bir rahatlık söz konusu.
EK'te;bahsi geçen bu hususlara yönelik olarak hazırlanmış basit bir örnek uygulama mevcuttur.inceleyebilirsiniz.
bu vesile ile,sayın bigdaddy_isi'ye;farklılık kazandırdıkları için de teşekkürler.
bilginize...iyi çalışmalar,saygılar.
Cvp: Access Penceresini Gizleme - larion - 31/08/2016
Merhaba ,
Bu konu hakkında araştırma yapıyorum. Çalıştığım işletmeye yaptığım programda kullanıcıların yetkilerine göre sol pencere kapansın. Örnek olarak ıf komutu kullanarak kullanıcı yetkisi user ise DoCmd.RunCommand acCmdWindowHide konutunu çalıştırmaya çalıştığımda hata mesajı alıyorum. Nasıl yapabilirim? Şimdiden önerileriniz için teşekkür ederim.
![[Resim: LQAjPV.jpg]](http://i.hizliresim.com/LQAjPV.jpg)