数据表复制上笔记录

时　间:2012-01-24 14:13:32
作　者:风行   ID：16058  城市：江阴
摘　要:数据表复制上笔记录
正　文:

Option Compare Database
Dim c, q, a, h
Private Sub Form_BeforeUpdate(Cancel As Integer)
    c = Me![check] '储存时记忆四个字段之数据
    a = Me![cash]
    q = Me![quan]
    h = Me![arch]
End Sub
Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.NewRecord = True Then   '输入新记录时，自动显示上次
    If DLookup("options", "选项") = 2 Then
        Me![check] = c            '记忆的四项数据
        Me![cash] = a
        Me![quan] = q
        Me![arch] = h
    Else
        Set m = Me.RecordsetClone
        If m.RecordCount > 0 Then
            m.MoveLast
            Me![check] = m("check")            '
            Me![cash] = m("cash")
            Me![quan] = m("quan")
            Me![arch] = m("arch")
        End If
    End If
End If
End Sub

点击下载此附件