Лекции по Microsoft Access 2000


         

Public Function funCreateDatabase(strMDB As String) As Boolean


Dim sFullPath As String

    On Error GoTo 999  'Назначаем переход по ошибке

    funCreateDatabase = False 'Возвращаем результат при ошибке

   

    sFullPath = appFolder & "\" & strMDB 'Полное имя файла

    If Dir(sFullPath) <> "" Then Kill sFullPath 'Уничтожаем старую базу данных

    DBEngine.CreateDatabase sFullPath, dbLangCyrillic 'Создаем базу данных

    appAccess.OpenCurrentDatabase sFullPath 'Открываем базу данных

    funInitReferences '<2> Настраиваем ссылки базы данных

    funInitStartupProperties '<2> Настраиваем стартовые свойства

   

    funCreateDatabase = True 'Возвращаем результат

    Exit Function ‘Выходим из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок



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