Battlescar
New member
- Local time
- Today, 05:15
- Joined
- Nov 19, 2017
- Messages
- 3
I get an run-time error '3134' syntax error in insert into statement.
I have no idea why. I am still just learning.:banghead:
Private Sub cmdExport_Click()
Dim FN As String
Dim intReply As Integer
Dim strSQL As String
Dim db As DAO.Database
Set db = CurrentDb
strSQL = "INSERT INTO tbl_Export (SurveyListID_PK, SurveyName, SurveyStatus, SurveyType, OriginalEQCollectionStartDate, OIDCoordinator, Newlyadded, Lastmodifieddate, SurveyFrequency, SDDS, Field, Division, FundingType, Attachments, AlternativeData, AdministrativeData, FundingStatus, Recurring, PECodeInitialDevel, [PECodeE&M], [FY 15/16], [Kick off_date1516], [Design Start1516], [QDRC Testing Date1516], [UAT Start1516], [Collection Start1516]" & _
"SELECT tblsurveylist.SurveyListID_PK, tblsurveylist.SurveyName, tblsurveylist.SurveyStatus, tblsurveylist.SurveyType, tblsurveylist.OriginalEQCollectionStartDate, tblsurveylist.OIDCoordinator, tblsurveylist.Newlyadded, tblsurveylist.Lastmodifieddate, tblsurveylist.SurveyFrequency, tblsurveylist.SDDS, tblsurveylist.Field, tblsurveylist.Division, tblsurveylist.FundingType, tblsurveylist.Attachments, tblsurveylist.AlternativeData, tblsurveylist.AdministrativeData, tblsurveylist.FundingStatus, tblsurveylist.Recurring, tblsurveylist.PECodeInitialDevel, tblsurveylist.[PECodeE&M], tblSurveylistSub.FY, tblSurveylistSub.KickOffDate, tblSurveylistSub.DesignStart, tblSurveylistSub.QDRC_TestingDate, tblSurveylistSub.UAT_Start, tblSurveylistSub.CollectionStart" & _
"FROM tblsurveylist LEFT JOIN tblSurveylistSub ON tblsurveylist.SurveyListID_PK = tblSurveylistSub.SurveyListID_PK) LEFT JOIN tbl_Export ON tblsurveylist.SurveyListID_PK = tbl_Export.SurveyListID_PK" & _
"where tblSurveylistsub.FiscalYear = [FY 15/16]"
db.Execute strSQL, dbFailOnError
I have no idea why. I am still just learning.:banghead:
Private Sub cmdExport_Click()
Dim FN As String
Dim intReply As Integer
Dim strSQL As String
Dim db As DAO.Database
Set db = CurrentDb
strSQL = "INSERT INTO tbl_Export (SurveyListID_PK, SurveyName, SurveyStatus, SurveyType, OriginalEQCollectionStartDate, OIDCoordinator, Newlyadded, Lastmodifieddate, SurveyFrequency, SDDS, Field, Division, FundingType, Attachments, AlternativeData, AdministrativeData, FundingStatus, Recurring, PECodeInitialDevel, [PECodeE&M], [FY 15/16], [Kick off_date1516], [Design Start1516], [QDRC Testing Date1516], [UAT Start1516], [Collection Start1516]" & _
"SELECT tblsurveylist.SurveyListID_PK, tblsurveylist.SurveyName, tblsurveylist.SurveyStatus, tblsurveylist.SurveyType, tblsurveylist.OriginalEQCollectionStartDate, tblsurveylist.OIDCoordinator, tblsurveylist.Newlyadded, tblsurveylist.Lastmodifieddate, tblsurveylist.SurveyFrequency, tblsurveylist.SDDS, tblsurveylist.Field, tblsurveylist.Division, tblsurveylist.FundingType, tblsurveylist.Attachments, tblsurveylist.AlternativeData, tblsurveylist.AdministrativeData, tblsurveylist.FundingStatus, tblsurveylist.Recurring, tblsurveylist.PECodeInitialDevel, tblsurveylist.[PECodeE&M], tblSurveylistSub.FY, tblSurveylistSub.KickOffDate, tblSurveylistSub.DesignStart, tblSurveylistSub.QDRC_TestingDate, tblSurveylistSub.UAT_Start, tblSurveylistSub.CollectionStart" & _
"FROM tblsurveylist LEFT JOIN tblSurveylistSub ON tblsurveylist.SurveyListID_PK = tblSurveylistSub.SurveyListID_PK) LEFT JOIN tbl_Export ON tblsurveylist.SurveyListID_PK = tbl_Export.SurveyListID_PK" & _
"where tblSurveylistsub.FiscalYear = [FY 15/16]"
db.Execute strSQL, dbFailOnError