问题：

如何重复上一条记录？

有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用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