我在 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
我不确定我错过了什么,非常感谢您的帮助。