Access 2000 - курс лекций
b. Закрытие базы данных
Если мы открыли базу данных, то ее необходимо закрыть. Это хороший способ программирования, хотя при закрытии окна Access (appAccess.Quit) база данных закрывается автоматически.
В этом примере база данных «Новый калькулятор.mdb» (переменная strMDB) будет закрыта, все ее объекты сохранены, а потом произойдет сжатие данных.
Public Function funCloseDatabase(strMDB As String) As Boolean
On Error GoTo 999 'Назначаем переход по ошибке
funCloseDatabase = False 'Возвращаем результат при ошибке
appAccess.CloseCurrentDatabase 'Закрываем базу данных
appAccess.Quit acQuitSaveAll 'Выходим c сохранением
funCompactDatabase strMDB '<2> Сжимаем базу данных
funCloseDatabase = True 'Возвращаем результат
Exit Function 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
End Function
