✔ ListView Steuerelement Recordset

[RavelinePower]

Hy Leute.

Ich versuche einemListView Steuerelement VB6 in MS Access zu erklären wo die Daten sich befinden.

Tabelle1 Aufbau

Datum und Währung

Befindet sich aber nun 2 mal der gleiche Wert in Währung kommt die Fehlermeldung Laufzeitfehler "KEy is not unique in colection"

Mein Code lautet:.

Dim objListView As listview
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objListItem As ListItem

Set db = CurrentDb
Set rst = db.OpenRecordset("tblMonatsUmsatz", dbOpenSnapshot)
Set objListView = Me!listview.Object

Do While Not rst.EOF

Set objListItem = objListView.ListItems.Add(, "a" & rst![Währung], rst!Datum)

With objListItem
.ListSubItems.Add , , rst!Währung
.ListSubItems.Add , , rst![Datum]
End With
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
Set db = Nothing
End Sub



Kann mir da einer Helfen das bei Währung der gleiche Eintrag auch geht

Ich danke im vorraus.

MfG Sascha

 

[RavelinePower]

Habe es selbst herrausgefunden.

Und zwar
Set objListItem = objListView.ListItems.Add(, "a" & rst![Währung], rst!Datum)

muss lauten :
Set objListItem = objListView.ListItems.Add(, "a" & rst![ID], rst!Datum)


Bye