Podświetl wiersze w polu listy z wartości w zestawie rekordów - dostęp ms, access-vba

W moich formularzach Załaduj zdarzenie Ładuję listęklienci z tabeli sql. Na moim bieżącym nawet próbuję zapętlić pole listy i podświetlić wiersze z mojego zestawu rekordów. Mam to, ale to nie działa. Czego mi brakuje?

For i = 0 To Me.ClientList.ListCount - 1
If Me.ClientList.Column(0, i) = rs.Fields(0) Then
Me.ClientList.Selected(i) = True
rs.MoveNext
End If

Next

Odpowiedzi:

Dowiedziałem się, że Me.ClientList.ItemData była wartością tekstową i rs.Fields(0) był int. Więc użyj CInt przekonwertować i będzie oceniać poprawnie. Mam nadzieję że to pomoże.

If CInt(Me.ClientList.ItemData(i)) = rs.Fields(0) Then
Me.ClientList.Selected(i) = True
rs.MoveNext
End If