自动回车问题

西南风王　发表于：2009-07-26 18:34:08 　

请教一个问题：若文本框输入的数据长度等于5，则自动回车

蟹仔发表于：2009-07-26 19:14:58

Private Sub 控件名称_KeyUp(KeyCode As Integer, Shift As Integer)

If len(控件名称)>5 Then
下一个控件.SetFocus

End If
End Sub

蟹仔发表于：2009-07-26 19:29:10

忘记加text属性了，应该改成

Private Sub 控件名称_KeyUp(KeyCode As Integer, Shift As Integer)

If len(控件名称.text)>5 Then
下一个控件.SetFocus

End If
End Sub

我不知道你回车的作用是什么，一般来说就是把焦点放到下一个控件。如果另有用途，可以写相应的代码。测试过可行

总记录：2篇页次：1/1 9 1 :

Access交流中心