AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Kullanıcı Giriş Kontrol Kodu

29/11/2018, 22:09

untouchable

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
29/11/2018, 22:33

berduş

(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)
29/11/2018, 23:41

berduş

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
30/11/2018, 11:53

untouchable

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
30/11/2018, 14:48

berduş

ö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