首页 > 数据库 > Access > 正文

access新手来看:如何重复上一条记录?

2020-09-03 22:54:04
字体:
来源:转载
供稿:网友

问题:

如何重复上一条记录?

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

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表