Can anyone help me with this pop up error
Please. Thanks in advance
This code was highlited in yellow when I press "No"
Code:
DoCmd.RunSQL LoadSummaryHighSQL
Here is the code that i'm trying to run
Code:
'To re-capture the summary of the latest load data
DelSummaryHighSQL = "DELETE SummaryHigh.*, SummaryHigh.Record_Period FROM SummaryHigh " & _
"WHERE SummaryHigh.Record_Period In " & _
"(Select Load_Period From [Setting] Where [Setting].[Type] = 'LOAD_DATE')"
DoCmd.RunSQL DelSummaryHighSQL
LoadSummaryHighSQL = "INSERT INTO SummaryHigh ( Record_YYYY, Record_MM, Record_Period, CATEGORY, " & _
"INSTITUTION, No_of_Recordset, LOAD_DATE, FIELDMATCHED ) " & _
"SELECT Year(DateAdd('m',-1,[Load_Date])) AS RECORD_YYYY, " & _
"Month(DateAdd('m',-1,[Load_Date])) AS RECORD_MM, Setting.Load_Period, " & _
"CategoryInsCount2.CATEGORY, CategoryInsCount2.INSTITUTION, CategoryInsCount2.FIELDMATCHED, CategoryInsCount2.NO_OF_GROUP, " & _
"CategoryInsCount2.LOAD_DATE FROM CategoryInsCount2, Setting Where [Setting].[Type] = 'LOAD_DATE'"
DoCmd.RunSQL LoadSummaryHighSQL
Here is the SQL query for CategoryInsCount2
Code:
SELECT GROUPING.CATEGORY, GROUPING.INSTITUTION, GROUPING.FIELDMATCHED, Count(GROUPING.GROUP_NO) AS NO_OF_GROUP, Max(GROUPING.LOADED_DATE) AS LOAD_DATE
FROM (SELECT CATEGORY, GROUP_NO, INSTITUTION, FIELDMATCHED, LOADED_DATE FROM CrossSystemData WHERE INSTITUTION NOT LIKE "*UNKNOWN*" AND FIELDMATCHED="HIGH") AS GROUPING
GROUP BY GROUPING.CATEGORY, GROUPING.INSTITUTION, GROUPING.FIELDMATCHED;