Listboxen in Listview aut true setzten
05.01.2023 11:49:55
Thomas
Do While Not rs.EOF
For i = 1 To Me.ListView1.ListItems.Count
If Me.ListView1.ListItems(i).SubItems(5) = rs.Fields(1).Value And Me.Mitarbeiter_ID.Value = rs.Fields(0).Value Then
Me.ListView1.ListItems(i).Checked = True
End If
Next i
rs.MoveNext
Loop
Er springt auch bis zu dem "Me.ListView1.ListItems(i).Checked = True". Allerdings bleiben die Checkboxen leer.