+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mükerrer kayıt (/konu-mukerrer-kayit.html)
Mükerrer kayıt - Ömer 64 - 30/12/2008
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)
Cvp: Mükerrer kayıt - alpeki99 - 30/12/2008
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