问题: 如何重复上一条记录? 有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用copy功能把上一笔的资料复制到下一笔的相对应的文本框和组合框内.最好是做成按钮式,即一个复制按钮和一个粘贴按钮。 方法一: 很多软件里面都有这个功能啊? 原理非常简单。 只要添加一个command BUTTON 就可以了。 添加记录的代码相信大家都知道了。 Private Sub Command16_Click() On Error GoTo Err_Command16_Click DoCmd.GoToRecord , , acNewRec exit_command16_click: Exit Sub err_command16_click: MsgBox Err.Description Resume Exit_Command16_Click End Sub 我们更改一下即可,比如说现在有一个文本框,当然了,实际情况你可以再加代码,或者干脆用CONTROLS循环来做。 Private Sub Command16_Click() On Error GoTo Err_Command16_Click dim strTemp as string strTemp=TextBox1.value '原理很简单,先将控件值赋值给变量 '然后在添加记录后再将该变量值赋值给控件 DoCmd.GoToRecord , , acNewRec TextBox1.value=strTemp Exit_Command16_Click: Exit Sub err_command16_click: MsgBox Err.Description Resume Exit_Command16_Click End Sub 另外 Ctrl+'(单引号)可以复制上一条记录同一字段内容。 |
免责声明:本站部分文章和图片均来自用户投稿和网络收集,旨在传播知识,文章和图片版权归原作者及原出处所有,仅供学习与参考,请勿用于商业用途,如果损害了您的权利,请联系我们及时修正或删除。谢谢!
始终以前瞻性的眼光聚焦站长、创业、互联网等领域,为您提供最新最全的互联网资讯,帮助站长转型升级,为互联网创业者提供更加优质的创业信息和品牌营销服务,与站长一起进步!让互联网创业者不再孤独!
扫一扫,关注站长网微信