|
|
|
№ ошибки?
|
|||
|---|---|---|---|
|
#18+
Помогите пожалуйста! Для формы "User" Пишу в "ошибке" "процедуру обработки событий": Private Sub Form_Error(DataErr As Integer, Response As Integer) Debug.Print "DataErr="; DataErr End Sub Потом иду в форму "User", делаю в ней ошибку, смотрю окно immediate, а в нем пусто! (Пишу ?DataErr - тоже пусто). Подскажите, как посмотреть номер ошибки? :-) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2003, 00:01 |
|
||
|
№ ошибки?
|
|||
|---|---|---|---|
Модератор форума
|
|||
|
#18+
> смотрю окно immediate, а в нем пусто! Значит, ошибка не происходит. Или, возможно, в списке свойств формы в строке OnError не написано Event Procedure. > (Пишу ?DataErr - тоже пусто). Естественно, потому что переменная DataErr описана как формальный параметр процедуры и поэтому существует только внутри этой процедуры. Была бы описана как глобальная - была бы доступна где угодно. > Подскажите, как посмотреть номер ошибки? Вариант 1. Поставить BreakPoint внутри этой процедуры и проверять в Immediate Window в тот момент, когда программа на этом BreakPoint'е остановится. Вариант 2. Описать глобальную переменную, добавить в процедуре Form_Error строку, которая заносит в эту переменную значение из DataErr, и тогда можно будет смотреть значение этой переменной в Immediate Window после выхода из процедуры. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2003, 00:22 |
|
||
|
№ ошибки?
|
|||
|---|---|---|---|
|
#18+
Спасибо большое, у меня теперь возник другой вопрос, вот код кнопки, сделанный визардом: 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 Что нужно изменить (предполагаю, что во второй строке), чтобы при любой ошибке для данной кнопки выдавалось одно и то же сообщение? (Напр. "Так сделать нельзя!") :-) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2003, 02:05 |
|
||
|
№ ошибки?
|
|||
|---|---|---|---|
Модератор форума
|
|||
|
#18+
Не во второй. Там же написано: On Error GoTo Err_Кнопка108_Click А на метке Err_Кнопка108_Click стоит команда: MsgBox Err.Description Вот ее и надо менять. Например, так: MsgBox "Так сделать нельзя!" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.10.2003, 13:16 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32290773&tid=1678902]: |
0ms |
get settings: |
9ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
89ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
61ms |
get tp. blocked users: |
2ms |
| others: | 242ms |
| total: | 446ms |
| 0 / 0 |
