We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub DeleteRecord_Click() Dim rs1 As ADODB.Recordset Dim DeletedItemID As Long DeletedItemID = Me!ItemID DoCmd.DoMenuitem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuitem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.RunSQL "DELETE FROM dbo.WorkOrderItems WHERE ParentItemID = & DeletedItemID Dim calculatedfreight as Currency calculatedfreight = Round(DSum("Price","WorkOrderItems","ItemType = 1 and WorkOrderID = " & WorkOrderID) * .024, 2) DoCmd.RunSQL "UPDATE dbo.WorkOrders SET Freight = " & calculatedfreight & " WHERE OrderID = " & WorkOrderID End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access - Autofill field with item description||6||54|
|Outlook 2016 VB code syntax||4||39|
|Access Query To Find The Average Date Between Two Dates||3||25|
|Access 2016 on Windows 10 MSCAL.OCX not recognized||4||34|
Join the community of 500,000 technology professionals and ask your questions.