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

点击下载此附件