On Error GoTo EH CurrentDb.TableDefs.Delete ("Get65") CurrentDb.Execute "SELECT INTER.OTCOMBO, INTER.DTCOMBO, INTER.TCOMBO, INTER.SERVICE, INTER.CLASS, INTER.[MIN]*0.65 as MIN, INTER.[LTL]*0.65 as LTL, INTER.*0.65 as 500, INTER.[1M]*0.65 as 1M, INTER.[2M]*0.65 as 2M, INTER.[5M]*0.65 as 5M, INTER.[10M]*0.65 as 10M, INTER.[20M]*0.65 as 20M INTO Get65 FROM [INTER] WHERE INTER.TCOMBO=" & Chr(34) & termcombo & Chr(34) & " AND INTER.SERVICE=" & Chr(34) & [Forms]![Point2Point]![servicecombo] & Chr(34) & " ORDER BY INTER.CLASS", dbFailOnError Exit Sub EH: If Err.Number = 3265 Then Resume Next MsgBox "error " & Err.Number & ": " & Err.Description
|Tags from access to excel||3||30|
|Query to summarise data Like Pivot Table||3||29|
|Backup and restore code in split Access 2016 Database using switchboard||2||23|
|Parse last 2 characters of text value if they are letters||7||17|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!