Alle vinkjes in één keer aan/uit zetten

[RoVo1211]

Ik heb bovenstaand formulier in Access 365 en het bovenste vinkje wil ik gebruiken om alle afzonderlijke checkboxen aan of uit te zetten. Ik krijg dan onderstaande foutmelding:

Ik heb de volgende code gefabriceerd:
Het vinkboxje om alles aan of uit te zetten heet "chk_allesLeegMaken" en de button om de filters echt leeg te maken heet "btn_AllesLeegm"

Private Sub btn_AllesLeegm_Click()

If chk_SeizoenLeegm Then cbo_Seizoen = ""
If chk_LeagueLeegm Then cbo_League = ""
If chk_PouleLeegm Then cbo_Poule = ""
If chk_DatumLeegm Then cbo_Datum = ""
If chk_BcLeegm Then cbo_BC = ""
If chk_PouleLeegm Then cbo_Teams = ""
If chk_WlLeegm Then cbo_WL = ""

End Sub

Private Sub chk_AllesLeegmaken_Click()
If chk_AllesLeegmaken = True Then
    chk_SeizoenLeegm = True
    chk_LeagueLeegm = True
    chk_PouleLeegm = True
    chk_DatumLeegm = True
    chk_BcLeegm = True
    chk_TeamsLeegm = True
    chk_WlLeegm = True
ElseIf chk_AllesLeegmaken = False Then
    chk_SeizoenLeegm = False
    chk_LeagueLeegm = False
    chk_PouleLeegm = False
    chk_DatumLeegm = False
    chk_BcLeegm = False
    chk_TeamsLeegm = False
    chk_WlLeegm = False
End If

End Sub

Wat gaat er hier fout?

 

[OctaFish]

Je had deze vraag uiteraard ook (misschien zelfs beter) in het Access forum kunnen zetten, want dat is hiervoor bedoeld. Maar goed, ook Access mensen kijken in dit forum .

Ik snap niet wat je aan het doen bent; als je gaat filteren met keuzelijst heb je toch geen selectievakjes nodig? Wat voegen die volgens jou toe? Waarom zou je op een selectievakje moeten klikken als je een waarde in een keuzelijst wilt selecteren? Dat zijn toch twee totaal verschillende (en onafhankelijke) objecten?

Daarnaast laat je de deelfuncties niet zien, en geen code waar een dubbelklik gebruikt wordt terwijl de foutmelding daar wel naar verwijst. Lijkt mij wel noodzakelijk. Veel beter is natuurlijk een database met wat dummy data zodat we zelf kunnen zien wat er aan de hand is. Op basis van de getoonde code kunnen we in ieder geval niet veel.

 

[edmoor]

Wat er fout gaat weet ik niet maar die Sub btn_AllesLeegmaken_Click() kan een stuk eenvoudiger:

Private Sub chk_AllesLeegmaken_Click()
    chk_SeizoenLeegm = chk_AllesLeegmaken
    chk_LeagueLeegm = chk_AllesLeegmaken
    chk_PouleLeegm = chk_AllesLeegmaken
    chk_DatumLeegm = chk_AllesLeegmaken
    chk_BcLeegm = chk_AllesLeegmaken
    chk_TeamsLeegm = chk_AllesLeegmaken
    chk_WlLeegm = chk_AllesLeegmaken
End Sub

Dat zal overigens niet je probleem verhelpen.

 

[AHulpje]

Je foutmelding gaat over een dubbelklik gebeurtenis en niet over een klikgebeurtenis van de knop btn_AllesLeegm.

 

[OctaFish]

Had ik al aangegeven…. Ik wacht toch maar op de db. Een stuk makkelijker dan speculeren, ook al is dat een hobby van een hoop mensen .