vba - 使用变量传递元素名称

Question

我在 MS Access 表单上有一个多页面元素，我正在尝试使用 GetArgs 来识别使用下面的代码打开哪个页面。谁能帮助我将页面名称转换为 MS Access 可以接受的格式？

Dim WrdArray() As String
If Not IsNull(Me.OpenArgs) Then
    LoadAndLocation = Me.OpenArgs
    WrdArray() = Split(LoadAndLocation, "|")
    OriginalPage = WrdArray(1) 'This works and results in the correct page name eg Fina
    Me.OriginalPage.SetFocus 
End If

Answer 1

对 Access 不太熟悉，因此可能有一种更清洁的方法，但我认为这就是您正在寻找的。

Private Sub Tester()

    SetTabByName Me.TabCtl0, "Second" 'set by Caption

    SetTabByName Me.TabCtl0, "Page1"  'set by Name

End Sub


'Set tab control active page: match on tab name *or* caption...
Sub SetTabByName(tabCtrl As TabControl, sVal As String)
    Dim x As Long
    For x = 0 To tabCtrl.Pages.Count - 1
        If tabCtrl.Pages(x).Name = sVal Or _
           tabCtrl.Pages(x).Caption = sVal Then
            tabCtrl.Value = x
            Exit For
        End If
    Next x
End Sub