Can anyone tell me why the following code fails to execute when I am trying to input values into table, I am getting syntax error?
Thanks
Private Sub cmdPercentComplete_CWP_Click()
Dim rsSQL As DAO.Recordset
Dim rsEHTStageTally As DAO.Recordset
Dim rsEHTStagePercent As DAO.Recordset
Dim rsTotals As DAO.Recordset
Dim strsql As String
Dim intTemp, X As Integer
Dim intEHTStageTally As Integer
Dim intEHTStagePercent As Integer
Dim intTotals As Integer
Dim dblPercentComplete As Double
strsql = "INSERT INTO tblCWP_PercentComplete (EHT_EWP, "Total, Confirmed, Assembled, Reset, ReDesignRequired, DesignComplete, 3DCaddComplete, " & _
"ReCaddRequired, 2DCaddComplete, QCReviewComplete, CheckingComplete, IFCPending, IFC, PercentComplete) " & _
"SELECT '" & rsEHTStageTally.Fields("EHT_EWP") & "', " & rsEHTStageTally.Fields("Total") & ", " & _
rsEHTStageTally.Fields("Assembled") & ", " & rsEHTStageTally.Fields("Reset") & ", " & _
rsEHTStageTally.Fields("ReDesignRequired") & ", " & rsEHTStageTally.Fields("DesignComplete") & ", " & _
rsEHTStageTally.Fields("3DCaddComplete") & ", " & rsEHTStageTally.Fields("ReCaddRequired") & ", " & _
rsEHTStageTally.Fields("2DCaddComplete") & ", " & rsEHTStageTally.Fields("QCReviewComplete") & ", " & _
rsEHTStageTally.Fields("CheckingComplete") & ", " & rsEHTStageTally.Fields("IFCPending") & ", " & _
rsEHTStageTally.Fields("IFC") & ", " & Format(dblPercentComplete, "0.00") & ";"
Debug.Print strsql
CurrentDb.Execute strsql