Office中国论坛/Access中国论坛

标题: 如何实际一边输入一边计算 [打印本页]

作者: accben 时间: 2016-12-20 14:30
标题: 如何实际一边输入一边计算
用change事件都不行。

场景：t1、t2、t3 一共3个文本。
t3 = t1 x t2

输入t1 = 3
在t2输入1时（焦点仍在t2)，即时显示t3=3
在t2输入11时（焦点仍在t2)，即时显示t3=33
在t2输入111时（焦点仍在t2)，即时显示t3=333

ACCESS用哪个事件可以实现？谢谢！

作者: roych 时间: 2016-12-20 15:19
更改事件（change)，改text，不要用value。http://www.office-cn.net/thread-121123-1-1.html

作者: accben 时间: 2016-12-20 15:34

roych 发表于 2016-12-20 15:19
更改事件（change)，改text，不要用value。http://www.office-cn.net/thread-121123-1-1.html

用text更加出错。
提示：除非控件获得焦点，否则不能引用控件的属性或方法。

作者: accben 时间: 2016-12-20 15:37
上传附件。

作者: fd901028 时间: 2016-12-20 15:56
本帖最后由 fd901028 于 2016-12-20 17:25 编辑

下班之前又看了一下这个问题，发现还真不简单，这样行不行？
注意：这段代码没有对t1,t2用户输入的数据类型进行判断，若用户输入数据类型不对会报错。判断代码上一个回复有有链接.

Private Sub t2_Change()

Dim temStr As Long                      ''定义一个中间变量我假定没有小数，类型用Long, 有小数请用其他类型
temStr = CLng(t2.Text)                ''设置变量=t2的"值"，用 Text，Value不好使
Me.t3 = CLng(t1.Value) * temStr    ''t1 的"值"用 Value，Text不好使

                                       ''为啥不好使？我这样理解（非官方哈）Text是用于显示的、正在编辑的，而Value是完成的、传给后续表单处理的。Text完了Value才有值。

End Sub

作者: Henry D. Sy 时间: 2016-12-20 20:12

Private Sub t1_Change()
Me.t3 = Val(Nz(Me.t1.Text)) * Val(Nz(Me.t2))
End Sub
Private Sub t2_Change()
Me.t3 = Val(Nz(Me.t1)) * Val(Nz(Me.t2.Text))
End Sub

复制代码

作者: roych 时间: 2016-12-21 01:51

accben 发表于 2016-12-20 15:34
用text更加出错。
提示：除非控件获得焦点，否则不能引用控件的属性或方法。

6楼已给出正确的方法了，请自行贴入代码执行。

作者: accben 时间: 2016-12-22 11:48
Henry D. Sy
roych
两位辛苦了！谢谢两位的诚意解答！

通常情况下，我在使用ACCESS都会对文本框加以格式限制，如我设置文本是货币，如果在文本输入文字字符时，就会出错。
因此都不会对文本框的内容加以检测是否符合格式限制。
但用VB6时一般都会需要对文本的格式检测是否符合。

但通过这个例子，仍有疑问：
文本加属性与默认属性有何区别?如t1与t1.text与t1.value有什么区别？

作者: Henry D. Sy 时间: 2016-12-22 12:00
本帖最后由 Henry D. Sy 于 2016-12-22 12:01 编辑

1.value属性是默认属性,也就是说t1与t1.value是一样的
2.当控件获得焦点时，Text 属性将包含控件中当前的文本数据，而 Value 属性将包含控件上一次保存的数据。当焦点移动到另一控件时，控件的数据将会更新，并且 Value 属性将设置为这一新值。在重新获得焦点之前，Text 属性设置是不可用的
控件更新后,而不移动焦点，则 Text 属性和 Value 属性的设置将是相同的。

作者: accben 时间: 2016-12-22 13:07
谢谢Henry D. Sy版主。

作者: accben 时间: 2016-12-23 15:45
谢谢 fd901028

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