VBA listbox row kopieeren

[Verwijderd]

Normaal heb ik een sterke afkeer van vb(a) maar ik moet het nu gebruiken, wat ik wil doen is een rij uit een listbox kopieeren en plakken als een nieuwe rij in een andere listbox, en nu komt.... het ze hebben beiden drie columns.

Ik heb me helemaal suf gezocht/geprobeerd maar niks is tot nu toe gelukt

[whoami]

Je neemt de selectedrow, je add die aan de Items collection van de andere listbox, en je verwijderd de selectedrow uit de source-listbox.

Eenvoudig toch?

[Verwijderd]

whoami schreef op 04 June 2003 @ 15:38:
Je neemt de selectedrow, je add die aan de Items collection van de andere listbox, en je verwijderd de selectedrow uit de source-listbox.

Eenvoudig toch?

Ja het hoe heb ik ook wel kunnen bedenken maar hoe dit dan vervolgens uitgevoerd moet worden ? Wat ik ook probeer het mislukt in vba.

[whoami]

Wat heb je dan precies al geprobeerd, en wat is mislukken? Krijg je fouten? Crashed het? Wat doet het (niet) ?

[Verwijderd]

Als je dat wilt weten. Het laatste wat ik geprobeerd had was:

code:

Dim lst1 As ListBox, lst2 As ListBox
Dim itm As Variant

Set lst1 = Me!list_gerechten
Set lst2 = Me!list_gekozen

   For Each itm In lst1.ItemsSelected
          If lst2.RowSource = "" Then
             lst2.RowSource = lst1.ItemData(itm)
          End If
   Next itm

Maar dan neemt die alleen de eerste cel van de rij over

Maar heeft niemand een idee hoe het zou moeten ?

[ Voor 8% gewijzigd door Verwijderd op 04-06-2003 17:01 ]

[RayNbow]

Hier is een voorbeeldje hoe je de data van een ListBox kan opvragen:

Visual Basic:

    'Items aan ListBox1 toevoegen
    ListBox1.AddItem "Item 1"
    ListBox1.Column(1, ListBox1.ListCount - 1) = "Kolom 2 van Item 1"
    ListBox1.Column(2, ListBox1.ListCount - 1) = "Kolom 3 van Item 1"
    
    ListBox1.AddItem "Item 2"
    ListBox1.Column(1, ListBox1.ListCount - 1) = "Kolom 2 van Item 2"
    ListBox1.Column(2, ListBox1.ListCount - 1) = "Kolom 3 van Item 2"
    
    
    ListBox1.AddItem "Item 3"
    ListBox1.Column(1, ListBox1.ListCount - 1) = "Kolom 2 van Item 3"
    ListBox1.Column(2, ListBox1.ListCount - 1) = "Kolom 3 van Item 3"

    'Tweede Item selecteren in ListBox1
    ListBox1.ListIndex = 1
    
    'Data over pompen :)
    ListBox2.AddItem ""
    ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0)
    ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(ListBox1.ListIndex, 1)
    ListBox2.List(ListBox2.ListCount - 1, 2) = ListBox1.List(ListBox1.ListIndex, 2)

Zoals je kan zien maakt het niet uit of je ListBox.List(Row,Column) of ListBox.Column(Column,Row) gebruikt.

Edit: Nog wat extra info. AddItem zorgt ervoor dat het item onderaan de lijst wordt toegevoegd. Daarom gebruik ik ListCount - 1 om de index van het laatste item te krijgen.

[ Voor 14% gewijzigd door RayNbow op 04-06-2003 17:18 ]

[Verwijderd]

.List bestaat helaas niet in de vba van access en wanneer ik .column op deze manier gebruik krijg ik doodleuk te horen "object required". Maar toch bedankt

[RayNbow]

Oh? Access? Hmm, heb ik helaas geen VBA ervaring in
(Ik heb m'n code uitgeprobeerd in Word)

[ Voor 7% gewijzigd door RayNbow op 04-06-2003 17:37 . Reden: typo ]

[whoami]

Kan je niet ipv direct die Columns te accessen niet onmiddellijk een pointer krijgen naar het geselecteerde row?

Iets ala:

code:

ListBox1.List.SelectedItem

oid?