[VBA] Listfield --> Problem mit RemoveItem

[Druid]

Hallo Forum,

ich habe folgendes Problem:

Ich benutze VBA in Verbindung mit Access. Ich habe ein Listenfeld in dem

46 Einträge mit je 12 Spalten stehen. Nun möchte ich das Listenfeld komplett

leeren.

In VB weiß ich dass es mit ListObject.Clear geht. In VBA gibt es diese

Methode leider nicht.

Deswegen habe ich folgendes gemacht:

Dim i As Integer


i = lst_overview.ListCount

i = i - 1


While i >= 0

    lst_overview.RemoveItem i

    i = i - 1

Wend

i=i-1 muss ich machen, da dass letzte Item in der Liste leer ist und

er eine Fehlermeldung bringt, wenn ich versuche es zu löschen.

Das Problem ist, dass jedesmal 2-4 Einträge stehen bleiben und ich die ganze

Schleife mehrfach hintereinander durchlaufen muss, bis alles weg ist.

Gibt es einen anderen Weg, wie z.B. in VB?

Oder habe ich irgendeinen Fehler im Code, den ich beim Besten nicht seh?

Thx & Greetz

Druid :cool:

[Druid]

Habe das Problem schon selber lösen können.

Da es sich um ein Listenfeld mit RowSourceType = "Werteliste" handelt

lässt sich das komplette Listenfeld mit foldendem Befehl löschen:

lst_overview.RowSource=""

Tja, manchmal kanns so einfach sein

Greetz

Druid :cool: