AccessTr.neT
Kullanıcı Giriş Kontrol Kodu - Baskı Önizleme

+- 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 If




Cvp: 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, "") = ""
kodunu kullansam bende hata verdiği için balıklama daldım ama
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ı"
 Şeklinde düzelttim oldu fakat bu defada admin girişini yapamadım admin formu diğerlerinden ayrı açılsın istiyorum bu koda nasıl bir ekleme yapmam gerekiyor sadece admin adını seçip giriş yapıldığında farklı form açsın


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