Skip to main content

AccessTr.neT


+1 artan değerlerden kurtulma sabit bir şifre tanımlama

+1 artan değerlerden kurtulma sabit bir şifre tanımlama

Çözüldü #1
Option Explicit
'-----------
' Simple Password Protection Routine
' Developed by: Candace L. Tripp
' [email protected]
'-----------

Private Sub Form_Load()

gOkToClose = False
' number of tries
gintPasswordFlag = 1

End Sub



Burada SIMON'la alttaki butona geçiş yapıyor. 1 ve arttırdığımız rakamlarla forma giriş yapıyor. Ben bu 1 ve artan rakamlarıda sabit bir şifre yapmak istiyorum.Kodun içinde nereyi değiştirmeliyim.

Saygılar,
MG



Private Sub Form_Unload(Cancel As Integer)

If Not gOkToClose Then
Cancel = True
End If

End Sub

Private Sub PASSWORD_AfterUpdate()
On Error GoTo err_PASSWORD_AfterUpdate

If Me![PASSWORD] = "SIMON" Then
gOkToClose = True
Forms!frmForm!cmdSomething.Enabled = True
Forms!frmForm!cmdSomething.SetFocus
DoCmd.Close A_FORM, "frmPassword"
Else
' give them three shots at getting it right
Select Case gintPasswordFlag
Case 1 To 2
DoCmd.Beep
MsgBox "Incorrect password", 1, "Password"
gintPasswordFlag = gintPasswordFlag + 1
Case Else
DoCmd.Beep
DoCmd.OpenForm "frmSplashScreen"
End Select
End If

exit_PASSWORD_AfterUpdate:
Exit Sub

err_PASSWORD_AfterUpdate:
MsgBox "Error " & Err & ": " & Error$, 0, "Password"
Resume exit_PASSWORD_AfterUpdate

End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
+1 artan değerlerden kurtulma sabit bir şifre tanımlama - Yazar: Redgreen - 14/12/2008, 17:10