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