Как перехватить ошибку в ACCESS

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Партизан
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 29.04.2003 (Вт) 13:39
Откуда: Дзержинск, Нижегородской обл.

Как перехватить ошибку в ACCESS

Сообщение Партизан » 24.09.2003 (Ср) 15:34

При нажатии кнопки работает гиперссылка, если фйл на который она ссылается отсутсвует ACCESS выдаёт ошибку: "Не удаётся открыть:( здесь прописывается путь к файлу). Не удаётся открыть указанный файл." Как перехватить эту ошибку чтобы написать свою процедуру её обработки?СТАНДАРТНАЯ ПРОЦЕДУРА on error goto эту ошибку не перехватывает!
Последний раз редактировалось Партизан 24.09.2003 (Ср) 17:49, всего редактировалось 1 раз.

.COM
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 18
Зарегистрирован: 11.07.2003 (Пт) 22:10
Откуда: Россия, Москва

Сообщение .COM » 25.09.2003 (Чт) 13:02

...Функция Dir служит для проверки существования каталога или файла...

Может перед тем как ссылаться проверить...

Партизан
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 29.04.2003 (Вт) 13:39
Откуда: Дзержинск, Нижегородской обл.

Сообщение Партизан » 30.09.2003 (Вт) 13:09

Спасибо насчёт Dir - приличный выход из положения....Хотя хотелось бы узнать как такую ошибку с помощью своего обработчика перехватить....

MustDie
Начинающий
Начинающий
 
Сообщения: 24
Зарегистрирован: 01.03.2003 (Сб) 2:06
Откуда: Kazakhstan

Сообщение MustDie » 21.10.2003 (Вт) 21:10

В самом начале процедуры пишешь
On error goto метка
В конце процедуры пишешь
метка:
If Err.number=то что тебе надо then msgbox "Косяк!"
exit sub

JoSkiy
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 24.10.2003 (Пт) 16:47

Сообщение JoSkiy » 24.10.2003 (Пт) 17:00

Точнее

Exit Sub

метка:
код
End Sub

Партизан
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 29.04.2003 (Вт) 13:39
Откуда: Дзержинск, Нижегородской обл.

Сообщение Партизан » 24.10.2003 (Пт) 17:06

Спасибо, конечно, но эта стандартная функция такую ошибку не перехватывает! Да и номер ошибки узнать не получается!

JoSkiy
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 24.10.2003 (Пт) 16:47

Сообщение JoSkiy » 27.10.2003 (Пн) 13:33

Если знаешь номер ошибки, берешь и проверяешь её в обработчике:

If Err.Number={Твоя_Ошибка} Then

.....

End IF


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 137

    TopList