Office中国论坛/Access中国论坛

标题: 窗体问题交流 [打印本页]

作者: cangqiong 时间: 2008-11-11 14:19
标题: 窗体问题交流
如题!
在窗体上

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

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

作者: huangxiuwen 时间: 2008-11-12 00:25
在窗体的更新事件这段代码。
当Y01 至 Y12的“和”不等于统计1 + 统计2 + 统计3 + 统计4 ，提示错误，并中止保存。

作者: Henry D. Sy 时间: 2008-11-12 03:28
应该是更新前

作者: Henry D. Sy 时间: 2008-11-12 03:37
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 时间: 2008-11-12 08:00
THANK YOU!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)