/ / Markieren Sie Zeilen in der Listbox aus den Werten im Recordset - ms-access, access-vba

Markieren Sie Zeilen im Listenfeld aus Werten in Recordset - ms-access, access-vba

Auf meinen Formularen Ereignis laden lade ich eine Liste vonKunden aus SQL-Tabelle. In meinem aktuellen Status versuche ich, das Listenfeld zu durchlaufen und Zeilen aus meinem Datensatz hervorzuheben. Ich habe das, aber es funktioniert nicht. Was fehle ich?

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

Antworten:

0 für die Antwort № 1

Was ich herausgefunden habe war, dass die Me.ClientList.ItemData war Textwert und rs.Fields(0) war int. Also benutze CInt zu konvertieren und es wird richtig ausgewertet. Hoffe das hilft.

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