Dcount

Добрый день, помогите исправить выходит ошибка error 438 object doesn't support this property or method в строке с Dcount

    If DCount("[*]", "[Upr].[kod_upr]='" & rs.Field(8) & "'") > 0 And DCount("[*]", "[StrEd].[nStrEd]='" & rs.Field(4) & "'") > 0 Then
rs3.AddNew
rs3.Fields("kod_25") = rs.Fields("kod_25")
rs3.Update

А если так попробовать?

If DCount("*", "Upr", "kod_upr='" & rs.Field(8).Value & "'") > 0 And DCount("*", "StrEd", "nStrEd='" & rs.Field(4).Value & "'") > 0 Then
rs3.AddNew
rs3.Fields("kod_25").Value = rs.Fields("kod_25").Value
rs3.Update

Что такое "Upr" и "StrEd"? Это название таблиц / запросов? Если да, то вроде бы должно работать. Правда тип данных полей "kod_upr" и "nStrEd" надо проверить. Если не строка, то нужно будет исправить.

Это запросы к серверу

Выходит та же ошибка

А если так?

If DCount("*", "Upr", "kod_upr='" & Replace(rs.Field(8).Value, "'", "''") & "'") > 0 And _
    DCount("*", "StrEd", "nStrEd='" & Replace(rs.Field(4).Value, "'", "''") & "'") > 0 Then

noobs
Выходит та же ошибка

И вообще! Сколько полей в rs? Там точно не меньше 9?

Не помогло
Там их около 30)

noobs, попробуйте

 If DSum("kod_upr='" & rs.Field(8).Value & "'", "Upr") < 0 And DSum("nStrEd='" & rs.Field(4).Value & "'", "StrEd") < 0 Then

увы, но нет.
Что вообще может быть не так?

Проверьте наличие записей в rs, а также значения используемых полей этого рекордсета, 8-го и 4-го.