快速录入多条相似记录-trynew
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


快速录入多条相似记录

发表时间:2009/6/23 15:01:47 评论(3) 浏览(5467)  评论 | 加入收藏 | 复制
   
摘 要:复制当前的内容生成新记录,利用InpyBox录入需要改变的内容如姓名。
正 文:

点击下载此附件

一些记录之间,可能仅有一个字段的内容不同,这是可以利用对话框作为输入,则可以快速的连续输入相似的记录。例子的代码非常简练但很实用:)其中的关键点是Me.RecordsetClone对象的应用,利用这个内置对象可以解决不少难题。

当记录之间有很多字段内容相同时,采用这种方法可一快速录入记录。

Private Sub Command47_Click()
Dim Stemp As String
Stemp = InputBox("输入新联系人名字,不输内容则停止复制")
If Nz(Stemp) = "" Then Exit Sub
'当前为新记录则进行保存
If Me.NewRecord Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'将RecordsetClone定位到当前(被复制)的记录位置
Me.RecordsetClone.Bookmark = Me.Bookmark
'添加新记录
DoCmd.GoToRecord acActiveDataObject, , acNewRec
'复制所需的字段数据
Me![公司名称] = Me.RecordsetClone![公司名称]
Me![私人电子邮件] = Me.RecordsetClone![私人电子邮件]
'用输入框输入需改变的字段
Me![名字] = Stemp
'重复执行当前按钮代码
Call Command47_Click
End Sub

作者相关文章:分阶段录入记录

》上一篇文章窗体背景渐变效果


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access开发平台--判断日期型数据不能重复录入的两种方法  【麥田  2012/12/4】
Access开发平台--判断数值型数据不能重复录入的两种方法,数字...  【麥田  2012/12/5】
【Access入门】控制输入字符长度,限制输入数据位数、长度的示例...  【麥田  2012/12/24】
今晚8点公益讲座《录入数据的两种方式》  【周芳  2013/3/26】
【Access基础】限制录入的条数/限制表中数据只能录入多少条记录  【缪炜  2013/5/5】
保存时,检测全称禁止重复和非录入人不能修改  【王三平  2013/7/11】
 
 访客评论
2009/9/20图图
哥们,你太好了,

2009/9/12天涯
有用

2009/6/24琴儿
哈,蓝大哥,真棒,顶!

总记录:3篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

trynew

文章分类

文章存档

友情链接