問題：
如何重復上一條記錄？
有一個窗體,上面有多個文本框和組合框,因為目錄這筆資料與下一筆資料大部門都是一樣的,能不能利用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+'(單引號)可以復制上一條記錄同一字段內容。
