|
|
|
Кнопка "выход из базы" на панели инструментов...
|
|||
|---|---|---|---|
|
#18+
Подскажите как сделать кнопку на панели инструментов, чтобы выполнялось что-то типа: If MsgBox(" Вы хотите выйти? ", vbCritical + vbOKCancel + vbDefaultButton2, "Выход") = vbOK Then Application.quit acQuitPrompt End If а не стандартный выход с помощью, например, макроса. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2004, 14:08:57 |
|
||
|
Кнопка "выход из базы" на панели инструментов...
|
|||
|---|---|---|---|
|
#18+
Напиши в модуле Function Выход() If MsgBox(" Вы хотите выйти? ", vbCritical + vbOKCancel + vbDefaultButton2, "Выход") = vbOK Then Application.Quit acQuitPrompt End If End Function Создай макрос ЗапускПрограммы Выход() Сделай на панели кнопку для запуска макроса ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2004, 14:35:07 |
|
||
|
Кнопка "выход из базы" на панели инструментов...
|
|||
|---|---|---|---|
|
#18+
2 Roma R А что, без макроса функции не запускаются из кнопок меню?:) Функцию в модуле достаточно Public объявить - вот и всё... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2004, 14:46:42 |
|
||
|
|
start [/forum/topic.php?fid=45&tid=1670676]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
58ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 188ms |
| total: | 325ms |
| 0 / 0 |
