文本框

gaoyh2008

在文本框事件中如何设置VBA代码，以达到文本框输入的字符达到一定数目后自动激活回车键，转移焦点到下一个控件上，急盼大侠门出手。

aslxt

假如窗体有Text0和Text2两个文本框，要在Text0中设置规则：
Private Sub Text0_Change()
  If Len(Text0.Text) >= 5 Then
    Me.Text2.SetFocus
    'MsgBox "超过5个字符了！"
      End If
End Sub

gaoyh2008

回复 aslxt 的帖子

我目前的情况是窗体中有一文本框和一子窗体，子窗体根据此文本框的值作为查询条件更新，文本框输入由一卡机读取数据写入，现此卡机只能读取数据可没有回车确认功能，无法连续刷卡更新子窗本，必须手动按回车键，我的想法是有没有办法让文本框读取的字符达到一定数目后自动激活回车键，这样便可以连续刷卡更新子窗体储存数据了。
我的表达能力不强，不知道兄弟能否明白，望赐教，本人急用，谢谢！

todaynew

gaoyh2008 发表于 2011-3-17 21:53
回复 aslxt 的帖子

我目前的情况是窗体中有一文本框和一子窗体，子窗体根据此文本框的值作为查询条件更新， ...

可按2楼aslxt同志的处理方法办，将msgbox换成子窗体刷新语句即可：

Private Sub Text0_Change()
Me.Recalc
Me.Text0.SelStart = Len(Nz(Me.Text0.Value, 0))
If Len(Nz(Me.Text0.Value, 0)) >= 5 Then
    Me.子窗体.Form.Requery
End If
End Sub