VBA/MS Access，清除新记录上的选择项目

Question

我有一个列表框，其中填充了表/查询，并使用一些 VBA 代码“选择”多个条目。在 Form_Current 上，我打算让代码选择该列表框中为当前记录选择的任何项目（保存在另一个表中）。

当我单击转到下一条记录时，先前选择的列表框项目仍处于选中状态。我该如何清除它们？我本以为一张新唱片会自动为我完成这一切。

我是 12 年来第一次重新接触 VBA，所以我不是专家。

谢谢， 汉斯

Answer 1

试试这个（在这里找到）：

Function ClearList(lst As ListBox) As Boolean
On Error GoTo Err_ClearList
    'Purpose:   Unselect all items in the listbox.
    'Return:    True if successful
    'Author:    Allen Browne. http://allenbrowne.com  June, 2006.
    Dim varItem As Variant

    If lst.MultiSelect = 0 Then
        lst = Null
    Else
        For Each varItem In lst.ItemsSelected
            lst.Selected(varItem) = False
        Next
    End If

    ClearList = True

Exit_ClearList:
    Exit Function

Err_ClearList:
    Call LogError(Err.Number, Err.Description, "ClearList()")
    Resume Exit_ClearList
End Function