Лекции по Microsoft Access 2000


         

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 'Очищаем поток от ошибок



Содержание  Назад  Вперед