Double check the name of your field.  The Qty appears to be just a regular text box.

Can you show us your form in design mode as well as the record source of the subform?

Is QtyOnHandCombo referring to a Combo Box? There is no Combo Box on the Form.
Other than that I see no reason why the code shouldn't be working.

Do you have Option Explicit turned on (at the top of the Form Module)?

Yes, the names are OK.

The Current event only runs when you enter a record.  After you enter the record, if you make a change to the quantity field, the Current event doesn't run again, because that is not the event that occurs.  An AfterUpdate event of the changed field is what occurs, so maybe that's what you need.

I see that the code is working on current event but then I have to move from record to record as Kevin says. I want to automate this. Unfortunately this subform is not for editing or updating otherwise it would be easier. So I put the code on the On load event of the subform but doesn't work either. Somehow I have to do this when I open the subform that the ordered checkbox meet the criteria and get the positve value.

The only ways to make it update all the time is (a) make Ordered a calculated field, or (b) use a query for your subform that calculates the value of Ordered.