On Error Resume Next ' alan boş olduğundan runtime 94 hatası vermekte
'Taruz Not: boş değer hatasını engellemek için Dlookup değil Dcount kullanmakta fayda var..
 
Dim SD As String
Dim stLinkCriteria As String
SD = Me.TCNo.Value
stLinkCriteria = "TCNo" = " & " '" & SD & "'"
Dim kontrol, tari, adi, tcnum, firad, kod As String
kontrol = DCount("*", "CariKart", "TCNo='" & Me.TCNo & "'")
''Taruz Not: iki metin kriteri için örnek..:
kontrol = DCount("*", "CariKart", "TCNo='" & Me.TCNo & "' and ikincialan = '" & kriteriniz & "' ")
''Taruz Not: iki metin bir sayı kriteri için örnek..:
kontrol = DCount("*", "CariKart", "TCNo='" & Me.TCNo & "' and ikincialan = '" & kriteriniz & _
            "' and sayialani= " & sayikriteri)
 
'If Not IsNull(kontrol) Then
If kontrol = 0 Then ''Taruz Not: Dcount ile bu yapı kullanılmalı..
'.....
'............
'...................
'............
End If
End Sub

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim SQL As String
 
Set rs = New ADODB.Recordset
Set cn = CurrentProject.Connection
 
SQL = "SELECT Count(id) AS Sayid FROM Tablo WHERE alan1='aranan1' AND alan2='aranan2' AND alan3='aranan3'"
 
rs.Open SQL, cn, adOpenStatic
 
If Not rs.EOF Then
    If rs.Fields("sayid") > 0 Then
        MsgBox ("mukerrerlik var")
    Else
        MsgBox ("mukerrerlik yok")
    End If
End If

Dim a As Integer
    a = DCount("*", "CariKart", _
               "AdiSoyadi= '" & Me.AdiSoyadi _
               & "' and Telefon1= '" & Me.Telefon1 & "' and Telefon2 = '" _
               & Me.Telefon2 & "' and Telefon3 = '" & Me.Telefon3 & "' ")
If a > 0 Then
MsgBox "aynı kayıttan var.."
Cancel = -1
End If