[求助]如何离开记录前，校检不合格的修改（新增）的记录不予保存

百度千秋

我有一个窗体，可以新增或是修改记录。我希望得到的效果是离开这个记录时，系统对几个字段的数字进行公式验算，对于不符合公式的数字。弹出提示窗，并返回这个记录。（附：是数据表子窗体）

现在我做的代码的结果是，当新增或是修改记录后离开此条记录时，对于不合校验公式的情况，弹出提示窗，但并不是锁定在此记录上。错误的记录依然可以保存下来，随之指针（不知可否这样说）移到其他记录上。

请高手给予我帮助，是不是我下面这个语句红色部分用得不对？

-------------------以下是代码------------------------------------

Private Sub Form_BeforeUpdate(Cancel As Integer)

If 房款 + 单位资助 + 个人交纳 + 售房收入 + 维修基金 + 贷款 + 差错 <> 存折帐 + 基金帐 + 房款帐 Then

MsgBox " 数据不平衡请核对", vbInformation, SoftName

房款.SetFocus

End If

End Sub

[此贴子已经被作者于2004-9-3 10:26:19编辑过]

kunlun

你的msgbox应该再加上  vbyesno,然后，你在下面再if 选择，当＝yes时执行新增，否则执行undo撤消

hi-wzj

Private Sub Form_BeforeUpdate(Cancel As Integer)

If 房款 + 单位资助 + 个人交纳 + 售房收入 + 维修基金 + 贷款 + 差错 <> 存折帐 + 基金帐 + 房款帐 Then

    MsgBox " 数据不平衡请核对", vbInformation, SoftName

    Cancel =trueEnd If

End Sub

百度千秋

谢谢。一溜小跑着去试了