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 'Очищаем поток от ошибок
End Function
Ссылки по теме