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