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