求助,如何在未绑定文体框输入正数自动转换为负数

a30088

file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\906366881\QQ\WinTemp\RichOle\6}N8%~WSWAER{T}SNEGEYW0.jpg
求助,如何在未绑定的文体框输入正数自动转换为负数 (比如输入"1"自动变为"-1")

a30088

也就是输入正数会自动变为负数

access新新新手

a30088 发表于 2016-6-18 15:44
也就是输入正数会自动变为负数

Private Sub 空差_AfterUpdate()
Me.空差 = "-" & Me.空差

End Sub

a30088

谢谢!我用了一个本办法

Private Sub T3_AfterUpdate()
If T3 > 0 Then
T3 = -1 * T3
End If
End Sub

roych

其实if都可以不写的。这是最简洁的写法：
Private Sub T3_AfterUpdate()
T3 = -Abs([T3])
End Sub
说明：
Abs取绝对值，因此这时候对于任何数，T3都转为非负值了。再加上符号，就成为相反数了。

作为论坛里为数不多的啰嗦分子，Roy还是想说两句。
-------------------------------------------------------
在文本框里显示正负又有什么用呢？数据最终还是要更新到数据表的，对不对？
因此，只需要在执行查询时设置一下就好了。例如，update 表1 set 表1.字段1=-abs([T3])
也许你的查询是追加查询，不过类似地：
Insert into 表1(字段1,字段2……字段N） select -Abs([T3]) as 字段1,字段2……字段N from 表2

pyh512

学习了

a30088

roych 发表于 2016-6-19 02:46
其实if都可以不写的。这是最简洁的写法：
Private Sub T3_AfterUpdate()
T3 = -Abs([T3])

是追加查询,谢谢roych老师!

ardu95

学习了