+- 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ığı: Kullanıcı Giriş Kontrol Kodu (/konu-kullanici-giris-kontrol-kodu.html)
Kullanıcı Giriş Kontrol Kodu - untouchable - 29/11/2018
Merhaba,
Kullanıcı giriş ekranı yaptım kullanıcının adının aynı formunu açtırtıyorum fakat ben tek bir forum açtırmak istiyorum kodu düzelttiğimde bozuluyor.
Kod:
'eğer kullanıcı veya şifre girilmemişse
If Nz(Açılan_Kutu2, "") = "" Or Nz(Metin4, "") = "" Then
MsgBox "Gerekli alanları doldurunuz"
Else
'kulalnıcının gerçek şifresi alıyoruz ve girdiği şifre ile kontrol ediyoruz
sifre = DLookup("sifre", "Kullanıcılar", "Kimlik= " & Açılan_Kutu2)
If sifre <> Metin4 Then 'eğer yanlışsa
MsgBox "hatalı şifre"
Exit Sub
Else
'eğer doğru ise
DoCmd.OpenForm Açılan_Kutu2.Column(1) 'kullanıcı formu ile aynı isimli formu aç
DoCmd.Close acForm, "giriş" 'bu formu kapat
End IfCvp: Kullanıcı Giriş Kontrol Kodu - berduş - 29/11/2018
(29/11/2018, 22:09)untouchable yazdı: If Nz(Açılan_Kutu2, "") = "" Or Nz(Metin4, "") = ""bu kodu aşağıdaki ile değiştirip deneyin
Kod:
If isnull(Açılan_Kutu2) Or isnull(Metin4)Cvp: Kullanıcı Giriş Kontrol Kodu - berduş - 29/11/2018
kusura bakmayın ben ne zaman
Kod:
If Nz(Açılan_Kutu2, "") = "" Or Nz(Metin4, "") = ""tam olarak nerde hata veriyor
Cvp: Kullanıcı Giriş Kontrol Kodu - untouchable - 30/11/2018
Hocam en düzeldi
Kod:
DoCmd.OpenForm Açılan_Kutu2.Column(1)Kod:
DoCmd.OpenForm "Forum adı"Cvp: Kullanıcı Giriş Kontrol Kodu - berduş - 30/11/2018
örnek dosyanız olmadığı için tam olarak yardımcı olamayabilirim ama ben açılan kutu aracılığıyla denedim doğrudan istediğim formu açtı
sizin Açılan_Kutu2 kaç sütun var ve form adı hangi sütunda
ama isterseniz if kullanarak yapın