如何用代码复制表的空白副本

qlm

虚心求教：

我需要把数据库中的A表复制为名叫B的表，A表原来是有数据的，

要求复制出来的B表是空白的（不能用删除的方法），请问用VBA如何实现？

一点通

假如不会写VBA的话,可以用生成表查询的方法来创建一个空白表,只要在ID准则中写入不可能出现的编号就行了

andymark

也可以通过TransferDatabase只导入或导出数据库表的结构 来实现

fan0217

以下是引用一点通在2006-9-28 8:43:00的发言：
假如不会写VBA的话,可以用生成表查询的方法来创建一个空白表,只要在ID准则中写入不可能出现的编号就行了

这是个好 简单的好办法，对于自动编号来说，不出现的数字应该是0 。

sgrshh29

以下是引用一点通在2006-9-28 8:43:00的发言：
假如不会写VBA的话,可以用生成表查询的方法来创建一个空白表,只要在ID准则中写入不可能出现的编号就行了

最简单的方法就是这样的查询了。select * into b from a where 1<>1;

qlm

噢,我忘了有个生成表查询,原来可以这样用，谢谢大家。

hi-wzj

导入表的方法法才是正解，单纯做生成表查询，将丢失很多的表字段的属性，比如格式属性掩码属性等等。

[此贴子已经被作者于2006-9-28 13:09:13编辑过]

sgrshh29

以下是引用hi-wzj在2006-9-28 13:08:00的发言：
导入表的方法法才是正解，单纯做生成表查询，将丢失很多的表字段的属性，比如格式属性掩码属性等等。

支持，有道理。

qlm

以下是引用hi-wzj在2006-9-28 13:08:00的发言：
导入表的方法法才是正解，单纯做生成表查询，将丢失很多的表字段的属性，比如格式属性掩码属性等等。

谢谢提醒,但请问

用VBA代码如何导入表。

青青

DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & CurrentProject.Name, acTable, "来源表的名称", "目标表的名称", True