Checkbox Validation

  • Thread starter Thread starter rjshrader
  • Start date Start date
R

rjshrader

I need help with validating check-boxes on an unbound MS access form.

On my form I have various text boxes and four (4) check-boxes for
users to submit data to a table. I have a command button on the form
that when clicked verifies that the various text box controls are not
empty otherwise it displays a message to correct and sends the use
back to the form without saving.

What I need assistance with is with the 4 check-boxes I want to
validate that at least 1 of the boxes has been checked . If all are un-
checked I want to display a message (I know how to write the code for
the message) but I am not sure how to go about validating the check-
boxes.

Many thanks

-shrader
 
If the checkbox is checked, it is True, or -1. Thus, your On_Exit or
Before_Update could be

If (CB1 + CB2 + CB3 + CB4) =-4 Then
MsgBox("One must be checked!")
CB1.SetFocus
Else
Do other stuff and
Exit
End If

Hope that helps..

Steve
 
If the checkbox is checked, it is True, or -1. Thus, your On_Exit or
Before_Update could be

If (CB1 + CB2 + CB3 + CB4) =-4 Then
MsgBox("One must be checked!")
CB1.SetFocus
Else
Do other stuff and
Exit
End If

Hope that helps..

Steve









- Show quoted text -
Click to expand...

Thank you Steve,

I have added the code to the onclick event of my command button that
starts the validation process of the form and then saves the record to
the table. I receive a Run-time error 13 type mismatch error when the
code is executed.

-Shrader
 
[email protected] said:
Thank you Steve,

I have added the code to the onclick event of my command button that
starts the validation process of the form and then saves the record to
the table. I receive a Run-time error 13 type mismatch error when the
code is executed.

-Shrader
Click to expand...


Without actually *seeing* your code, it is hard to say what the problem is.
What line causes the error? The code must have worked before you made
changes... so it is in the new code.

Did you change "CB1" through "CB4" to the names of your checkboxes?

Are the first two lines of the module:

Option Compare Database
Option Explicit

Did you compile the code? ( Menu bar DEBUG / COMPILE)



BTW, if you want to ensure that *at least* one check box is checked, you
should change the line
If (CB1 + CB2 + CB3 + CB4) =-4 Then
Click to expand...


to

If (CB1 + CB2 + CB3 + CB4) = 0 Then
MsgBox ......


The only way the sum could be zero is if all 4 check boxes are unchecked.
 
Back
Top