拆分一个数组并使用它来引用另一个表并对另一个相关字段求和

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