设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1597|回复: 2

[模块/函数] 怎么用代码实现粘贴表相关参数,谢谢!!

[复制链接]
发表于 2020-7-7 09:15:42 | 显示全部楼层 |阅读模式

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2020-7-7 11:17:20 | 显示全部楼层
select * into 新表 from 旧表 where 1=0         ---这个仅粘贴结构
select * into 新表 from 旧表                           ---这个粘贴结构和数据
insert into 新表 select * from 旧表                 ---这个将数据追加到已有的表
至于单选框和文本框的话,请自行创建窗体实现。
 楼主| 发表于 2020-7-7 11:32:47 | 显示全部楼层
本帖最后由 sxb2007 于 2020-7-7 11:40 编辑

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

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 14:34 , Processed in 0.076678 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表