Office中国论坛/Access中国论坛

标题: 文本框保持获得焦点问题 [打印本页]

作者: wenq0917 时间: 2007-6-15 01:45
标题: 文本框保持获得焦点问题
Private Sub test_LostFocus()
Dim strTest As String
strTest = Me.test.Text

If Len(strTest & vbNullString) = 0 Then
      MsgBox "Test 不能为空"
      Me.test.SetFocus

End If

End Sub

当test控件为空并失去焦点时,可以弹出"Test 不能为空"的提示框

但是窗体当前的焦点已经不在test控件上了,这是怎么回事?

谢谢

作者: andymark 时间: 2007-6-15 02:15
strTest = Me.test

去掉TEXT属性

作者: wenq0917 时间: 2007-6-15 05:16
没用

作者: 一点通 时间: 2007-6-15 05:54
先将焦点移动别的控件上,然后再回到自身控件

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