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 站長收藏
菜鳥學堂：
