VBA / MS Access, очистить выбранные элементы на новой записи

Question

У меня есть список, в котором я заполняю таблицу / запрос и "выбираю" несколько записей с небольшим количеством кода VBA.На Form_Current я намерен, чтобы код выбирал любые элементы в этом списке, которые выбраны для текущей записи (сохранены в другой таблице).

Когда я нажимаю, чтобы перейти к следующей записи, ранее выбранный списокпредметы все еще выбраны.Как мне их очистить?Я бы подумал, что новый альбом сделает все это для меня автоматически.

Я только возвращаюсь в VBA впервые за 12 лет, так что я не гуру.

Спасибо, Ганс

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