Merhabalar,
Benim formumda 2 tane textbox var. ( Kullanıcı adı ve şifre alanları için ) Buradaki gibi kullanıcı adını Combobox'a aldırmadım. DLookup ile verileri çekiyorum ancak sadece tablomda ilk satırdaki verileri yazdığımda dogru kabul ediyor. 2. sıradaki veriyi girdiğimde kabul etmiyor. Kodu inceleyerek yanlış yaptığım nokta hk. bilgi verebilirseniz sevinirim.
TBlerin adı Username ve Password. Kıyaslamayı Kullanıcı_Bilgileri isimli tabloda yer alan Kullanıcı_adi ve Sifre alanlarından yapması gerekiyor.
Şimdiden teşekkürler.
Benim formumda 2 tane textbox var. ( Kullanıcı adı ve şifre alanları için ) Buradaki gibi kullanıcı adını Combobox'a aldırmadım. DLookup ile verileri çekiyorum ancak sadece tablomda ilk satırdaki verileri yazdığımda dogru kabul ediyor. 2. sıradaki veriyi girdiğimde kabul etmiyor. Kodu inceleyerek yanlış yaptığım nokta hk. bilgi verebilirseniz sevinirim.
TBlerin adı Username ve Password. Kıyaslamayı Kullanıcı_Bilgileri isimli tabloda yer alan Kullanıcı_adi ve Sifre alanlarından yapması gerekiyor.
Şimdiden teşekkürler.
Visual Basic
- If Nz(Username, "") = "" Or Nz(Password, "") = "" Then
- MsgBox "Kullanıcı Adı veya Şifre alanlarını boş geçemezsiniz."
- Else ' Dolu ise;
-
- kadi = DLookup("Kullanici_adi", "Kullanici_Bilgileri", Username)
- GSifre = DLookup("Sifre", "Kullanici_Bilgileri", Password)
-
- If kadi <> Username Or GSifre <> Password Then
-
- MsgBox "Hatalı Kullanıcı adı veya Şifre Girişi Sağladınız. Lütfen kontrol ederek tekrar deneyin veya sistem yöneticisine danışın."
-
- Username.SetFocus ' Kullanici_adi metin kutusuna odaklan
- Username.Text = "" ' Kullanici_adi metin kutusunu temizle
-
- Password.SetFocus ' Sifre metin kutusuna odaklan
- Password.Text = "" ' Sifre metin kutusunu temizle
-
- Username.SetFocus ' Kullanici_adi metin kutusuna odaklan
-
- Exit Sub
-
- Else
- DoCmd.OpenForm "Anasayfa", acNormal, , , acFormReadOnly, acDialog 'Anasayfa isimli Formu Aç
- DoCmd.Close acForm, "Giris", acSaveNo