Office中国论坛/Access中国论坛

标题: 请教:在同一文本框里直接转换成大写金额? [打印本页]

作者: 打字比你快 时间: 2007-8-1 10:39
标题: 请教:在同一文本框里直接转换成大写金额?
有一文本框,me.text1,想在me.text1里输入小写金额如:120.25回车后直接在本文本里显示大写金额即:壹佰贰拾元贰角伍分.能不能行,谢谢.

作者: ytf123 时间: 2007-8-1 10:57
http://www.office-cn.net/forum.p ... 3%D0%B4%BD%F0%B6%EE

作者: 打字比你快 时间: 2007-8-1 11:19

原帖由 ytf123 于 2007-8-1 10:57 发表
http://www.office-cn.net/forum.php?mod=viewthread&tid=34324&highlight=%D7%AA%BB%BB%2B%B4%F3%D0%B4%BD%F0%B6%EE

不行呀,不符合要求呀.要在同一文本框回车后实现.

作者: 轻风 时间: 2007-8-1 11:22
晕，附件怎么上传？

作者: 一点通 时间: 2007-8-1 11:24
一个是数字格式,另一个是文本格式,如要转换必须将格式都转换,我觉得不可取的方法,也不直观,建议还是使用另一个文本框显示好一点

作者: 轻风 时间: 2007-8-1 11:27
在更新后事件中就行咯

Private Sub Text0_AfterUpdate()
If Not IsNumeric(Me.Text0) Then
  MsgBox "必需输入数字格式！", vbCritical, "错误"
  Exit Sub
End If
  Me.Text0 = ChMoney(Me.Text0)
End Sub

作者: zjxq1991 时间: 2007-8-1 11:44
标题: 学到很多
学到很多东西

作者: 打字比你快 时间: 2007-8-1 11:51

原帖由轻风于 2007-8-1 11:27 发表
在更新后事件中就行咯

Private Sub Text0_AfterUpdate()
If Not IsNumeric(Me.Text0) Then
  MsgBox "必需输入数字格式！", vbCritical, "错误"
  Exit Sub
End If
  Me.Text0 = ChMoney(Me.Text0)
End Sub

不错,谢谢!

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