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?