Prevent Action 1

[RobPotts]

Hi,

I've got a form (FrmAddNewMaster) which has a continuous subform (FrmProdCodes). On this subform is a tick box (ToBeUsed). On the Main form I have a button which runs a sereis of queries.

What I would like is that when the button on the main form is pressed it checks all the records on the subform (Based on TblGhost) and ensure at least on of the ToBeUsed check boxes is ticked. If non are ticked I want a message box to come up alerting the user to tick a box, then when the OK button is pressed the rest of the code is not run and the user returns to the form to tick the boxes.

Thanks for your help in advance
Rob! [Bigcheeks]
Process and Procedure are the last hiding place of people without the wit
and wisdom to do their job properly.

 

[KornGeek]

Just off the top of my head, I would approach this with something like:

intBoxesChecked = DCount("*", "[tblGhost]", "[ToBeUsed] = True&quot
if Nz(intBoxesChecked,0) = 0 then
msgbox("Hey! Go check a box!&quot
Exit Function
end if
Do Other Code Here

 

[RobPotts]

Thank you, that was just what I needed, thanks for the quick response, I can go home now.

Cheers Rob! [Bigcheeks]
Process and Procedure are the last hiding place of people without the wit
and wisdom to do their job properly.

 

[KornGeek]

Glad to know I could help.