Skip to main content

AccessTr.neT


Kullanıcı Giriş Kontrol Kodu

Kullanıcı Giriş Kontrol Kodu

Çözüldü #1
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

Cevapla
#2
(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)
Cevapla
#3
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
Cevapla
#4
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
Cevapla
#5
ö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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da