14/10/2015, 18:02
neco_can
merhaba, aşağıda nerde hata yapıyorum. şifreyi doğru girmeme rağmen hatalı şifre girdiniz diye uyarı vermektedir.
dlookup da iki sutunda kısa metin olursa hata vermektedir.
dlookup da iki sutunda kısa metin olursa hata vermektedir.
Private Sub giris1_Click()
If IsNull(Me.kullanicilar1) Or Me.kullanicilar1 = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"
Me.kullanicilar1.SetFocus
Exit Sub
End If
If Me.parola1.Value = Dlookup ("PAROLA", "T_CALISANLAR", "[NO]=" & Me.kullanicilar1.Value) Then
ID = Me.kullanicilar1.Value
Me.Form.Visible = False
DoCmd.OpenForm "F_AnaSayfa", acNormal
Else
MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "Bilgilendirme Penceresi"
Me.parola1.SetFocus
End If
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 2 Then
MsgBox "KAPATILACAK.", vbCritical, "Bilgilendirme Penceresi"
Application.Quit
End If
End Sub