很多软件里面都有这个功能啊?
原理非常简单。
只要添加一个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+'(单引号)可以复制上一条记录同一字段内容。
关于此主题请参考专题地址:http://access911.net/index.asp?board=4&recordid=71FAB61E14DC
[此贴子已经被作者于2004-1-4 11:48:59编辑过]
|