Skip to main content

AccessTr.neT M.


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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'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 Adlı Kullanıcıdan Alıntı: 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