access新手来看：如何重复上一条记录？
2024-07-21 02:09:30
供稿：网友
新手来看：如何重复上一条记录？
问题：
如何重复上一条记录？
有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用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+'(单引号)可以复制上一条记录同一字段内容。
方法二：
用controls循环的代码如下：
private sub autowriterecord()
'自适应
on error goto err_autowriterecord
dim d '创建一个变量
set d = createobject("scripting.dictionary")
dim i as long
for i = 0 to me.controls.count - 1
if me.controls(i).controltype = actextbox _
or me.controls(i).controltype = accombobox _
or me.controls(i).controltype = aclistbox _
or me.controls(i).controltype = accheckbox _
or me.controls(i).controltype = acoptionbutton then
if me.controls(i).name <> "编号" then
'自动编号字段不可写，所以除外，可以用on error resume next 忽略
d.add me.controls(i).name, me.controls(i).value
end if
end if
next i
'原理很简单，先将控件值赋值给变量
'然后在添加记录后再将该变量值赋值给控件
docmd.gotorecord , , acnewrec
dim k
k = d.keys
for i = 0 to d.count - 1
me.controls(k(i)).value = d(k(i))
next i
set d = nothing
exit_autowriterecord:
exit sub
err_autowriterecord:
msgbox err.description
resume exit_autowriterecord
end sub
private sub autowriterecord_1(strcontrolname as string)
'人工定义控件名
on error goto err_autowriterecord
dim d '创建一个变量
set d = createobject("scripting.dictionary")
dim strsname() as string
strsname = split(strcontrolname, ";")
dim i as long
for i = 0 to ubound(strsname) - 1
d.add strsname(i), me.controls(strsname(i)).value
next i
'原理很简单，先将控件值赋值给变量
'然后在添加记录后再将该变量值赋值给控件
docmd.gotorecord , , acnewrec
for i = 0 to ubound(strsname) - 1
me.controls(strsname(i)).value = d(strsname(i))
next i
set d = nothing
exit_autowriterecord:
exit sub
err_autowriterecord:
msgbox err.description
resume exit_autowriterecord
end sub
测试：
private sub command16_click()
'autowriterecord
autowriterecord_1 "字段1;字段2;字段4;"
end sub
http://www.access911.net 站长收藏
菜鸟学堂：
