Login Ekranı - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Login Ekranı (/konu-login-ekrani.html) |
Login Ekranı - calief - 26/05/2021 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 RE: Login Ekranı - ozanakkaya - 26/05/2021 Merhaba,
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.
Şeklinde deneyin. RE: Login Ekranı - calief - 26/05/2021 (26/05/2021, 10:51)ozanakkaya yazdı: Merhaba,Yukarıda bahsettiğiniz mevcut kod yerine sizinkini koydum ve işe yaradı çok teşekkürler. |