AccessTr.neT

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: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)

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

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

ö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

untouchable

berduş

berduş

untouchable

berduş