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

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