в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан. / Microsoft Access

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

Гость

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан.

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

в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан.

#39533418

АртЮганск

Гость

С помощью метода:

Код: vbnet

Табл.FindFirst "[Фамилия] = '" & dic("F" & CStr(j)) & "' and [Имя] = '" & dic("I" & CStr(j)) & "' and [Отчество] = '" & dic("O" & CStr(j)) & "'"

проверяю есть ли запись в таблице, чтобы знать вставлять её в таблицу или нет, где-то с вероятностью в 10% выскакивает ошибка: "3420 Указан недопустимый объект, или объект более не задан."
Никак не могу понять почему она выскакивает? Подскажите где логика?
Если нужно могу выложить исходники (7 Мб) на гугл диск.

Модератор: Тема перенесена из форума "Visual Basic".

...

Рейтинг:

0 / 0

09.10.2017, 13:58

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

в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан.

#39533624

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

АртЮганск...проверяю есть ли запись в таблице.... А чё не так:

Код: vbnet

1.
2.
3.
4.
5.

if DCount("*", "tblName", "F='" & me.F & "' and I='" & me.I & "' and O='" & me.O & "'")=0 then
msgbox "no"
Else
msgbox "yes"
End if

...

Рейтинг:

0 / 0

09.10.2017, 18:22

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

в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан.

#39533756

АртЮганск

Гость

Проблема была решена таким обработчиком ошибки:

Код: vbnet

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

Ошибка:
    If Err.Number = 3420 Then                                                           '   3420 Указан недопустимый объект, или объект более не задан.
'        Debug.Print "Ошибка 3420: " & dic("F" & CStr(j)) & dic("I" & CStr(j)) & dic("O" & CStr(j))
        Set Табл = CD.OpenRecordset("GIP", dbOpenDynaset)
        Sleep 1
        Resume                                                                          '   выполнить заново
    End If

...

Рейтинг:

0 / 0

10.10.2017, 06:22

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

в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан.

#39533816

MrShin

Участник

Сообщения: 1 276

Рейтинг: 0 / 0

Ужас какой. Зачем в обработчике ошибок создавать объект? А если в другом месте забудете объект создать?
Проверьте сначала, что он есть

Код: vbnet

1.
2.
3.

If IsNothing(Табл) Then
    Set Табл = CD.OpenRecordset("GIP", dbOpenDynaset)
End If

А потом пытайтесь использовать.

...

Рейтинг:

0 / 0

10.10.2017, 08:58

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

в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан.

#39533848

$\\\\$

\\\\

Гость

MrShin

Код: vbnet

 IsNothing(Табл)

нету такой встроенной функции

...

Рейтинг:

0 / 0

10.10.2017, 09:35

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

в MS Access ошибка: 3420 Указан недопустимый объект, или объект более не задан.

#39534064

MrShin

Участник

Сообщения: 1 276

Рейтинг: 0 / 0

\\\\нету такой встроенной функции
Сорри, конечно нет. Имелось в виду

Код: vbnet

If Табл Is Nothing Then

...

Рейтинг:

0 / 0

10.10.2017, 14:18

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=45&msg=39533816&tid=1612024]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	36ms
get topic data:	10ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	290ms

total:	412ms