Step 6: Trusted Locations Click the ‘Trusted Locations’ button. Step 7: Add new locations Click the ‘Add new location…’ button. Step 8: Browse Click the ‘Browse’ button. Step 9: Choose Location When Windows Explorer opens, navigate your directories and find the location in which the Alpha directory folder is and click ‘OK’. In the screenshot below, the user created a folder titled ‘Portable Equipment Model’ in which to put the Alpha folder and is choosing that folder. The Alpha folder itself can also be chosen.
'Set Fleet_Average_ID gappInputFile.CurrentDb.Execute "UPDATE Base_Year_Population SET Base_Year_Population.Fleet_Average_ID = 2 WHERE (((Base_Year_Population.Fleet_Average_ID)<>1));" '<50 HP exempt gappInputFile.CurrentDb.Execute "UPDATE Base_Year_Population SET Base_Year_Population.Fleet_Average_ID = 3 WHERE (((Base_Year_Population.Average_HP)<50));" 'set one fleet to fleet average for code gappInputFile.CurrentDb.Execute "UPDATE Base_Year_Population SET Base_Year_Population.Fleet_Average_ID = 0 WHERE (((Base_Year_Population.Tier)='4f'));" '>750, T1 & T0 gappInputFile.CurrentDb.Execute "UPDATE Fleet_Size INNER JOIN Base_Year_Population ON (Fleet_Size.Fleet_ID = Base_Year_Population.Fleet_ID) AND (Fleet_Size.Calendar_Year = Base_Year_Population.Calendar_Year) SET Base_Year_Population.Tier_Restrict_ID = 2022 WHERE (((Base_Year_Population.Calendar_Year)=2016) AND ((Base_Year_Population.Average_HP)>750) AND ((Base_Year_Population.Tier)='1' Or (Base_Year_Population.Tier)='0'));" '>750, T2 gappInputFile.CurrentDb.Execute "UPDATE Fleet_Size INNER JOIN Base_Year_Population ON (Fleet_Size.Fleet_ID = Base_Year_Population.Fleet_ID) AND (Fleet_Size.Calendar_Year = Base_Year_Population.Calendar_Year) SET
'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 " & _
'Calculate total gappOutFile.DoCmd.RunSQL "UPDATE Total_Cost SET Total_Cost.Total_Cost = [Total_Cost]![SumOfCost_Bought]-[Total_Cost]![SumOfCost_Sold];" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End Sub Sub DistrictSummary() 'Sum Statewide gappOutFile.DoCmd.RunSQL "SELECT Population_Table.Calendar_Year, Population_Table.Equipment_Class, Sum(Population_Table.Population_Operating) AS SumOfPopulation_Operating, Sum(Population_Table.HC_EXH) AS SumOfHC_EXH, Sum(Population_Table.ROG_EXH) AS SumOfROG_EXH, Sum(Population_Table.TOG_EXH) AS SumOfTOG_EXH, Sum(Population_Table.CO_EXH) AS SumOfCO_EXH, Sum(Population_Table.NOx_EXH) AS SumOfNOx_EXH, Sum(Population_Table.PM_EXH) AS SumOfPM_EXH, Sum(Population_Table.PM2_5_EXH) AS SumOfPM2_5_EXH, Sum(Population_Table.PM10_EXH) AS SumOfPM10_EXH,