acce 新手来看：如何重复上一条记录？

文章作者 100test 发表时间 2007:09:06 11:38:01
来源 100Test.Com百考试题网

问题：

如何重复上一条记录？

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