新增记时自动复制上一记录的某些控件值

时　间:2005-09-21 06:00:00
作　者:海狸先生   ID：210  城市：丽水
摘　要:新增记时自动复制上一记录的某些控件值
正　文:

'以下代码大量参考了911网站的代码

Public Sub CopyRecord(frm As Form, strControlName As String)
    On Error Resume Next
    Static j As Boolean
    Dim D, i As Long
    Set D = CreateObject("Scripting.Dictionary")

    Dim strSName() As String
    strSName = Split(strControlName, ";")
    If Not j And frm.NewRecord Then
        frm.Recordset.MoveLast
        j = True
        For i = 0 To UBound(strSName) - 1
            D.Add strSName(i), frm.Recordset(frm(strSName(i)).ControlSource).Value
        Next i
        DoCmd.GoToRecord , , acNewRec
        For i = 0 To UBound(strSName) - 1
            frm(strSName(i)).Value = D(strSName(i))
        Next i
        j = False
    End If
    Set D = Nothing

End Sub

'用法，要在current事件中调用，注意是控件名，而不是字段名，并且最后的;号不要忘记加

Private Sub Form_Current()
CopyRecord Me, "控件1;控件2;控件3;"
End Sub