AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Veritabanını nasıl gizlerim;?

1 2
27/04/2009, 11:23

Puletin

access görünümünü gizlemek içinde
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çıl ve kalıcı özeliklerini de evet e ayarlayın yeni bir modül oluşturun içinede
Kod:
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:
Kod:
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

Ayrıca Harun Hocanın verdiği linkte de ayrıntılı anlatımı vardı

https://accesstr.net/konu-access-pencere...zleme.html
27/04/2009, 11:46

shopen66

Hocam dediğin gibi yaptım ama olmadı sorun bende :S size zahmet dosya form oluşturup gönderebilirmisiniz ordan yapıyım bari.
27/04/2009, 11:49

Puletin

Sayın shoppen66
size verilen Linklerde bir dolu örnek var zaten ..
Bence uygularken kaçırdığınız noktalar var Lütfen tekrardan başlayarak adım adım uygulayınız ..Göreceksiniz ki olacaktır...
27/04/2009, 11:53

shopen66

sağolun hocam biraz daha çalışıyım
27/04/2009, 17:32

shopen66

Sorunu buldum Puletin hocam sağol.Üstelik şifreleme girişide yaptım forma süper bişey oldu.Bu siteyi yöneten arkadaşların emeğine sağlık iyi ki açmışsınız.Başarılar...
27/04/2009, 19:48

Puletin

Sorununuzu çözdüğünüze sevindim
Kendi kendinize halletmeniz de öğrenmeniz açısından daha iyi oldu...
1 2