ListBox probleem

[hfoppen]

probleem met ListBox

kheb een formulier met 2 ListBox's

lstAlleStudenten en lstPPOStudenten. Het is de bedoeling dat wanneer je op "Toevoegen" klikt, dat de gegevens van de lstAlleStudenten naar de lstPPOStudenten wordt gekopieerd

er zijn 3 velden, maar hij kopieerd alleen veld A en niet B en C...

Private Sub knpToevoegen_Click()
Me.lstPPOStudenten.AddItem(Me.lstAlleStudenten.Value)

End Sub

het werkt wel (alleen veld A dus)

Wie o wie kan mij hiermee helpen?

 

[cbhonda]

Columns

Staan de velden onder elkaar (gewoon 3 items in de lstbox) of heb je 3 kolommen waar de gegevens naast elkaar staan?

 

[DENNIS90]

Bedoel je het zo?

Hallo Hfoppen,

Ik ga er vanuit, dat je met een "veld" een regel v.e. listbox bedoelt en die regel slechts één
item vertegenwoordigt, zoals bijvoorbeeld de naam v.d. student, of zijn/haar adres en/of zijn/haar woonplaats.

Derhalve is mijn uitgangspunt om je code te wijzigen niet vanuit de optiek dat de 3 gegevens
op één regel (in kolommen verspreid) zijn vastgelegd.

Private Sub knpToevoegen_Click()
    Dim Teller_Index As Integer
    For Teller_Index = 0 To Me.lstAlleStudenten.ListCount - 1
        Me.lstPPOStudenten.AddItem Me.lstAlleStudenten.List(Teller_Index)
    Next Teller_Index
End Sub

Groetjes.

 

[beheer25]

Er vanuitgaande dat het wel een "record" betreft dat van de ene listbox naar de andere listbox moet verhuizen:

Doel is om het record in de ene listbox aan de selectiecriteria te laten voldoen voor de tweede listbox. Hiervoor moet je dus de data van het geselecteerde record wijzigen zodat het aan de selectiecriteria van de tweede listbox voldoet.

Laat de knop hetvolgende uitvoeren:

Private Sub knpToevoegen_Click()
    me.sleutelveld = 1 '(waarde waardoor het record voldoet aan de criteria voor de tweede listbox)
    me.listbox1.requery
    me.listbox2.requery
End sub

Suc6,

Mark van Bree

 

[hfoppen]

lstAlleStudenten & lstPPOStudenten:

--------------------------------------------------------------
| Nummer | Voorletters | Naam |
--------------------------------------------------------------
| | | |
| | | |
--------------------------------------------------------------

Ik heb nu de volgende code gebruikt:

Private Sub knpToevoegen_Click()

Dim i As Integer
If Me.lstAlleStudenten.ListCount > 0 Then
    For i = 0 To Me.lstAlleStudenten.ListCount - 1
        Me.lstPPOStudenten.AddItem Me.lstAlleStudenten.List(i)
    Next i
End If
              
End Sub

De gegevens die in de lstAlleStudenten staat, worden wel met een qeury opgehaald. Wanneer ze naar lstPPOStudenten worden gekopieerd, moeten ze worden opgeslagen. (die student mag dan enkel rechts staan, en niet links)

Het werkt nog niet. Hij loopt te zeuren over die Me.lstAlleStudenten.List(i)

Hopelijk kan iemand mij helpen