Dcount / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Dcount

11 сообщений из 11, страница 1 из 1

Dcount

#39157099

noobs

Гость

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

Код: vbnet

1.
2.
3.
4.

    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

...

Рейтинг:

0 / 0

28.01.2016, 07:03

| Ответить | Цитировать | Написать

Dcount

#39157116

studieren

Участник

Откуда: Tashkent, Uzbekistan

Сообщения: 2 850

Рейтинг: 0 / 0

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

Код: vbnet

1.
2.
3.
4.

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" надо проверить. Если не строка, то нужно будет исправить.

...

Рейтинг:

0 / 0

28.01.2016, 07:52

| Ответить | Цитировать | Написать

Dcount

#39157117

noobs

Гость

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

...

Рейтинг:

0 / 0

28.01.2016, 07:53

| Ответить | Цитировать | Написать

Dcount

#39157119

noobs

Гость

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

...

Рейтинг:

0 / 0

28.01.2016, 07:55

| Ответить | Цитировать | Написать

Dcount

#39157121

studieren

Участник

Откуда: Tashkent, Uzbekistan

Сообщения: 2 850

Рейтинг: 0 / 0

А если так?

Код: vbnet

1.
2.

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

...

Рейтинг:

0 / 0

28.01.2016, 07:58

| Ответить | Цитировать | Написать

Dcount

#39157122

studieren

Участник

Откуда: Tashkent, Uzbekistan

Сообщения: 2 850

Рейтинг: 0 / 0

noobsВыходит та же ошибка
И вообще! Сколько полей в rs? Там точно не меньше 9?

...

Рейтинг:

0 / 0

28.01.2016, 08:00

| Ответить | Цитировать | Написать

Dcount

#39157128

noobs

Гость

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

...

Рейтинг:

0 / 0

28.01.2016, 08:08

| Ответить | Цитировать | Написать

Dcount

#39157135

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

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

Код: vbnet

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

...

Рейтинг:

0 / 0

28.01.2016, 08:18

| Ответить | Цитировать | Написать

Dcount

#39157137

Noobs

Гость

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

...

Рейтинг:

0 / 0

28.01.2016, 08:22

| Ответить | Цитировать | Написать

Dcount

#39157143

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

28.01.2016, 08:40

| Ответить | Цитировать | Написать

Dcount

#39157160

noobs

Гость

Ошибка была в моей не внимательности, нужно было написать rs.Field S .
как правильно написать цикл чтобы rs менялось, соответственно менялся результаты в DCount

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

For i = 1 To rs.RecordCount   If DCount("[kod_upr]", "[UPR_1214]", "[UPR_1214].[kod_upr]='" & rs.Fields(8) & "'") > 0 And DCount("[nStrEd]", "[StrEd]", "[StrEd].[nStrEd]=" & rs.Fields(3)) > 0 Then
rs2.AddNew
rs2.Fields("kod_25").Value = rs.Fields("kod_25").Value
rs2.Update
End If
If i < rs.RecordCount Then rs.MoveNext
Next i
End If

...

Рейтинг:

0 / 0

28.01.2016, 09:22

| Ответить | Цитировать | Написать

11 сообщений из 11, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Dcount

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?desktop=1&fid=45&tid=1614013]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	49ms
get topic data:	10ms
get forum data:	2ms
get page messages:	52ms
get tp. blocked users:	2ms
others:	13ms

total:	159ms