Option Compare Database
'------------------------------------------------------------
' Mcr_ImportCosts2
'
'------------------------------------------------------------
Function Mcr_ImportCosts2()
On Error GoTo Mcr_ImportCosts2_Err
On Error Resume Next
DoCmd.Hourglass True
DoCmd.DeleteObject acTable, "Tbl_Costs2"
DoCmd.TransferSpreadsheet acImport, 10, "Tbl_Costs2", "Q:\Production Database\Tables\Tbl_Costs\2016_17 YTD.xlsx", True, "P1 Capex!"
DoCmd.OpenQuery "Qry_App_TblCosts2_Tbl_Costs", acViewNormal, acEdit
DoCmd.Hourglass False
Mcr_ImportCosts2_Exit:
Exit Function
Mcr_ImportCosts2_Err:
MsgBox Error$
Resume Mcr_ImportCosts2_Exit
End Function