ник: angel_026
Доброго времяни суток!
Народ, плиз, подскажите чайку: как при выходе из программы 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