Meervoudige selectie 2

Status
Niet open voor verdere reacties.
Wat wil je precies doen met dat groepsvak?
 
Bekijk bijlage Filteren Uitgebreid V3.zip

ik heb voorbeeld V2 aangepast naar v3
ik heb daar een selectie vakje toegevoegd met "onthouden"

nu zou ik een filter willen hebben met 2 opties "alles zien" en "alleen onthouden"
het filter zou dan wel weer moeten kunnen mee sporten met de andere zoek opties zoal jij dit doet met de "fraoptie"

alvast bedankt
 
Ik zie geen extra groepsvak...
 
Lijkt me wel zo handig; dan hebben we ook de namen en waarden die je wilt gebruiken.
 
ondertussen wat geprobeerd met "Private Function CheckFilter"

Case acOptionGroup
If onthoudoptie = 2 Then
Me.Filter = "onthouden = true"
Me.FilterOn = True
Else
Me.FilterOn = False
End If

werkt nog niet
 
Ik ben er al wel mee bezig geweest, en heb 'm ook wel werkend. Alleen werkt hij nog niet helemaal jofel samen met de andere filters. Soms gaat het goed, en soms niet. Je kunt even stoeien met deze toevoegen aan de SELECT CASE

Code: 
        Select Case .ControlType
            Case acOptionGroup
                If .Name = "fraOnthouden" Then
                    If Me.fraOnthouden.Value = 2 Then
                        x = x + 1
                        If x = 1 Then
                            ReDim sTekst(x)
                        Else
                            ReDim Preserve sTekst(x)
                        End If
                        sTekst(x) = .Tag & "|" & -1 & "|" & .Name
                    End If
                End If

Vergeet hierbij niet om de veldnaam waarop je filtert in het TAG (<Extra Info>) veld van het groepsvak te zetten, anders doet hij het zowiezo niet.
 
Nog een toelichting: hij doet het prima in combinatie met de keuzelijsten met invoervak, maar dus niet i.c.m. gewone keuzelijsten. Dus daar moet in nog even aan sleutelen.
 
Michel

je hebt dus het groepsvak omgedoopt naar "fraOnthouden" ?

ik krijg deze fout
melding.gif
 
Je hebt vermoed ik de code op de verkeerde plek gezet. In de functie zit een groot blok dat met de regel Select Case .ControlType begint.
Daar moet het blokje met Case acOptionGroup aan worden toegevoegd. Uiteraard wel boven de regel End Select, want anders krijg je die foutmelding.
 
ik heb het gevonden
werkt zover ik het kan zien redelijk

lstFilter1 filtert de goede aantallen icm fraonthouden
lstFilter2 laat te weinig resultaten zien
 
Het gaat inderdaad fout op de Listboxen; die moet ik dus nog even doorlopen :)
 
Ik ben nog wat aan het stoeien met nog een voorfilter waar ik niet uit kom
keuzelijst43 heb ik opgenomen in de query van het formulier
als ik hier nu een keuze maak wordt het formulier bijgewerkt , daarna maak ik een keuze in "fraonthouden alleen onthouden en meteen weer terug naar alles zien.

als ik nu keuzelijst43 bedien werkt deze niet meer bij
wat doe ik nu fout
ik heb het voorbeeld er bij gedaanBekijk bijlage Filteren Uitgebreid V5.zip
 
Nog wat dinge uitgezocht
Op het moment dat "fraonthouden" optie waarde 1 heeft werkt keuzelijst43 niet meer bij.

Michel , weet jij hoe dit te verbeteren ?
 
Ik zal er eens naar kijken. Hij geeft een fout op Keuzerondje38, en daar moet hij natuurlijk helemaal niet naar kijken; het gaat om de waarde van het groepsvak en niet om het afzonderlijke optierondje.
 
OP verzoek van de watchdog
vraag is nog niet opgelost
Octafish is nog een klein beetje aan het tweaken
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan