如何重复上一条记录？

时　间:2008-06-19 09:48:54
作　者:umvsoft整理   ID：16  城市：江阴
摘　要:如何重复上一条记录？

正　文:

问题：

如何重复上一条记录？

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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店