Option Compare Database
Public Function ExportToExcel()
Dim strPath As String
strPath = "C:\Users\MyName\Desktop\fi_cv_polk_" & Format(Date, "mm_dd_yyyy") & ".xlsx"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "42_aces_detail_no_ids", strPath, , "vio_by_aces_apps"...