ник: kot_k_k
str_="select * from tabla where data=" & me.Data & " and КодОплаты=" & me.КодОплаты & " and КодКлиента = " & me.КодКлиента
set rst = dbs.Openrecordset (str_)
if rst.EOF= False - есть запись , если TRUE - то записи нет
никакой громозкости один запрос