MsgBox后的Me.Combo7.SetFocus 不执行？

李子　发表于：2017-02-24 11:40:59 　

笔者写了一段代码，从COMBO7中选择数据源的数据项，然后判断选项是否空，或是否输入字符不在选项中。

当输入不在选项中时，因控件本身做了控制，就会触发报错，然后给COMBO7焦点，让用户重新选择，这个执行没问题；

但当输入为空时，按照代码的逻辑，应该也同样给COMBO7焦点（代码中的第一个 Me.Combo7.SetFocus ），让用户重新选择，可却不能成功。不知为何？

请哪位大侠给指点一下。多谢！

Private Sub Combo7_AfterUpdate() '选取查询条件字段

On Error GoTo Err_Combo7_AfterUpdate

If Not IsNull(Me.Combo7.Value) Then
Select Case Me.Combo7.Column(3)
Case Is = "文本" '选择了文本型字段
...
    Case Is = "日期/时间" '选择了日期型字段
...
End Select
Else
  MsgBox "无效选择，请重新选择！", vbOKOnly
Me.Combo7.SetFocus '重新选择
End If

Exit_Combo7_AfterUpdate:
Me.Combo7.SetFocus '重新选择
Exit Sub

Err_Combo7_AfterUpdate:
MsgBox Err.Description
Resume Exit_Combo7_AfterUpdate

End Sub

Top

宏鹏发表于：2017-02-24 12:03:50

先把焦点移到别的控件，再移回来

Top

李子发表于：2017-02-24 13:03:48

这个办法果然可以。多谢！但改为以下：

Private Sub Combo7_AfterUpdate() '选取查询条件字段
On Error GoTo Err_Combo7_AfterUpdate

If Not IsNull(Me.Combo7.Value) Then
Select Case Me.Combo7.Column(3)
Case Is = "文本" '选择了文本型字段

Case Is = "日期/时间" '选择了日期型字段

End Select
Else

MsgBox "无效选择，请重新选择！", vbOKOnly
Me.List9.SetFocus
Me.Combo7.SetFocus '重新选择

End If

Exit_Combo7_AfterUpdate:
Me.Combo7.SetFocus '重新选择
Exit Sub

Err_Combo7_AfterUpdate:
MsgBox Err.Description
Resume Exit_Combo7_AfterUpdate

End Sub

本人又在COMBO7的获得焦点方法中，设置下拉框自动打开：

Private Sub Combo7_GotFocus()
Me.Combo7.Dropdown
End Sub

根本连反应都没有。可找遍所有的教程，都说这样是可以的。哎！微软的东西，想说爱你不容易呀！

Top

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

Access交流中心

MsgBox后的Me.Combo7.SetFocus 不执行？