meervoudige selectie

[perco]

ik gebruik de techniek uit deze database al langere tijd echter bij meervoudige selecties bij 2 keuzelijsten werkt het filter niet

ik maak in dit geval eerst keuze groente en schoonmaak, daarna 38 en 39,

moet ik hiervoor de code aanpassen ? of kan dit gewoon niet ?

 

[OctaFish]

Alles kan (nou ja, bijna alles ). Ik zal er vanavond even naar kijken, want er zal denk ik wat moeten worden aangepast aan het filter.

 

[perco]

@ Octafish

da's fijn want dit is voor mij een brug te ver

 

[OctaFish]

Ik heb het filter aangepast (er zaten nog wat onhandige zaken in) en nu doet-ie het wel goed.

 

[perco]

Perfect, code overgenomen, aangepast en werkend
Dank voor de snelle oplossing

 

[OctaFish]

Graag gedaan. Ik heb 'm natuurlijk ook graag werkend . Heb je kunnen achterhalen wat er is veranderd? En Waarom?

 

[perco]

For Each itm In Me("lstFilter" & iLst).ItemsSelected
[COLOR="#FF0000"]If Not sKeuze = "" Then sKeuze = sKeuze & "\"[/COLOR]
sKeuze = sKeuze & Me("lstFilter" & iLst).ItemData(itm) [COLOR="#FF0000"]& "\"[/COLOR]

 

[OctaFish]

Dat is één aanpassing. Hiermee voorkom je dat er onnodige tekens achter de filterstring komen te staan die je dan later met een lusje weer weg moet halen. Die lus is dus ook weg. Veel belangrijker: de verschillende filtergroepen worden nu in één groep gezet (sFilter = sFilter & "(" en sFilter = sFilter & ")" aan het eind) en de variabele sAndOr stond op de verkeerde plek, zodat de verschillende subfilters niet goed werden gecombineerd. Dus deze code:

    If i < UBound(sFilters) Then
        sFilter = sFilter & sAndOr
    End If

staat nu op een andere plek.

 

[perco]

Dank

je schaaft de DB steeds verder bij , perfecte tool ondertussen en een hele mooie voorbeeld DB

 

[OctaFish]

Dank voor het compliment!