vba - 最佳实践 - 访问表单选项卡控件列表框所选项目

Question

什么有效...

我有一个Access我有一个表单，其中文件夹有两个页或标签。其中每个都有自己的与标签主题相关的组合框。通过查看我想要的表单，文件夹，选项卡，然后拉出所有选定的值，我想要一个相当简单的方法来做到这一点。我不知道为了得到这些信息我不得不double for loop。

无论如何，这是我的足够好的解决方案..

Private Sub getComboBoxInsideTabControl()

    Dim selectedPage As Page
    Dim pageIter As Page
    Dim ctrl As Control
    Dim varItm As Variant
    Dim str As String
    Set selectedPage = Me.folder1.Pages(1)

    ' GETS THE CONTROLS ON A PAGE
    For Each ctrl In selectedPage.Controls
        If ctrl.Name = "fields_lb" Then
            MsgBox ("ok...")
            ' SEARCHES THROUGH A COMBOBOX CONTROLS SELECTED ITEMS
            For Each varItm In ctrl.ItemsSelected
            str = str & ctrl.ItemData(varItm) & ","
            Next varItm
        End If
    Next ctrl
    MsgBox (str)

End Sub

我所希望的......

我真的只想知道是否有更简单的方法。例如，我有点想要这样的东西：

Dim results As String
Set results = Me.folder1.Pages(1).Controls("fields_lb").ItemsSelected

有没有更好的方法可以解决这个问题？