AccessTr.neT

Tam Versiyon: Access Açılışta Wındows Penceresiz Sadece Form Gözükmesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Arkadaşlar bu sitedeki paylaşılan örneklerden derleyip uygulayabildiğimi aşağıya ekledim benim gibi kod yazmasından anlamayan arkadaşlara belki faydalı olur.

Accessde sadece form gözükmesi wındow penceresi gözükmemesi için:

Accessi açtığında açılışta açılacak bir form belirle Dosya/Seçenekler/Geçerli Veritabanı/ Burada Form Görüntüleden
bir form seç.

formların tamamını özelliklerinden ;

1-Formların Açılan ve Kalıcı bölümlerini evet yap,

2-Formların Açıldığında bölümülerine olay yardımına;


Private Sub Form_Open(Cancel As Integer)
Call fAccessWindow("Hide", False, False)
End Sub


kodunu yaz.
  

Programdan çıkmak için çıkış butonu ekle tıklandığında bölümüne olay yardımından


Private Sub PROGRAMDAN_ÇIK_Click()
If Me.Dirty Then Me.Dirty = False
DoCmd.Quit

End Sub


kodunu yaz.

Daha sonra aşağıdaki kodları kopyala Bir Modül açarak yapıştır.

artık hazır kapatıp açtığınızda tek form gözükecektir.


Option Compare Database

Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function


Bütün hocalara paylaşımda bulunan arkadaşlara teşekkürler.
Merhaba, konunuz Access dersleri bölümüne taşınmıştır. Aynı mevzu ile ilgili Access Penceresini Gizleme konusunda ayrıntılı anlatım mevcuttur.
tşk.orda daha güzel anlatılmış.