Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
24/01/2019 13:19
Konu Sahibi
furens
Yorumlar
2
Okunma
424
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
furens

furens

Aktif Üye
614
Ad.... ÖL....
 46
 12
 88
 22/11/2008
5
 Isparta
 
 Ofis 2007
 Dün,11:33
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.



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.101
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:39
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. 

...........
furens

furens

Aktif Üye
614
Ad.... ÖL....
 46
 12
 88
 22/11/2008
5
 Isparta
 
 Ofis 2007
 Dün,11:33
tşk.orda daha güzel anlatılmış.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme atoz112 6 3.778 23/01/2019, 14:35
Son Yorum: mc1453
  Access 2010'da oluşturulan veya değiştirilen bir veritabanını açmak için Access 2007'yi kullanm aobendes 1 5.797 05/12/2011, 14:20
Son Yorum: alpeki99
Thumbs Up Açılışta gelen MsAccess resmi Yandemir 2 2.090 28/08/2011, 13:54
Son Yorum: DUAYEN
  Access 2003'ten Access 2010'a Geçiş Bilgileri Tablosu alpeki99 4 3.946 14/09/2010, 15:08
Son Yorum: kadirdursun
Star Access penceresini gizleme / Access görünümünden kurtarma filiz_lab 1 5.204 04/09/2010, 00:38
Son Yorum: alpeki99

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.