[VBA] Access mantık hatası
#1
merhaba benim bir projem var kullanıcı adı ve şifreyi boş geçerse hata vermesin eğer boş geçmesse diğer forma geçmesini istiyorum ama hata veriyor


Private Sub Komut17_Click()
If IsNull([Kullanıcı_Adı] And [Şifre]) Then
MsgBox ("Kullanıcı Adı ve Şifreyi Giriniz"), , "HATA!!!"
Else
DoCmd.OpenForm "Ana Sayfa"
End If
End Sub



  Alıntı
Bu mesajı beğenenler:
#2
Şöyle yapabilirsiniz,

Private Sub Komut17_Click()
If [Şifre]=[Formda Şifre Girilen Kutu] And [Kullanıcı_adı]<>"" Then
DoCmd.OpenForm "Ana Sayfa"
Else
MsgBox ("Kullanıcı Adı ve Şifreyi Giriniz"), , "HATA!!!"
End If
End Sub

Kullanıcı adı tanımladıysanız <>"" işareti yerine ="Tanımlı ad" kullanabilirsiniz. Kolay gelsin.



  Alıntı
Bu mesajı beğenenler:
#3
Visual Basic
  1. Private Sub Komut17_Click()
  2. If Not IsNull([Kullanıcı_Adı] And [Şifre]) Then ' Boş geçmezse diğer forma geç
  3. DoCmd.OpenForm "Ana Sayfa"
  4. Else ' Boş geçerse hiç bir şey yapma
  5. End If
  6. End Sub



burada Kullanıcı adı ve Şifrenin ikiside boş olması durumu var, eğer birinden birinin kontrolünü yapmak isterseniz AND yerine OR kullanın.



  Alıntı
Bu mesajı beğenenler:
#4
Sayın Onur Hocam bu durumda yanlış kullanıcı adı ve şifre girildiğinde formu açmazmı. Sadece boş durumu kontrol etmiş olmuyormuyuz. Bilgi almak için soruyorum. Gerçi arkadaşımızda sadece boş olduğunda hata versin istemiş. Teşekkürler.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Access Vba üzerinden Sorgu çağırma Hatası tanyeri 20 1.360 13-02-2022, 17:47
Son Mesaj: onur_can
  [TABLO] Access Hatası benuva 8 766 13-01-2022, 22:20
Son Mesaj: benuva
  Access çalışma çıkışında "dosya Zaten Kullanımda" Hatası h2001 2 1.118 06-09-2021, 19:00
Son Mesaj: h2001
  Access Dosyası Açma Hatası strife 4 683 13-08-2021, 15:12
Son Mesaj: strife
  Geçerlilik Kuralı Hatası (check Hatası) adnnfrm 5 1.092 24-03-2021, 21:38
Son Mesaj: halily
  MS Access 1 kaydı anahtar hatası yüzünden tabloya ekleyemiyor" hatası Access70 2 1.010 24-05-2020, 18:18
Son Mesaj: Access70
  [VBA] Access Class Textbox Change Olayı Text Hatası feraz 7 1.379 22-03-2020, 19:16
Son Mesaj: onur_can
  [FORM] Access çalışmayı Durdurdu Hatası M_Kemal_Askeri 8 1.085 14-10-2019, 10:27
Son Mesaj: onur_can

Foruma Git:


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