Dim txtKriter As String

txtKriter = ""

txtKriter = txtKriter & _

            IIf(Nz(hkf_tckn) <> "", " and " & hkf_tckn, "") & _

            IIf(Nz(hkf_isim) <> "", " and '" & hkf_isim & "'", "") & _

            IIf(Nz(hkf_soyisim) <> "", "' and " & hkf_soyisim & "'", "")

txtKriter = IIf(Len(txtKriter) > 4, Mid(txtKriter, 5), txtKriter)



hkf_tckn = Dlookup ("tckn", "hasta_listesi", txtKriter)

hkf_isim = Dlookup ("isim", "hasta_listesi", txtKriter)

hkf_soyisim = Dlookup ("soyisim", "hasta_listesi", txtKriter)

yukardaki kodu dener misiniz?
sadece TC, ad ve soyada yani 3 kritere göre buluyor