3

按下按钮时，我想在特定选项卡上打开表单。

点击事件我有：

DoCmd.OpenForm "MAIN_USER_FORM", acNormal, , "App_Ref = " & Me.App_Ref, , , "PRB"

在表格的公开事件中，我有：

If Me.OpenArgs = "PRB" Then
   Me.PRB_Validation.SetFocus

End If

PRB_Validation 是我希望打开的 MAIN_USER_FORM 中选项卡的名称。

我已经搜索了表格，但我无法让它工作，任何帮助都会很棒。提前致谢。

4

2 回答 2

3

您只需要检查OpenArgs表单的OnLoad事件，并将 TabCtontrol 的值设置为您要显示的页面的索引，如下所示：

Private Sub Form_Load()
    If OpenArgs = "PRB" Then
        TabCtl0.Value = PagePRB.PageIndex
    End If
End Sub

我制作了一个示例 accdb来显示完整的设置。

于 2013-08-26T00:41:12.153 回答
1

如果有人正在寻找您在另一个表单上有一个按钮的代码，并希望从中打开主表单并将用户带到特定的选项卡。

Private Sub YourButton_Click()
On Error GoTo Err_YourButton_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "YourFormName"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms![YourFormName]!YourPage.SetFocus

Exit_YourButton_Click:
    Exit Sub

Err_YourButton_Click:
    MsgBox Err.Description
    Resume Exit_YourButton_Click

End Sub
于 2016-09-11T16:56:24.283 回答