问题:
如何重复上一条记录?
有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用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+'(单引号)可以复制上一条记录同一字段内容。
新闻热点
疑难解答