Check Box Problem

[G Marshall]

Hello

I have an Access Database with an Orders / Invoice form. This form has six fields for data input and one check box. The check box should only be checked by the user when the other six fields contain data.
How can I prevent the user checking the check box when one or more of the other six fields have no data.

Appreciate any help


Gerald Marshall

 

[bat17]

probably the simplest way is to check if the other fields are completed when the checkbox is used and if not send the users back to the other fields. Yell if you need help with the code for this.

 

[G Marshall]

Thanks for that

That is exactly what I would require, and I would appreciate help with the code.

Thanks


Gerald

 

[Corticus]

Private Sub Check0_Click()

if isnull("txt1") then
    msgbox("Please complete text1.")
    txt1.setfocus
    exit sub
end if

if isnull("txt2") then
    msgbox("Please complete text2.")
    txt2.setfocus
    exit sub
end if

end sub

and on and on through all yur textboxes...

Replace my textbox names (txt1, txt2) and checkbox name (chk0) with your's.

edit:

Just thinking, if you want to be clever(lazy), you can name your textboxes something like 'text1", "text2", "text3" etc, just anything with a sequential number at the end, and then use code like this:
(use the number of textboxes for your value of i, in this case, 5 textboxes would mean we need to use 5 for i)
execute on the check click event as before

for i = 1 to 5
    if isnull(me.controls("text" & i)) then
        msgbox("Please complete field " & i)
        me.controls("text" & i).setfocus
        exit sub
    end if
next i

That should save some time coding, plus make your form more reusable.

 

[G Marshall]

Thanks a Million

Look forward to trying that.

Cheers


Gerald

 

[bat17]

one refinement to add would be to use the Before Update event so that you can cancel their use of the check box.

for i = 1 to 5 
    if isnull(me.controls("text" & i)) then 
        msgbox("Please complete field " & i) 
        me.controls("text" & i).setfocus 
         cancel = true
        exit sub 
    end if 
next i 

HTH

Peter

 

[G Marshall]

Hi
Thanks to both the previous contributors. I have used the code supplied and its works perfectly.

Much appreciated!

Gerald Marshall