Office中国论坛/Access中国论坛

标题: 关于VBA语句的写法，我写的不能达到应有的效果。 [打印本页]

作者: ha0148 时间: 2018-3-23 03:08
标题: 关于VBA语句的写法，我写的不能达到应有的效果。
[attach]62528[/attach]
Private Sub 往来选项_AfterUpdate()
If Me.往来选项 <> "单据金额" Then
Me.往来金额 = Me.往来金额 * -1
End If
End Sub

以上是我写的语句，我知道我写的语句有问题。
我的意思，是不选择“单据金额”，选择别的什么就是负数，可如果要是选了别的选项两次又成正数。
请大家帮我修改一下，怎要才能做到，只要选“单据金额”永远都有为正数，选别的选项不管选多少次，永远都是负数。

作者: admin 时间: 2018-3-23 04:13
加个绝对值函数 abs

作者: ha0148 时间: 2018-3-25 09:56
谢谢，问题解决了。
If Me.往来选项＝ "单据金额" Then
Me.往来金额 =ABS( Me.往来金额)
ELSE
Me.往来金额 = ABS(Me.往来金额 )* -1
End If

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