Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / № ошибки? / 5 сообщений из 5, страница 1 из 1
12.10.2003, 00:01
    #32290673
Gyslik.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
№ ошибки?
Помогите пожалуйста!
Для формы "User"
Пишу в "ошибке" "процедуру обработки событий":
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Debug.Print "DataErr="; DataErr
End Sub

Потом иду в форму "User", делаю в ней ошибку, смотрю окно immediate, а в нем пусто! (Пишу ?DataErr - тоже пусто).
Подскажите, как посмотреть номер ошибки?
:-)
...
Рейтинг: 0 / 0
12.10.2003, 00:22
    #32290675
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
№ ошибки?
> смотрю окно immediate, а в нем пусто!

Значит, ошибка не происходит. Или, возможно, в списке свойств формы в строке OnError не написано Event Procedure.

> (Пишу ?DataErr - тоже пусто).

Естественно, потому что переменная DataErr описана как формальный параметр процедуры и поэтому существует только внутри этой процедуры. Была бы описана как глобальная - была бы доступна где угодно.

> Подскажите, как посмотреть номер ошибки?

Вариант 1. Поставить BreakPoint внутри этой процедуры и проверять в Immediate Window в тот момент, когда программа на этом BreakPoint'е остановится.

Вариант 2. Описать глобальную переменную, добавить в процедуре Form_Error строку, которая заносит в эту переменную значение из DataErr, и тогда можно будет смотреть значение этой переменной в Immediate Window после выхода из процедуры.
...
Рейтинг: 0 / 0
12.10.2003, 02:05
    #32290691
Gyslik.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
№ ошибки?
Спасибо большое, у меня теперь возник другой вопрос, вот код кнопки, сделанный визардом:
Private Sub Кнопка108_Click()
On Error GoTo Err_Кнопка108_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Запись сохранена"
Exit_Кнопка108_Click:
Exit Sub
Err_Кнопка108_Click:
MsgBox Err.Description
Resume Exit_Кнопка108_Click
End Sub
Что нужно изменить (предполагаю, что во второй строке), чтобы при любой ошибке для данной кнопки выдавалось одно и то же сообщение? (Напр. "Так сделать нельзя!")
:-)
...
Рейтинг: 0 / 0
12.10.2003, 13:16
    #32290725
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
№ ошибки?
Не во второй. Там же написано:

On Error GoTo Err_Кнопка108_Click

А на метке Err_Кнопка108_Click стоит команда:

MsgBox Err.Description

Вот ее и надо менять. Например, так:

MsgBox "Так сделать нельзя!"
...
Рейтинг: 0 / 0
12.10.2003, 17:02
    #32290773
Gyslik.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
№ ошибки?
Спасибо большое за совет! Все получилось!
(P.S. Просто вчера ночью моя пустая башка не сообразила, что перед второй строкой стоит "On Error GoTo".)
:-)
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / № ошибки? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]