怎么用vba在access中创建新表

Question

如题所述

Answer 1

把下面的过程放到任何一个模块中 Public Sub CreateTabel(rst As DAO.Recordset, TabelName As String) Dim TS As TableDefs Dim T As TableDef Dim F As DAO.Field Set TS = CurrentDb.TableDefs Set T = New TableDef rst.MoveFirst For Each

Answer 2

你好，我提供一个用查询中的SQL视图运行后就自动创建新表的方法给你
在SQL视图编写和运行"create table"语句就可以的。

例如创建一张学生表：
create table students(sid text(10) primary key,
sname text(50) not null,sex bit not null,
dob datetime);
例如创建一个“学生”表

create table 学生 （学号 char(10) primary key,姓名 char(4) not null,性别 char(1) , 出生日期 date)
编写好SQL语句后，点击“运行”带叹号的那个命令图标即可完成数据表的创建