Meervoudige selectie --> tekst gebruiken

[koenkorting]

Hallo,

Ik begin een flink eind op te schieten in Access. Dit is echt een wonderbaarlijk forum!
Mijn vraag:

Ik gebruik een filter op mijn formulier met meerkeuze-Keuzelijst. (Biermerken)
Daaronder komen de geselecteerde glazen weergegeven.
De VBA-code bevat de constructie ItemsSelected.Count ... enz.

Kan ik nu de namen vd aangeduide velden allen tesamen in een tekstvak zetten, gescheiden door een '-teken'?
Dit tekstvak wordt dan de hoofding van mijn printformulier...

bijv: Bush - Duvel - Jupiler

Gewoon uitlezen met sFilter is blijkbaar niet voldoende...

 

[OctaFish]

Ja, dat kan. Maar je moet de keuzelijst op een andere manier uitlezen dan bij een enkelvoudige keuzelijst, waar je rechtstreeks de gekozen waarde kunt pakken. Nu moet je door de SelectedItems collectie lopen om te zien welke er zijn geselecteerd.

 

[koenkorting]

Volgende code werkt goed.
Hij zoekt op (werkt met) de codes, en geeft de codes weer in een tekstvak (nr. 55)
Volgende stap voor mij is het opmaken van het tekstvak:
het weergeven van de bijhorende omschrijving ipv de codes lijkt mij moeilijk, maar doenbaar...
Kan iemand mij op weg zetten hoe ik een tabel ga uitlezen?

Private Sub Keuzelijst0_Click()
    sFilter = ""
    TitelPrint = ""
    i = 0
    For Each itm In Me.Keuzelijst0.ItemsSelected
        If Me.Keuzelijst0.ItemsSelected.Count > 0 Then
            sFilter = sFilter & "(" & Me.Keuzelijst0.Tag & " = '" & Me.Keuzelijst0.ItemData(itm) & "') "
            If i = 0 Then TitelPrint = Me.Keuzelijst0.ItemData(itm)
            If i > 0 Then TitelPrint = TitelPrint & " - " & Me.Keuzelijst0.ItemData(itm)
            i = i + 1
            If i < Me.Keuzelijst0.ItemsSelected.Count Then sFilter = sFilter & " OR "
            End If
    Next itm
    Me.Tekst55.Value = TitelPrint
    If sFilter & "" = "" Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        Me.Filter = sFilter
        Me.FilterOn = True
    End If    
End Sub

edit: "End if" mag in geneste structuren niet gebruikt worden, dat duurde nogal tegen dat ik dat doorkreeg...