+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Access Görünümünden kurtarma (/konu-access-gorunumunden-kurtarma.html)
Access Görünümünden kurtarma - Puletin - 02/11/2008
access görünümünü gizlemek için
yeni bir makro oluşturun eylem e kod çalıştır secin işlev kutusuna da fAccessWindow ("Hide", False, False) yazın
programın ilk açılan formun özeliklerinde açıldıgında yerine de makro adını yazın tüm from ve raporlarının açılan ve kalıcı özeliklerini de evet e ayarlayın yeni bir modül oluşturun içinede
Private Declare 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 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
Ayrıca Raporlarınızın özelliklerden "Açıldığında" olay yordamına aşağıdaki kodu yazın. Bunun sebebi rapor açılıyor ama minimize oluyor bunu engellemek için yazıyoruz.
Kod:
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Cvp: Access Görünümünden kurtarma - C*e*l*o*y*c*e - 02/11/2008
bu güzel bilgiler için teşekkürler hocam
Cvp: Access Görünümünden kurtarma - nihatkr - 02/11/2008
Paylaşım İçin teşekkürler
Cvp: Access Görünümünden kurtarma - bayFARUK - 02/11/2008
kodları örneklerle desteklersek daha çok kişiye faydalı olacaktır. Yeni başlayanlar daha iyi anlaşılır olacaktır.
teşekkürler
Cvp: Access Görünümünden kurtarma - kahraman701 - 08/11/2008
MRB HOCAM, KOD ÇOK GÜZEL ANCAK FORM ÜZERİNDEKİ BUTONLAR ÇALIŞMIYOR. BUNUDA HALLEDERSEK HARİKA OLACAK. SAYGILARRRRRRR
Cvp: Access Görünümünden kurtarma - benremix - 05/07/2009
Sn Puletin Hocam elinize sağlık,teşekkürler...Bu konuyla ilgili örnek varmı? Saygılar...