Skip to main content

AccessTr.neT M.


Access Açılışta Wındows Penceresiz Sadece Form Gözükmesi

Access Açılışta Wındows Penceresiz Sadece Form Gözükmesi

#1
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;


Visual Basic Code
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


Visual Basic Code
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.


Visual Basic Code
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
30
31
32
33
34
35
36
37
38
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.

Cevapla
#2
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.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........
#3
tşk.orda daha güzel anlatılmış.

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da