Question

我无法使用以下命令创建文件，任何人都可以在这方面帮助我。它说的错误是无效的参数。我在2010年上任。

我的参考是：MS office 14.0 ACCESS DATABASE OBJECT LIBRARY

Sub DBcreate()

Dim DB As DAO.Database
Dim RS As DAO.Recordset


Set DB = DAO.Workspaces(0).CreateDatabase("D:\tblImport11.accdb",    DB_LANG_GENERAL)
      DB.Close

    'Set RS = Nothing
    Set DB = Nothing
End Sub

我也试过了：

Set DB = DBEngine.CreateDatabase("D:\tblImport11.accdb", DB_LANG_GENERAL)

这也会出现同样的错误

Answer 1

DB_LANG_GENERAL是错误的参数。使用：

Set DB = DBEngine.CreateDatabase("D:\tblImport11.accdb", dbLangGeneral)

在Excel VBA中创建DAO Access文件

1 个答案: