butonlara parola ekleme

[erkankozlu]

Merhaba arkadaşlar,form üzerinde hazırladığımız butonlara parola ile giriş ekleyebiliyormuyuz?

tüm excel ve access canavarlarına selamlar...

 

[SIDDIK]

Aşağıdaki kod bilgilerini butonun olay sekmesinde tıkladığında hanesine atabilirsin

Private Sub Komut10_Click()
On Error GoTo Err_Komut10_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim c As String
c = InputBox("Lütfen şifreyi giriniz", "Kullanıcı Bilgileri")
If c = "82774001" Then
stDocName = "Personel Seçenekleri"
DoCmd.OpenForm stDocName, , , stLinkCriteria
ElseIf c <> "82774001" Then
MsgBox "Hatalı şifre...Giriş Yetkiniz Yoktur", vbOKOnly + vbCritical, "Kullanıcı Bilgileri"
Me.Undo
End If
Exit_Komut10_Click:
Exit Sub

Err_Komut10_Click:
MsgBox err.Description
Resume Exit_Komut10_Click

End Sub

 

[afil42]

teşekkürler

 

[erkankozlu]

teşekkrüler,