Office中国论坛/Access中国论坛

标题: [求助]条件执行语句不会做，谢谢帮忙解答 [打印本页]

作者: xmxiaohe 时间: 2007-3-17 20:53
标题: [求助]条件执行语句不会做，谢谢帮忙解答
[求助]条件执行语句不会做，谢谢帮忙解答

问题在以下例子里：

[attach]23593[/attach]

作者: bergyan 时间: 2007-3-17 21:50
判断后用一撤消上一步动作即可实现

Private Sub 借方_AfterUpdate()
If 借方 > 贷方 Then
Undo
借方.SetFocus
Else
余额= 贷方 - 借方
End If
End Sub

作者: andymark 时间: 2007-3-17 22:19
也可以不用Undo

Private Sub 借方_AfterUpdate()
If 借方 - 贷方 > 0 Then
MsgBox "借方不能大于贷方"
借方 = 0
余额 = 贷方 - 借方
借方.SetFocus
Else

余额 = 贷方 - 借方
End If

End Sub

作者: xmxiaohe 时间: 2007-3-17 23:14
非常感谢andymark斑竹.........

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