设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2389|回复: 7

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

[复制链接]

点击这里给我发消息

发表于 2016-6-18 15:34:59 | 显示全部楼层 |阅读模式
本帖最后由 a30088 于 2016-6-18 15:36 编辑

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

 楼主| 发表于 2016-6-18 15:44:51 | 显示全部楼层
也就是输入正数会自动变为负数
发表于 2016-6-18 17:06:16 | 显示全部楼层
a30088 发表于 2016-6-18 15:44
也就是输入正数会自动变为负数

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

End Sub

点击这里给我发消息

 楼主| 发表于 2016-6-18 18:44:30 | 显示全部楼层
谢谢!我用了一个本办法

Private Sub T3_AfterUpdate()
If T3 > 0 Then
T3 = -1 * T3
End If
End Sub
发表于 2016-6-19 02:46:17 | 显示全部楼层
其实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
发表于 2016-6-20 09:48:49 | 显示全部楼层
学习了
回复

使用道具 举报

点击这里给我发消息

 楼主| 发表于 2016-6-21 18:08:52 | 显示全部楼层
roych 发表于 2016-6-19 02:46
其实if都可以不写的。这是最简洁的写法:
Private Sub T3_AfterUpdate()
T3 = -Abs([T3])

是追加查询,谢谢roych老师!
发表于 2016-7-10 05:43:49 | 显示全部楼层
学习了        
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 15:05 , Processed in 0.096211 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表