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