拆分一個數組並使用它來引用另一個表並對另一個相關字段求和

Question

在 Access 中，我有一個 MultiSelect 列表中的分區號數組，該列表以逗號分隔的數組形式位於文本框中。 我想拆分數組。 拆分后，我希望您使用部門編號來引用部門表並添加與每個部門相關的商店數量。 該表有部門 1，商店數量 10，部門 2，商店數量 20

我試圖拆分數組，但我不知道從那里到 go 的位置。

Private Sub Stores_Impacted_Click()

    Dim TextString As String
    Dim Result() As String
    TextString = Me!mySelections.Value
    Result = Split(TextString, " ")
    Dim item As Variant
    For Each item In Result
  
    Next item
End Sub

Answer 1

您可以使用DCount和單個代碼行：

    For Each item In Result
        Debug.Print DCount("*", "DivisionTable", "Division = '" & item & "'")
    Next item