A.S.C Filtre, Grafik ve Raporlama Eklentisi

Login Ekranı
#1
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


Eklenti Dosyaları
.png   Ekran Alıntısı.PNG (Boyut: 5,51 KB / İndirilme: 17)



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba
Eşitse yanlış demişsiniz. Bunun yerine  = işaretinin yerin e farklı <> işareti kullanmalısınız. Birde Or yerine And kullanmalısınız. yani doğru kod bloğu aşağıaki gibidir. değiştirin.
Visual Basic
  1.    If (IsNull(DLookup("[CalisanAd]", "tblsifre", "[CalisanAd] <>'" & Me.txtLoginID.Value & "'"))) And _
  2.     (IsNull(DLookup("[Password]", "tblsifre", "[Password] <>'" & Me.txtPassword.Value & "'"))) Then
  3.        MsgBox "Kullanıcı Adı veya Şifre Yanlış"
  4. Exit Sub
  5.    Else
  6.        UserLevel = DLookup("UserSecurity", "tblsifre", "CalisanAd = '" & Me.txtLoginID.Value & "'")
  7.        DoCmd.Close
  8. .......
  9. .......


Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

YARDIMCI ARAÇ UYGULAMALARIM
Takvim Günü ve İş Günü Hesaplama (YENİ!)
Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)

BLOG SİTEM
A dan Z'ye Access Konuları (Güncel Bilgiler)



  Alıntı
Bu mesajı beğenenler: calief
#3
(26-05-2021, 10:00)calief demiş ki: 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


Bu konuyuda incelemenizi tavsiye ederim. Mesaj #6 güncel dosya.

https://www.access-sql.com/Konu-Login-Fo...ipto-Sifre



  Alıntı
Bu mesajı beğenenler: calief
#4
Cevaplarınız için teşekkürler düzeldi bu şekilde



  Alıntı
Bu mesajı beğenenler:
#5
rica ederiz, iyi çalışmalar...
Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

YARDIMCI ARAÇ UYGULAMALARIM
Takvim Günü ve İş Günü Hesaplama (YENİ!)
Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)

BLOG SİTEM
A dan Z'ye Access Konuları (Güncel Bilgiler)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Kayıt Arama Ekranı Hk. internally 5 1.253 31-08-2018, 23:25
Son Mesaj: internally
  [FORM] Anaforma Simge Haline Küçült Ekranı kapla Sİmgesi Eklemek serkanoz 10 2.635 22-11-2017, 19:56
Son Mesaj: serkanoz
access-sql-8 [FORM] programa giriş ekranı için parola denetimi oluşturma drdelitr 2 1.055 13-11-2017, 10:06
Son Mesaj: drdelitr
  [FORM] Kullanıcı Giriş Ekranı Hk. serkan16ZR428 1 909 07-11-2017, 09:46
Son Mesaj: serkan16ZR428
  [FORM] Access penceresi gizli Userforma simge durumunda küçült ve ekranı kapla düğmeleri Mustim 2 2.017 15-01-2017, 20:55
Son Mesaj: Mustim
  [FORM] YP ACCESS EKLENTİSİ Rapor ekranı hakkında sonerdursun 1 1.158 07-01-2017, 18:51
Son Mesaj: dsezgin
  [FORM] login formuna girilen "kullanıcı adı" bilgisini başka bir formda filtre ol. kullanma esrufk 1 1.402 17-08-2015, 21:47
Son Mesaj: dsezgin
  [FORM] ACCESS TE ŞİFRE EKRANI simsek.13 2 1.697 27-11-2014, 23:55
Son Mesaj: iscinar

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi