Hulp met VBA in Access

[JimmyNeutron1]

Redelijk nieuw hier op het forum, al lees ik wel al een aardige poos mee

Zelf doe ik veel met Access, maar niet met VBA. Hier wil ik graag handiger mee worden. Nu loop ik een beetje vast met een VBA code. Kunnen jullie mij vertellen waar het mis gaat?

Het doel is (zie printscreen) bij aanvinken van minimaal 1 criteria, dat selectievakje_67 rechtsboven automatisch aangevinkt wordt. Bij geen selectie moet deze leeg blijven.

Private Sub Criteria_1_Click()
If Criteria_1 = True Then
        Selectievakje67 = True
    Else
        If Criteria_1 = False Then
            Selectievakje67 = False
        End If
    End If
End Sub

Private Sub Criteria_2A_Click()
If Criteria_2A = True Then
        Selectievakje67 = True
    Else
        If Criteria_2A = False Then
            Selectievakje67 = False
        End If
End If
End Sub

Private Sub Criteria_2B_Click()
If Criteria_2B = True Then
        Selectievakje67 = True
    Else
        If Criteria_2B = False Then
            Selectievakje67 = False
        End If
    End If
End Sub

Private Sub Criteria_3_Click()
If Criteria_3 = True Then
        Selectievakje67 = True
    Else
        If Criteria_3 = False Then
            Selectievakje67 = False
        End If
    End If
End Sub

Private Sub Criteria_4_Click()
If Criteria_4 = True Then
        Selectievakje67 = True
    Else
        If Criteria_4 = False Then
            Selectievakje67 = False
        End If
    End If
End Sub

Private Sub Criteria_5_Click()
If Criteria_5 = True Then
        Selectievakje67 = True
    Else
        If Criteria_5 = False Then
            Selectievakje67 = False
        End If
    End If
End Sub

 

[snb]

1 criterium
2 criteria

 

[NoellaG]

een selectievakje geeft -1 als resultaat als aangevinkt en 0 als niet aangevinkt.
Dus je kan een som maken en bij elk aanvinkvakje zetten (onclick of afterupdate)

if me.criteria_1 + me.criteria_2A + ….. + criteria_5 = 0 then 'geen enkel vakje is aangeklikt
            me.Selectievakje67 = False
else
          me.selectievakje67 = true
end if

Tip: geef je controle elementen een duidelijke naam bv. chkInformatie ipv. namen als selectievakje67. Dat is veel duidelijker als je die moet aanspreken.

VrGroeten
Noëlla

 

[JimmyNeutron1]

@snb, bedankt voor de taaltip

@NoellaG, heel erg bedankt. Ik dacht veel te moeilijk. Dit trucje ga ik vaker toepassen!!!

 

[OctaFish]

Kan nog een stuk simpeler:

me.selectievakje67 = ABS(me.criteria_1 + me.criteria_2A + ….. + criteria_5)) > 0