MS Access - VBA选择多个列表框项

Question

我正在使用Access 2013。

我有一个Access表单，其中有多个选择列表框从另一个表填充并保存到多值字段。

我在多选列表框中选择一些值，具体取决于另一个字段的值。

我可以使用以下代码执行此操作。

Private Sub Combo23_AfterUpdate()
    Dim i As Integer
        For i = 0 To Me.ListBox.ListCount - 1
            If (Me.ListBox.Column(4, i) = "Criteria") Then
                Me.ListBox.Selected(i) = True
                End If
        Next i
End Sub

此代码正常工作，但不保存到绑定字段。当我改变记录并且没有任何东西似乎被选中时。

但是如果我在运行VBA后手动选择一些值，它会更新表格。

有什么想法吗？