violentjay25
Registered User.
- Local time
- Yesterday, 22:34
- Joined
- Feb 22, 2005
- Messages
- 30
This update is unable to use apostraphes and commas when updating. My insert into statement works just fine. If I do not use apostraphes or commas the update works. What am I doing wrong
DoCmd.RunSQL "UPDATE tbl_Projects " & _
"SET ProjectName = '" & Me.cboProjectName & "', " & _
" SystemsImpacted = '" & Me.TxtSystemsImpacted & "', " & _
" SPRNum = '" & Me.txtSPR & "', " & _
" ReleaseDate = '" & Me.txtReleaseDate & "', " & _
" Status = '" & Me.CboStatus & "', " & _
" CSIPM = '" & Me.txtCSI & "', " & _
" BPM = '" & Me.txtBPM & "', " & _
" Implemented = '" & Me.cboImplemented & "', " & _
" StakeHolder = '" & Me.cboStakeholder & "', " & _
" IBR1 = '" & Me.cboIBR1 & "', " & _
" IBR2 = '" & Me.cboIBR2 & "', " & _
" IBR3 = '" & Me.cboIBR3 & "', " & _
" Objective = '" & Me.txtObjective & "', " & _
" SMERequirments = '" & Me.txtSMERequirements & "', " & _
" Phase = '" & Me.cboPhase & "' " & _
"Where ProjectName = '" & Me.cboProjectName & "'"
DoCmd.RunSQL "Insert into tbl_Projects (ProjectName, SystemsImpacted, SPRNum,ReleaseDate, Status, CSIPM, BPM, Implemented, StakeHolder, IBR1, IBR2, IBR3, Objective, SMERequirments, Phase) " & _
"Values ('" & Me.txtProjectName & "', """ & _
Me.TxtSystemsImpacted & """, """ & _
Me.txtSPR & """, """ & _
Me.txtReleaseDate & """, """ & _
Me.CboStatus & """, """ & _
Me.txtCSI & """, """ & _
Me.txtBPM & """, """ & _
Me.cboImplemented & """, """ & _
Me.cboStakeholder & """, """ & _
Me.cboIBR1 & """, """ & _
Me.cboIBR2 & """, """ & _
Me.cboIBR3 & """, """ & _
Me.txtObjective & """, """ & _
Me.txtSMERequirements & """, '" & _
Me.cboPhase & "')"
DoCmd.RunSQL "UPDATE tbl_Projects " & _
"SET ProjectName = '" & Me.cboProjectName & "', " & _
" SystemsImpacted = '" & Me.TxtSystemsImpacted & "', " & _
" SPRNum = '" & Me.txtSPR & "', " & _
" ReleaseDate = '" & Me.txtReleaseDate & "', " & _
" Status = '" & Me.CboStatus & "', " & _
" CSIPM = '" & Me.txtCSI & "', " & _
" BPM = '" & Me.txtBPM & "', " & _
" Implemented = '" & Me.cboImplemented & "', " & _
" StakeHolder = '" & Me.cboStakeholder & "', " & _
" IBR1 = '" & Me.cboIBR1 & "', " & _
" IBR2 = '" & Me.cboIBR2 & "', " & _
" IBR3 = '" & Me.cboIBR3 & "', " & _
" Objective = '" & Me.txtObjective & "', " & _
" SMERequirments = '" & Me.txtSMERequirements & "', " & _
" Phase = '" & Me.cboPhase & "' " & _
"Where ProjectName = '" & Me.cboProjectName & "'"
DoCmd.RunSQL "Insert into tbl_Projects (ProjectName, SystemsImpacted, SPRNum,ReleaseDate, Status, CSIPM, BPM, Implemented, StakeHolder, IBR1, IBR2, IBR3, Objective, SMERequirments, Phase) " & _
"Values ('" & Me.txtProjectName & "', """ & _
Me.TxtSystemsImpacted & """, """ & _
Me.txtSPR & """, """ & _
Me.txtReleaseDate & """, """ & _
Me.CboStatus & """, """ & _
Me.txtCSI & """, """ & _
Me.txtBPM & """, """ & _
Me.cboImplemented & """, """ & _
Me.cboStakeholder & """, """ & _
Me.cboIBR1 & """, """ & _
Me.cboIBR2 & """, """ & _
Me.cboIBR3 & """, """ & _
Me.txtObjective & """, """ & _
Me.txtSMERequirements & """, '" & _
Me.cboPhase & "')"