User must Check atleast One CheckBox from Three

[Malik via AccessMonster.com]

Hi

I Have three CheckBoxes in my form. I want that user must Check Atleast One
Checkbox from these three boxes.
Thanks

 

[Jeanette Cunningham]

Hi Malik
Create the check boxes with similar name, with a different number in the end

Check1, check2, check3 ...
..........................................
Create a function in the form that loops through the records

Function CheckAmountOfCheck()
Dim lngI as Long
Dim lngSum as Long
CheckAmountOfCheck = False

For lngI = 1 To 3
lngSum = lngSum + Abs(Me("Check" & lngI))
Next lngI

If lngSum <= 0 Then
MsgBox "Must check at least one check box"
CheckAmountOfCheck = True
End If

End Function


On the before update event of the form you can put

If CheckAmountOfCheck = True Then
Cancel = True
End If

Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia

 

[malik via AccessMonster.com]

Hi Malik
Create the check boxes with similar name, with a different number in the end

Check1, check2, check3 ...
.........................................
Create a function in the form that loops through the records

Function CheckAmountOfCheck()
Dim lngI as Long
Dim lngSum as Long

Thank you very much

 

[malik via AccessMonster.com]

Hi Malik
Create the check boxes with similar name, with a different number in the end

Check1, check2, check3 ...
.........................................
Create a function in the form that loops through the records

Function CheckAmountOfCheck()
Dim lngI as Long
Dim lngSum as Long

Thank you very much