0

我在 Access Database 2016 中有一个表单,当通过另一个表单中的按钮访问时,它会按应有的方式填充表单的顶部,但不会激活选项卡以便可以输入其他信息。第一次(保险)的按钮控件有这个编码。

    Private Sub Com_Insurance_Click()
    On Error GoTo err_Com_Insurance_Click

    Dim Master As String

    Master = "Insurance_Master"

    DoCmd.OpenForm Master, acNormal


    exit_Com_Insurance_Click:
        Exit Sub

   err_Com_Insurance_Click:
        MsgBox Err.Description
        Resume exit_Com_Insurance_Click

   End Sub

然后这会打开“Insurance_Master”表单,并且该表单的顶部会很好地填充。只是在此表单中途创建的选项卡保持无响应。此表单打开的代码是:

    Private Sub Form_Open(Cancel As Integer)
    On ERRO GoTo err_Form_Open

    Age_Ins.SetFocus

    Forms!frmMaster_search.Visible = False


    exit_Form_Open:
        Exit Sub

    err_Form_Open:
        MsgBox Err.Description
        Resume exit_Form_Open

    End Sub

我不确定我错过了什么,非常感谢您的帮助。

4

0 回答 0