怎么用代码实现粘贴表相关参数，谢谢！！

sxb2007

如图所示，是一个粘贴表的粘贴提示选项，怎么用代码实现，自动输入   【表名称 】及【粘贴选项】参数，而不提示这个【粘贴表方式】的弹出菜单选项。从而实现粘贴过程。
谢谢！！！！！！！

roych

select * into 新表 from 旧表 where 1=0         ---这个仅粘贴结构。
select * into 新表 from 旧表                           ---这个粘贴结构和数据。
insert into 新表 select * from 旧表                 ---这个将数据追加到已有的表。
至于单选框和文本框的话，请自行创建窗体实现。

sxb2007

这种粘贴方式会 丢失 表的主键和索引。不能完整复制一个表的所有参数，我问的这个是通过鼠标右键复制在粘贴表结构，则不会丢失主键及索引等表参数。谢谢您的回复！！
还有一个方法可以完整复制一个表，但是复制时，会把表的结构及数据全部复制。如果表的数据过多，则复制时间会变长，也不可取。
        DoCmd.CopyObject , Newtbl, acTable, TblName    '先复制一个表
谢谢！！