strSQL = "SELECT ONHAND " & _
"FROM Inventory " & _
"WHERE [INVENTORY ID] = '" & [INVENTORY ID].Value & "'"
rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
Do While Not rs.EOF
If rs.Fields("ONHAND").Value >= Qty_Orderd_int Then
Me.[Qty Shipped] = Me.[Qty Ordered]
Me.[Qty Back Ordered] = 0
INVENTORY.OnHand.Value = rs.Fields("ONHAND").Value - Qty_Ordered_int
INVENTORY--is the subform
OnHand--is the field in the subform
I am getting run time error 424
Object required