Private Sub QTY_ORDERED_LostFocus()
Dim strSQL As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = CurrentProject.Connection

Set rs = New ADODB.Recordset

Dim Qty_Ordered_int As Integer


Set Qty_Ordered_int = CInt(Me.[Qty Ordered].Value)




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

Else
If rs.Fields("ONHAND").Value < Qty_Ordered_int Then
If rs.Fields("ONHAND") > 0 Then
Me.[Qty Shipped] = rs.Fields("ONHAND").Value
Me.[Qty Back Ordered] = Me.[Qty Ordered] - rs.Fields("ONHAND").Value

End If
End If
End If




rs.MoveNext
Loop

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

End Sub




Set Qty_Ordered_int = CInt(Me.[Qty Ordered].Value)


I am receiving error on this line--Object required. How do I fix it?

You do not Set an integer.
Set Qty_Ordered_int = CInt(Me.[Qty Ordered].Value)
...s/b...
Qty_Ordered_int = CInt(Me.[Qty Ordered].Value)
...or...
Let Qty_Ordered_int = CInt(Me.[Qty Ordered].Value)
...if you like.

__________________
(RG for short) aka Allan Bunch MS Access MVP - WinXP Pro, Win7 - acXP, ac07
If your issue is resolved...follow this link for directions on how to use the Solved thread tool!
Teaching is not filling a bucket but lighting a fire. Borrowed quote..."Docendo discimus"