'------------------------------------------- 'update AdjustmentHead strSql = "UPDATE AdjustmentHead SET AdjustmentHead.[Adjustment+V] = " & Forms![AdjustmentHead]![Adjustment+V] & ", AdjustmentHead.[Adjustment-V] = " & [Forms]![AdjustmentHead]![Adjustment-V2] & ", AdjustmentHead.AdjustmentStatus = -1, AdjustmentHead.AdjTransactionID = " & intTransactionID & ", AdjustmentHead.AdjOrderID = '" & strOrderID & "'" strSql = strSql & " WHERE (((AdjustmentHead.AdjustmentHeadID)=[Forms]![AdjustmentHead]![AdjustmentHeadID]));" DoCmd.RunSQL strSql 'update Adjustment strSql = "UPDATE AdjustmentDetailsQ INNER JOIN Items ON AdjustmentDetailsQ.ItemID = Items.ItemID SET Items.[In] = [Items]![In]+[AdjustmentDetailsQ]![OrderQty], Items.Out = [Items]![Out]+[AdjustmentDetailsQ]![IssueForLocal]+[AdjustmentDetailsQ]![IssueForForign], Items.CIN = [Items]![CIN]+[AdjustmentDetailsQ]![OrderCQty], Items.COut = [Items]![COut]+[AdjustmentDetailsQ]![IssueForLocal]" strSql = strSql & " WHERE (((AdjustmentDetailsQ.AdjustmentHeadID)=[Forms]![AdjustmentHead]![AdjustmentHeadID]) AND ((AdjustmentDetailsQ.ActQOnH) Is Not Null));" DoCmd.RunSQL strSql strSql = "UPDATE Orders SET Orders.Adj = -1" strSql = strSql & " WHERE (((Orders.OrderID) Like 'adj*'));" DoCmd.RunSQL strSql strSql = "UPDATE Transactions SET Transactions.AdjTrans = -1" strSql = strSql & " WHERE (((Transactions.TransactionNo) Like '*Adj*'));" DoCmd.RunSQL strSql 'Closing Form DoCmd.Close Exit_CmdConfirm_Click: Exit Sub Err_CmdConfirm_Click: MsgBox Err.Description Resume Exit_CmdConfirm_Click End Sub
</SARCASM>
&
RunSQL
strSql = "UPDATE AdjustmentHead SET AdjustmentHead.[Adjustment+V] = Forms![AdjustmentHead]![Adjustment+V], AdjustmentHead.[Adjustment-V] = [Forms]![AdjustmentHead]![Adjustment-V2], AdjustmentHead.AdjustmentStatus = -1, AdjustmentHead.AdjTransactionID = " ...
intTransactionID
strOrderID
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)