Update query, update text feild based on checkbox

[sdel_nevo]

Hi Guys

I cant seem to get my head around this problem

this is the query that I need to amend, currently it works really well and updates the "reelweight" with the value entered on the form "frmTestSheetEnterTestResults"

UPDATE tblTestsResults SET tblTestsResults.ReelWeight = [Forms]![frmTestSheetEnterTestResults]![ReelWeightHeaderTXTBox], tblTestsResults.MachineName = [Forms]![frmTestSheetEnterTestResults]![MachineNameHeaderTXTBox], tblTestsResults.TestType = "ENTER IIF HERE"
WHERE (((tblTestsResults.ReelWeight) Is Null) AND ((tblTestsResults.ProductionOrderID)=[forms]![frmTestSheetEnterTestResults]![ProductionOrderID]) AND ((tblTestsResults.TestSheetID)=[Forms]![frmTestSheetEnterTestResults]![TestSheetID]) AND ((tblTestsResults.ReelNumber)=[forms]![frmTestSheetEnterTestResults]![ReelNumber]));

what I need to do now is update the tblTestsResults.TestType with either "Scrap" or "Prime" depending on a checkbox "Checkbox99" being clicked on the form "frmTestSheetEnterTestResults"

if the checkbox is clicked, I need to update the "Testtype" field to "Scrap" and if it's not the update "testtype" field to "Prime"

I hope this makes sense I just cant seem to get my head around this



any help would be great

many thanks

steve

[ranman256]

make an invisible textbox on the form, fill it with the result of the checkbox afterupdate event

sub checkBox99_afterupdate()
if checkbox99.value then
   txtBox =  "Scrap"
else
   txtBox =  "Prime"
endif
end sub

then your query can just use the box to update the field.
be sure to set the text box 'default' value .

[sdel_nevo]

Hi Ranman256

OMG lol never even thought about that
such a simple way

many many thanks

Steve