Skip to main content

AccessTr.neT


Giriş ekranı şifresi

Giriş ekranı şifresi

Çözüldü #1
merhaba, aşağıda nerde hata yapıyorum. şifreyi doğru girmeme rağmen hatalı şifre girdiniz diye uyarı vermektedir.
dlookup da iki sutunda kısa metin olursa hata vermektedir.


Private Sub giris1_Click()


    If IsNull(Me.kullanicilar1) Or Me.kullanicilar1 = "" Then
            MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"
            Me.kullanicilar1.SetFocus
        Exit Sub
    End If
    If Me.parola1.Value = Dlookup ("PAROLA", "T_CALISANLAR", "[NO]=" & Me.kullanicilar1.Value) Then

         ID = Me.kullanicilar1.Value
       
        Me.Form.Visible = False
        DoCmd.OpenForm "F_AnaSayfa", acNormal

        Else
        MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "Bilgilendirme Penceresi"
        Me.parola1.SetFocus
    End If
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 2 Then
        MsgBox "KAPATILACAK.", vbCritical, "Bilgilendirme Penceresi"
        Application.Quit
    End If
End Sub
Cevapla
#2
Sayın neco_can,

Bir ihtimal açıklamanın yetersiz kalabileceği sorunlar söz konusu olduğunda aynı karşılık olarak açıklamalar yazarak çözümler üretmek ve sunmak da bir o kadar yetersiz ya da etkisiz kalacaktır.konunuzda mesaj yoğunluğunun artması da cabası.

Bu nedenle,Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,örnek uygulamanızı da konunuza dahil etmeniz daha verimli olacaktır.Fakat,ilk etapta bir bilgilendirme veya dikkat çekme olması adına,şu açıklama yapılabilir.

Me.kullanicilar1 diye kullandığınız denetim,kişinin adını girmesi için geçerli görünmekte.bu da,metin veri türü demektir.fakat,siz

Kod:
If Me.parola1.Value = Dlookup ("PAROLA", "T_CALISANLAR", "[NO]=" & Me.kullanicilar1.Value) Then
yukarıdaki kod ifadesinde Dlookup fonksiyonunu kullanırken kriter olarak [NO] alanını belirtirken,bu alanın karşılığı olarak kişi adını eşitlemişsiniz.kast edilen şu;sayısal değere karşılık metin değerini eşitlemek istiyorsunuz.oysa NO yerine kişi adını yazmalısınız ki eğer kişi adı tutuyor ise parola değerine göre işlem yapılabilsin.

Uygulamanız bilinmediğinden dolayı,muhtemel bu kod ifadesinin yazımı şu şekilde olmalı.
(alan adı için kullanılan örnek ifadeyi düzeltmeyi unutmayınız.)bilginize…iyi çalışmalar,saygılar.

Kod:
If Me.parola1.Value = Dlookup ("PAROLA", "T_CALISANLAR", "[kullanici_adi]='" & Me.kullanicilar1.Value & "'") Then
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da