問(wèn)題：

如何重復(fù)上一條記錄?

有一個(gè)窗體,上面有多個(gè)文本框和組合框,因?yàn)槟夸涍@筆資料與下一筆資料大部門都是一樣的,能不能利用copy功能把上一筆的資料復(fù)制到下一筆的相對(duì)應(yīng)的文本框和組合框內(nèi).最好是做成按鈕式,即一個(gè)復(fù)制按鈕和一個(gè)粘貼按鈕。

方法一：

很多軟件里面都有這個(gè)功能啊?

原理非常簡(jiǎn)單。

只要添加一個(gè)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

我們更改一下即可，比如說(shuō)現(xiàn)在有一個(gè)文本框，當(dāng)然了，實(shí)際情況你可以再加代碼，或者干脆用CONTROLS循環(huán)來(lái)做。

Private Sub Command16_Click()

On Error GoTo Err_Command16_Click

dim strTemp as string

strTemp=TextBox1.value

'原理很簡(jiǎn)單，先將控件值賦值給變量

'然后在添加記錄后再將該變量值賦值給控件

DoCmd.GoToRecord , , acNewRec

TextBox1.value=strTemp

Exit_Command16_Click:

Exit Sub

err_command16_click:

MsgBox Err.Description

Resume Exit_Command16_Click

End Sub

另外 Ctrl+'(單引號(hào))可以復(fù)制上一條記錄同一字段內(nèi)容。