如何实际一边输入一边计算

accben

用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

更改事件（change)，改text，不要用value。http://www.office-cn.net/thread-121123-1-1.html

accben

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

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

accben

上传附件。

fd901028

下班之前又看了一下这个问题，发现还真不简单，这样行不行？
注意：这段代码没有对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

1. Private Sub t1_Change()
   
2.     Me.t3 = Val(Nz(Me.t1.Text)) * Val(Nz(Me.t2))
   
3. End Sub
   
4. 
   
5. Private Sub t2_Change()
   
6.     Me.t3 = Val(Nz(Me.t1)) * Val(Nz(Me.t2.Text))
   
7. End Sub

复制代码

roych

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

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

accben

Henry D. Sy
roych
两位辛苦了！谢谢两位的诚意解答！

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

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

Henry D. Sy

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

accben

谢谢Henry D. Sy版主。