| |
|
|
| | Доброго времяни суток!
Народ, плиз, подскажите чайку: как при выходе из программы VB автоматически выполнял запрос на удаление?
Пробовал написать, работает только когда нажимаещь RUN в VВ, а когда на стандарный крестик не пашет 
Вот, че смог смастерить:
'------------------------------------------------------------
' Закрыть_программу
'
'------------------------------------------------------------
Function Закрыть_программу()
On Error GoTo Закрыть_программу_Err
DoCmd.RunMacro "Закрыть программу.1", , ""
Закрыть_программу_Exit:
Exit Function
Закрыть_программу_Err:
MsgBox Error$
Resume Закрыть_программу_Exit
On Error GoTo Закрыть_программу_1_Err
' Запрос на удаление данных из Т
DoCmd.OpenQuery "Зап Удал из Т", acViewNormal, acEdit
DoCmd.RunMacro "Закрыть программу.2", , ""
Закрыть_программу_1_Exit:
Exit Function
Закрыть_программу_1_Err:
MsgBox Error$
Resume Закрыть_программу_1_Exit
On Error GoTo Закрыть_программу_2_Err
DoCmd.Quit acExit
Закрыть_программу_2_Exit:
Exit Function
Закрыть_программу_2_Err:
MsgBox Error$
Resume Закрыть_программу_2_Exit
End Function | |
| |
| |
| |
|
|
| | Глянь по ссылке
http://www.sql.ru/forum/actualthread.aspx?tid=40088&hl=%e7%e0%ea%f0%fb%f2%e8%e5+access
вдруг поможет  | |
| |
| |
|
|
| |
|
|
| |
...как невидимую форму пользователь будет закрывать
|
Она сама закроется, при закрытии Access. (Если вы ей это позволите)
А перед этим выполнит все ваши пожелания, если их прописать на Unload формы. | |
| |
| |
| |
|
|
| | ДА, конечно, как я сам недотумкал 
Спасибо, ща попробую | |
| |
| |
| |
|
|
| | Сорри, за настойчивость, вот такая трабла - как форму сделать невидимой?
Че т я не вкурю!
Плиз,ХЭЛП | |
| |
| |
| |
|
|
| | Глянь готовый пример
http://am.rusimport.ru/MSAccess/topic.aspx?ID=114
 | |
| |
| |
| |
|
|
| |
DoCmd.OpenForm "frm1",,,,,acHidden
'или так уже открытую
Forms("frm1").Visible=False
|
| |
| |
| |
|
|
