Selamlar Sadece Paylaşmak istedim.
Programınızı açtığınızda sadece Form görünsün ve Access'e ait hiçbirşey görünmesin istiyorsanız
Otomatik olarak açtığınız Form'un
Vba bölümüne aşağıdaki KOD'u girmeniz kafidir.
Kod:
Private Sub Form_Open(Cancel As Integer)
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
End Sub
NOT: Sorunsuz çalışıyor
Saygılar
Merhaba
Bu kodların çalışması için modüle gerek olduğunu ve ayrıca tüm form ve raporların Açılan ve Kalıcı olarak işaretlenmesi gerektiğini yazmamışsınız.
Merhaba Mehmet bey, cevabınız için Teşekkür ederim.
En az Kalıcı bir Form gerekiyor, bu doğru, ama Modul'e gerek yok.
Kod Modulsüz çalışıyor. Başlangıç Form'un
Vba bölümüne yazmanız kàfi.
Saygılar.
sayın bigdaddy_isi,
evet bahsettiğiniz gibi bu kod için bir modül yazmaya gerek yok,bu şekilde de kullanılabilir.
fakat eklediğiniz kod bu hali ile yetersiz kalmakta ve
Kod:
ShowWindow(ByVal hWindow, ByVal nCmdShow)
kod satırı üzerinde hata verecektir,bu işlevin sağlanması söz konusu olmayacağından.
eğer ilgili açılış formunun hem ÖZELLİKLER-DİĞER sekmesindeki AÇILAN ve KALICI satırlarını EVET olarak işaretlerseniz ve hem de Option Explicit satırının bir altına aşağıdaki kod satırını da ilave ederseniz,o zaman sorunsuz kullanabilirsiniz.
Kod:
Const SW_HIDE = 0 ' Fenster ausblenden
Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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.bilginize...iyi çalışmalar,saygılar.
Sayın atoz112, kapsamlı ek bilgileriniz için Teşekkür ederim.
Yazdıklarınıza katılıyorum. Ben olaya hep kullanıcı gözü ile bakıyorum.
Yani kullanıcı için gerekli her önlem alınması, ve Programın sıfır hatalı çalışması için büyük gayret gösteririm.
Alıntı:Const SW_HIDE = 0 ' Fenster ausblenden (Pencereyi gizle)
Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden (Pencereyi göster)
"Const SW_NORMAL = 1 " Programlayan için geçerlidir. gerektiğinde tekrar açıp Programda değişiklik yapmak içindir.
Lakin Programın finalinde "Const SW_HIDE = 0" olarak kalabilir. Çünkü kullanıcı, adı üzerinde sadece kullanacaktır ve
Access Penceresine ihtiyacı olmayacaktır.
Benim örnek olarak
#127. mesajda vermiş olduğum Kod ile ilavesiz sorunsuz çalışıyor ve Option Explicit elbette mevcut.
Bu konuda meseleyi sizde bende biliyoruz. Maksat diğer okuyucuların faydalanması ve öğrenmesidir.
Başarılarınızın devamını dilerim
Saygılarımla
sayın bigdaddy_isi,
bir yanlış yorumlama durumu söz konusu olduğu gerekçesi ile şu hususu belirtmekte fayda var kanısındayım.
konunun 130.mesajında yer alan ilave kod dahil etme açıklamasının amacı şu:
127.mesajda yazdığınız kod eğer sadece o hali ile geçerli olarak kullanılırsa,130.mesajda da bahsi geçtiği üzere ilgili satırda hata verecektir.
Kod:
Const SW_HIDE = 0 ' Fenster ausblenden
Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
kodlarını yazmadığınız takdirde.çünkü;ShowWindow adlı fonksiyonun declare edilmesi (tanıtılması) gerekmektedir ki,fonksiyon işlerlik kazanabilsin.
Alıntı:...örnek olarak #127. mesajda vermiş olduğum Kod ile ilavesiz sorunsuz çalışıyor...
bu kod ilave edilmeden direkt sadece sizin eklediğiniz kodlar olarak ilgili olay yordamına dahil edildiğinde sorunsuz çalışması söz konusu olmayacaktır.hata verir.
kodlardaki ifadelerin hazırlayan veya son kullanıcı için bir anlam içermesi şart değil.
size dair bir zaruretten dolayı da yapılmamıştır bu açıklama.sadece bir düzeltme ihtiyacı gereksinimi olduğu düşüncesi ile belirtilmiştir.paylaşım için de teşekkürler.bilginize...iyi çalışmalar,saygılar.