'If "Table_List" is not within the input database, then a unique error is shown to remind user to create one. 'No inputs 'No outputs Dim appInputFile As Access.Application Dim rstLoadingTable As DAO.Recordset Dim strSQL As String Dim intCounter As Integer Dim intLoadProcedureSize As Integer Dim strLoadProcedures(0 To 1) As String strLoadProcedures(0) = "Emissions" strLoadProcedures(1) = "Turnover" intLoadProcedureSize = 1 Set appInputFile = CreateObject("access.application") appInputFile.OpenCurrentDatabase gstrInputDir & gstrInputFileName If GlobalFunctions.ObjectExists("Table_List", acTable, appInputFile) Then For intCounter = 0 To intLoadProcedureSize strSQL = "SELECT Table_List.Table_Name, Table_List.Emissions " & _
'If "Table_List" is not within the input database, then a unique error is shown to remind user to create one. 'No inputs 'No outputs Dim appInputFile As Access.Application Dim rstLoadingTable As DAO.Recordset Dim strSQL As String Dim intCounter As Integer Dim intLoadProcedureSize As Integer Dim strLoadProcedures(0 To 1) As String strLoadProcedures(0) = "Emissions" strLoadProcedures(1) = "Turnover" intLoadProcedureSize = 1 Set appInputFile = CreateObject("access.application") appInputFile.OpenCurrentDatabase gstrInputDir & gstrInputFileName If GlobalFunctions.ObjectExists("Table_List", acTable, appInputFile) Then For intCounter = 0 To intLoadProcedureSize strSQL = "SELECT Table_List.Table_Name, Table_List.Emissions " & _
pe_model_install.docx