Mükerrer kayıt

30/12/2008, 17:03

Ömer 64

Daha önceki olayda kimlik bilgilerini girdiğim kişileri, yeni olayda tekrar girmeden nasıl eklerim, her olayda alınan ifadeleri ve durumları değişmeden (ekledigim örnekte kişino çift tıklandığında kimlik bilgileri formu açılıyor)
30/12/2008, 17:26

alpeki99

Eğer Dlookup kullanımını biliyorsanız çözümü DCount ile bulabilirsiniz.

Kod:
Dim Kayit_Varmi As Byte

    Kayit_Varmi = DCount("k_adi", "tbl_Kullanicilar", "[k_adi]='" & txt_Kullanici.Value & "'" & " and [k_parola]='" & txt_Parola.Value & "'")
    
    If (Kayit_Varmi > 0) Then
        
        Call Ad_Soyad
        
        
        DoCmd.Close acForm, "frm_Parola_Kontrol"
        DoCmd.OpenForm "frm_Merhaba"
        
    Else
    
        MsgBox "Bu kullanıcı veya parola yanlış.", vbCritical + vbOKOnly, "H A T A ! ! !"
        
End If

şeklinde kullanabilirsiniz.