ник: час
Пытаюсь закрыть базу
Function Quit_BD() ' Способы выхода из базы по нажатию ctrl + Q
' Способы выхода из базы по нажатию ctrl + Q
If Fun_IsFormLoaded("KTO_TUT_FRM") = True Then
DoCmd.Close acForm, "KTO_TUT_FRM"
DoCmd.Close acMacro, "AutoKeys"
DoCmd.Quit
Else
DoCmd.OpenForm "EXIT_FRM"
End If
End Function
|
Завершение приложения Невозможно
Вероятно требуется прерывание выполнения модуля VB , использующего протокол OLE или DDE
===========================================
Подскажите , где собака .....
