none
Auflistung der EInträge eines Listenfelds

    Frage

  • Ich stehe auf dem Schlauch:

     

    Ich möchte in einer Schelife alle Zeilen (items) eins Listenfeldes durchlaufen

    for each item in me.listenfeld.listitems  geht aber nicht.

     

    Wie kreige ich das hin ?

    Donnerstag, 9. Juni 2011 05:43

Antworten

  • hi,

    jo, das ist korrekt. Du brauchst eine altmodische Schleife:

    Dim Count As Long
    For Count = 0 To listenfeld.ListCount - 1
      Debug.Print listenfeld.Columns(Count, 0)
    Next Count

    Microsoft MVP Office Access
    https://mvp.support.microsoft.com/profile/Stefan.Hoffmann
    • Als Antwort markiert NicoNi Donnerstag, 9. Juni 2011 12:41
    Donnerstag, 9. Juni 2011 08:20
    Moderator
  • NicoNi wrote:
    >
    > Ich möchte in einer Schelife alle Zeilen (items) eins Listenfeldes
    > durchlaufen
    >
    > for each item in me.listenfeld.listitems  geht aber nicht.
     
    Eine Auflistung dafür gibt's nicht.
    Durchlaufen und lesen geht z.B. so:
     
    Dim i As Long
     
    For i = 0 To Me!Listenfeld.ListCount - 1
        Debug.Print  Me!Listenfeld.ItemData(i)
    Next i
     
    For Each geht dann z.B. um die Auflistung der ausgewählten
    Elemente (ItemsSelected) zu durchlaufen.
     
    --
    Servus
    Karl
    *********
     
     
     
    • Als Antwort markiert NicoNi Donnerstag, 9. Juni 2011 12:40
    Donnerstag, 9. Juni 2011 08:28

Alle Antworten

  • hi,

    jo, das ist korrekt. Du brauchst eine altmodische Schleife:

    Dim Count As Long
    For Count = 0 To listenfeld.ListCount - 1
      Debug.Print listenfeld.Columns(Count, 0)
    Next Count

    Microsoft MVP Office Access
    https://mvp.support.microsoft.com/profile/Stefan.Hoffmann
    • Als Antwort markiert NicoNi Donnerstag, 9. Juni 2011 12:41
    Donnerstag, 9. Juni 2011 08:20
    Moderator
  • NicoNi wrote:
    >
    > Ich möchte in einer Schelife alle Zeilen (items) eins Listenfeldes
    > durchlaufen
    >
    > for each item in me.listenfeld.listitems  geht aber nicht.
     
    Eine Auflistung dafür gibt's nicht.
    Durchlaufen und lesen geht z.B. so:
     
    Dim i As Long
     
    For i = 0 To Me!Listenfeld.ListCount - 1
        Debug.Print  Me!Listenfeld.ItemData(i)
    Next i
     
    For Each geht dann z.B. um die Auflistung der ausgewählten
    Elemente (ItemsSelected) zu durchlaufen.
     
    --
    Servus
    Karl
    *********
     
     
     
    • Als Antwort markiert NicoNi Donnerstag, 9. Juni 2011 12:40
    Donnerstag, 9. Juni 2011 08:28