ACCESS 曲线救国,设置控件焦点

setFocus

docmd.gotocontrol

都没用?教你一招,百试不爽,我管它叫焦点转移

我们先用setFocus方法设置它的焦点,然后运行程序,并让它触发setFocus方法所在的事件,然后观察程序中,此时是哪个控件获取了焦点,如下图,我在文本框的按下事件中触发了setFocus

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Me.Text1.SetFocus
    End If
End Sub

然而程序界面上,得到焦点的控件却是一个按钮,明显达不到我们需要的效果:

 此时,我们只需要设置这个按钮的 获得焦点 事件,来完成焦点转移就可以了:

Private Sub Command101_GotFocus()
    Text1.SetFocus　　'焦点转移
End Sub