Arkadaşlar merhaba login ekranı yaptım internetten bakarak kodu aşağıda bulabilirsiniz sıkıntı şu kullanıcı adı bsyildizel ve nguner olsun şifreler bsyildizel için 2323 nguner için 2424 olsun. Giriş ekranında bsyildizel yazıp kullanıcı adına şifreye 2323 de yazsam 2424 de yazsam giriş yapıyor. Böyle olmaması lazımdı yardımcı olur musunuz?

 Private Sub Komut1_Click()
    Dim UserLevel As Integer

If IsNull(Me.txtLoginID) Then
    MsgBox "Lütfen kullanıcı adı giriniz", vbInformation, "Kullanıcı Adı Gereklidir"
    Me.txtLoginID.SetFocus

    ElseIf IsNull(Me.txtPassword) Then
    MsgBox "Lütfen şifre  giriniz", vbInformation, "Şifre Gereklidir"
    Me.txtPassword.SetFocus
Else
   
    If (IsNull(DLookup("[CalisanAd]", "tblsifre", "[CalisanAd] ='" & Me.txtLoginID.Value & "'"))) Or _
    (IsNull(DLookup("[Password]", "tblsifre", "[Password] ='" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Kullanıcı Adı veya Şifre Yanlış"
    Else
        UserLevel = Dlookup ("UserSecurity", "tblsifre", "CalisanAd = '" & Me.txtLoginID.Value & "'")
        DoCmd.Close
       
           
            If UserLevel = 2 Then
            DoCmd.OpenForm "Ana Menü"
    ElseIf Not UserLevel = 2 Then
         
          MsgBox "Buraya Giriş İçin Yetkiniz Yok", vbInformation, "Yetkisiz Giriş"

           
       
   
 
    End If
    End If
   
   
End If


End Sub

Merhaba,

(IsNull(DLookup("[Password]", "tblsifre", "[Password] ='" & Me.txtPassword.Value & "'")))

bu kod, yazılan şifrenin tabloda olup olmadığına bakıyor. Kullanıcı adı içermediği için ve yazılan şifre tabloda olduğu için kodun devamı şifre doğruymuş gibi çalışıyor.

IsNull(DLookup("[Password]", "tblsifre", "[Password] ='" & Me.txtPassword.Value & "' And [CalisanAd]='" & Me.txtLoginID.Value & "'"))

Şeklinde deneyin.

(26/05/2021, 10:51)ozanakkaya yazdı: Merhaba,

(IsNull(DLookup("[Password]", "tblsifre", "[Password] ='" & Me.txtPassword.Value & "'")))

bu kod, yazılan şifrenin tabloda olup olmadığına bakıyor. Kullanıcı adı içermediği için ve yazılan şifre tabloda olduğu için kodun devamı şifre doğruymuş gibi çalışıyor.

IsNull(DLookup("[Password]", "tblsifre", "[Password] ='" & Me.txtPassword.Value & "' And [CalisanAd]='" & Me.txtLoginID.Value & "'"))

Şeklinde deneyin.

Yukarıda bahsettiğiniz mevcut kod yerine sizinkini koydum ve işe yaradı çok teşekkürler.