VBA/MS访问，清除新记录中的选择项目

Question

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

当我点击去下一个记录时，先前选择的列表框项目仍然被选中。我如何清除它们？我会认为一个新的记录会自动为我做这一切。

我在12年来第一次回到VBA，所以我不是大师。

感谢， 汉斯

Answer 1

试试这个（found here）：

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