"Insert Into" problem

[foxhound]

Does anyone know why the "Insert Into" part of this code is not working?

Sub AddHoliday_YTD_Table()
Dim strSQL As String

strSQL = "INSERT INTO NumberOfIncidents_YTD [EMPNO],[EMPNAME],[DBA],[DATE],[NUMHRS]" & _
"SELECT [EMPNO],[EMPNAME],[DBA],[NUMHRS],[DATE]" & _
"FROM [HOURS HISTORY]where [DATE] = #02/17/03# ;"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

 

[Dugantrain]

Probably because you have to declare in your code that you're using DAO (97 and earlier) or ADO (2000 or later) to access your tables. Search the Archive posts on how to do this, it only takes a couple of steps.

 

[foxhound]

Thanks!

That makes sense. Thank you :D