如何使用VBA而不是currentdb在MS Access中创建表

第一次用户在这里。我需要使用VBA在Access中创建一个新表，但不需要在currentdb中创建。我怎样才能做到这一点

谢谢，

---

Rimuru有两种方法可以做到这一点

首先，您可以使用SQL执行以下操作：

子sCreateTable1（）
Dim数据库作为DAO.Database
设置db=DBEngine（0）.OpenDatabase（“J:\downloads\test.accdb”）
执行“创建表[test1]（字段1字符）
db.关闭
Set db=Nothing
端接头

其次，您可以使用DAO来完成以下操作：

子sCreateTable2（）
Dim数据库作为DAO.Database
将tdf调暗为DAO.TableDef
模糊fld为刀场
设置db=DBEngine（0）.OpenDatabase（“J:\downloads\test.accdb”）
设置tdf=db.CreateTableDef（“test2”）
设置fld=tdf.CreateField（“Field1”，dbText，100）
tdf.Fields.Append fld
db.TableDefs.Append tdf
设置fld=无
设置tdf=无
db.关闭
Set db=Nothing
端接头

---

关于，

建立与其他数据库的连接并运行创建表sql。当你有特定问题的代码时，发布问题。非常感谢！