Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 MsgBox  [new]
Cyrila
Member

Откуда:
Сообщений: 37
Тема не нова, прочитал что уже было написано в форуме, но причину ошибки определить не смог.

Вот код:
MsgBox "Сохранить изменения", vbYesNo
If Response = vbNo Then DoCmd.Close acForm, "Форма 1", acSaveNo
If Response = vbYes Then DoCmd.Close acForm, "Форма 2", acSaveYes

Текст ошибки:
"Varible not define"

Помогите пож-та.
8 май 06, 19:41    [2643468]     Ответить | Цитировать Сообщить модератору
 Re: MsgBox  [new]
Cyrila
Member

Откуда:
Сообщений: 37
Если пишу иной код:

If MsgBox("Сохранить изменения", vbYesNo) = vbNo Then DoCmd.Close acForm, "Форма 1", acSaveNo
If MsgBox("Сохранить изменения", vbYesNo) = vbYes Then DoCmd.Close acForm, "Форма 1", acSaveYes


то msgbox выскакивает два раза (((
8 май 06, 19:43    [2643472]     Ответить | Цитировать Сообщить модератору
 Re: MsgBox  [new]
Rivkin Dmitry
Member

Откуда: Israel
Сообщений: 5500
If MsgBox ("Сохранить изменения", vbYesNo) = vbNo Then 
    DoCmd.Close acForm, "Форма 1", acSaveNo
Else
    DoCmd.Close acForm, "Форма 2", acSaveYes
End If

Or

Dim Response As Bit
Response = MsgBox ("Сохранить изменения", vbYesNo)
DoCmd.Close acForm, "Форма 1", Iif(Response = acSaveNo, acSaveNo", acSaveYes)
8 май 06, 20:00    [2643490]     Ответить | Цитировать Сообщить модератору
 Re: MsgBox  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
Cyrila
Текст ошибки:
"Varible not define"

Not defined. Переменная не описана. Ну так опишите ее. Подозреваю, что имеется в виду Response - она не только не описана, но ей и значение нигде не присваивается.

Cyrila
Если пишу иной код:

If MsgBox("Сохранить изменения", vbYesNo) = vbNo Then DoCmd.Close acForm, "Форма 1", acSaveNo
If MsgBox("Сохранить изменения", vbYesNo) = vbYes Then DoCmd.Close acForm, "Форма 1", acSaveYes

то msgbox выскакивает два раза (((

Разумеется. Сколько раз попрошено, столько и выскакивает.
8 май 06, 20:01    [2643491]     Ответить | Цитировать Сообщить модератору
 Re: MsgBox  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
Rivkin Dmitry
Dim Response As Bit

Byte как минимум.
8 май 06, 20:02    [2643494]     Ответить | Цитировать Сообщить модератору
 Re: MsgBox  [new]
1
Guest
Используй Add Ins от Zada и нет проблем!

К сообщению приложен файл (ErrorHandler.rar - 42Kb) cкачать
9 май 06, 06:01    [2643957]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить