However, the code works with a breakpoint and stepping through but it seems to be ignored if there's no breakpoint.
Code: Select all
Private Sub Form_AfterUpdate()
Dim strSQLF As String, strSQLL As String
Dim db As dao.Database
Dim rstF As dao.Recordset
Dim rstL As dao.Recordset
Set db = CurrentDb()
If Me.OrderDetCount = 1 Then
strSQLF = "SELECT tblOrderDetails.OrderID, First(tblOrderDetails.Quantity) AS FirstOfQuantity, First(tblProduct.Product) AS FirstOfProduct" _
& " FROM tblProduct INNER JOIN tblOrderDetails ON tblProduct.ProductID = tblOrderDetails.ProductID" _
& " GROUP BY tblOrderDetails.OrderID" _
& " HAVING (((tblOrderDetails.OrderID)=" & [Forms]![frmOrders]![OrderID] & "));"
Set rstF = CurrentDb.OpenRecordset(strSQLF, dbOpenDynaset)
Me.Parent!Warehouse1.Value = rstF!FirstOfQuantity & " X " & rstF!FirstOfProduct
ElseIf Me.OrderDetCount = 2 Then
strSQLF = "SELECT tblOrderDetails.OrderID, First(tblOrderDetails.Quantity) AS FirstOfQuantity, First(tblProduct.Product) AS FirstOfProduct" _
& " FROM tblProduct INNER JOIN tblOrderDetails ON tblProduct.ProductID = tblOrderDetails.ProductID" _
& " GROUP BY tblOrderDetails.OrderID" _
& " HAVING (((tblOrderDetails.OrderID)=" & [Forms]![frmOrders]![OrderID] & "));"
Set rstF = CurrentDb.OpenRecordset(strSQLF, dbOpenDynaset)
Me.Parent!Warehouse1.Value = rstF!FirstOfQuantity & " X " & rstF!FirstOfProduct
strSQLL = "SELECT tblOrderDetails.OrderID, Last(tblOrderDetails.Quantity) AS LastOfQuantity, Last(tblProduct.Product) AS LastOfProduct" _
& " FROM tblProduct INNER JOIN tblOrderDetails ON tblProduct.ProductID = tblOrderDetails.ProductID" _
& " GROUP BY tblOrderDetails.OrderID" _
& " HAVING (((tblOrderDetails.OrderID)=" & [Forms]![frmOrders]![OrderID] & "));"
Set rstL = CurrentDb.OpenRecordset(strSQLL, dbOpenDynaset)
Me.Parent!Warehouse2.Value = rstL!lastOfQuantity & " X " & rstL!lastOfProduct
Else
End If
db.Close
Set db = Nothing
Set rstF = Nothing
Set rstL = Nothing
End Sub
Thanks