0

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
4

1 に答える 1

2

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
于 2014-02-22T23:26:07.093 に答える