변수를 사용하여 요소 이름을 전달합니다.

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