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

7777777　发表于：2020-07-07 09:22:13 　

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

西出阳关无故人发表于：2020-07-07 21:40:08

Private Sub Command1_Click()
DoCmd.CopyObject , "表1的副本", acTable, "表1" '复制[表1]粘贴为[表1的副本](包含结构和数据,这里的结构不仅包含字段名称,字段类型,还包含主键非空默认值等设置参数)
CurrentDb.Execute "delete * from 表1的副本" '如果不需要数据,就保留此句,如果需要数据,就注释此句

End Sub

如果是"将数据追加到已有的表"选项,就用

CurrentDb.Execute "insert into 目的表名(字段名1,字段名2,...) select 字段名1,字段名2,...from 源表名 where ..."

Top

7777777 发表于：2020-07-07 23:25:06

DoCmd.CopyObject , Newtbl, acTable, TblName '是可以复制一个完整的表，之前我也是这样做的，但有一个问题，当这个表的数据量很大时，复制时间就会很长，所以不是一个很好的解决办法。

如果选中表，单击右菜单，先复制，在粘贴，可以复制一个完整的表，而且可以选择只复制表结构，

要完美处理这个问题，可能要用到API

谢谢您的回复，谢谢！！

Top

西出阳关无故人发表于：2020-07-08 15:28:23

也可以用adox 获得表结构,再根据结果创建新表.