窗体问题交流

cangqiong

如题!
在窗体上

前提:  每个部门填写 Y01  至  Y12  并且 填写 统计1、统计2、统计3、统计4

问题:  填写 Y01 至 Y12 并且 Y01 至 Y12的“和”等于 统计1 + 统计2 + 统计3 + 统计4 如果他们的“和”不相等。则系统提示报错。并且不充许填写下一条记录.................请问这段程序怎么编写

huangxiuwen

在窗体的更新事件这段代码。
当Y01 至 Y12的“和”不等于 统计1 + 统计2 + 统计3 + 统计4 ，提示错误，并中止保存。

Henry D. Sy

应该是更新前

Henry D. Sy

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim m, n As Long
    m = Me.yO1 + Me.y02 + Me.y03 + Me.y04 + Me.y05 + Me.y06 + Me.y07 + Me.y08 + Me.y09 + Me.y10 + Me.y11 + Me.y12
    n = Me.统计1 + Me.统计2 + Me.统计3 + Me.统计4
    If m <> n Then
        MsgBox "wrong"
        Cancel = True
'        Me.Undo
    End If
End Sub

cangqiong

THANK YOU!