Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
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
|Reset subform in page control based on selection in other page control from a tab control on a form||5||18|
|Input box criteria||3||19|
|How count records in each month from current month going back 12 months||4||28|
|Code editor Problem||8||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!