DLookup("Sphl_Adı_Soyadı", "Teklif_Formu_Word") kodu yerine
Dcount("Sphl_Adı_Soyadı", "Teklif_Formu_Word")
kodunu kullanarak kayıt sayısını saydırmak daha doğru olacaktır. Tabi kod bloğuna kriter eklemek gerekli. Sphl_Adı_Soyadı alanındaki veriyi kontrol ediyorsanız bunu kritere de yazmalısınız.
Dim VarMi As Integer
VarMi = DCount("ruhsattc", "tbl_ruhsatnotlari", "[ruhsattc]='" & [tc] & "'")
if VarMi = 0 Then
' kayıt yok ise çalışacak kod
else
'kayıt var ise çalışacak kod
end if