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
Login Ekranı
Bu Konudaki Yorumlar |
Login Ekranı - Yazar: calief - 26/05/2021, 09:59
RE: Login Ekranı - Yazar: ozanakkaya - 26/05/2021, 10:51
RE: Login Ekranı - Yazar: calief - 26/05/2021, 11:09
|
Konuyu Okuyanlar: 1 Ziyaretçi