Question

ACCESS窗体控件动态统计文本框输入的字符数的问题。

目前碰到一个问题急待各位大侠赐教：在窗体上建立两个文本框TEXT1和TEXT2，TEXT1用于在不失去焦点的情况下一直输入文字，如何才能让TEXT2动态统计出TEXT1的字数，实在没招了，谢谢大侠们！！

Answer 1

我测试过，以下可行。
按照您的设计，将text2的属性“控件来源”设置为=Len([Text1])
将text1的属性“事件”中的“更改”事件设置如下：

Private Sub Text1_Change() '用“更改”事件会保证每键入或消除一个字符都激发事件，达到
你的要求，既动态变化
Me.Recalc ‘重新计算窗体上的计算控件，既每次text1更新时，计算text2的值
Me.Text1.SelStart = Nz(Len(Me.Text1) ) 'selstart确定选取文本的起始位置，实际上要达到光标
在文本的最后位置，用NZ()函数能保证文本框为null值时，
它值为0， 光标在起始位置
End Sub

Answer 2

不要通过建TEXT文本框来实现你所需目标。

简单举例
先建表，设[字段1]（文本型或备注型），是你输入文字的字段。然后在“查询”设计中，再建一个[字段2] ，并设 [字段2] ：len([字段1]) 就行了。
你立马可以试一下，在[字段1]输入文本完毕（按回车键），[字段2] 就显示[字段1]的字符串长度。
再建窗体，数据源就是刚才的查询。

追问

要回车才能更新，这样不行，TEXT1的位置要根据所输入的字符数量不断变化，而TEXT1要不断输入数据，不能失去焦点，所以不能等回车传递数值。