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

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 に答える