vba - 您可以在 MS Access 的选项卡控件中设置事件吗？

Question

我整天都在网上搜索这个。但没有运气。

您可以设置进入/离开选项卡时的事件吗？

IE

OnExit(Tab1)
Do something

谢谢

Answer 1

根据您的程序流程，您可以尝试：

Private Sub Combo3_Exit(Cancel As Integer)
    If IsNull(Me.Combo3) Then
        MsgBox "No exit"
        Cancel = True
    End If
End Sub

Private Sub Form_Current()
    Me.Combo3.SetFocus
    ''Or to refer to a subform from the main form
    Me.subformcontrolname.Form.Combo3.SetFocus
End Sub

选项卡是否包含子表单或仅包含主表单中的控件？

子表单有一个 Exit 事件，因此如果您只担心进入子表单后不应该在未完成数据的情况下离开，您可以：

Private Sub subformcontrolname_Exit(Cancel As Integer)
    If IsNull(Me.subformcontrolname.Form.Combo3) Then
        Me.subformcontrolname.Form.Combo3.SetFocus
        MsgBox "No exit"
        Cancel = True
    End If
End Sub

Answer 2

虽然这不是您想要的，但您可以不处理退出，而是简单地阻止用户单击其他地方。为此，请将一些代码附加到您的组合框1，这些代码基本上.Enabled=X为选项卡视图之外的所有元素设置 - 其中X由组合框的状态决定...