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