use the form's current event
private sub form_current()
me.[Treatment Area].locked=me.ChemicalApplication
end sub
and in the afterupdate event of checkbox ChemicalApplication
private sub ChemicalApplication_afterupdate()
me.[Treatment Area].locked=me.ChemicalApplication
end sub