AccessTr.neTMicrosoft AccessAccess Dersleri

Access Penceresini Gizleme

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
01/02/2016, 18:25

bigdaddy_isi

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 Sub

Access Menü'sünü GÖSTER:
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 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 Sub

Emeğiniz için Tekrar Teşekkür eder Saygılar sunarım.
01/02/2016, 18:38

atoz112

(01/02/2016, 14:57)atoz112 yazdı: ayrıca,formun KALDIRILDIĞINDA olay yordamına da




Kod:
Application.Quit

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.

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.
01/02/2016, 22:07

bigdaddy_isi

Final çok güzel özetlenmiş, Teşekkürler.

Saygılar
02/02/2016, 03:05

mehmetdemiral

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.
02/02/2016, 12:13

atoz112

sayın demiral,

konunun 130. ve 132.mesajlarında da bahsi yapıldığı üzere;
Kod:
ShowWindow(ByVal hWindow, ByVal nCmdShow)

ilgili kodlarda yer alan ShowWindow fonksiyonunun,açılış için kullanılacak olan formun kod sayfasındaki ilk başlangıç satırında DECLARE (Tanıtılması) sağlanmaktadır.yapılan işlemin ana kısmı bu aslında.

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.
31/08/2016, 21:30

larion

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.

 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29