error in updating the record in table

[moises]

hi guys,

i have a separate button to update the record, but when i run or click the cmdUpdate button it gives me an error;

code below is the one i'm working thru.

Private Sub cmdUpdate_Click()

strSQL1 = "UPDATE tblAMHMace " & _


" SET ReferenceNo=" & Me.txtReferenceNo & "'" & _
", DateLog='" & Me.txtDate & "'" & _
", DocType='" & Me.txtDocType & "'" & _
", Subject='" & Me.txtSubject & "'" & _
", Recipient='" & Me.txtRecipient & "'" & _
", Company='" & Me.txtCompany & "'" & _
", Initiator='" & Me.cboInitiator & "'" & _
", Status='" & Me.cboStatus & "'" & _
", PreparedBy='" & Me.txtPreparedBy & "'" & _
", WHERE ReferenceNo=" & Me.txtReferenceNo.Tag

If Me.txtReferenceNo.Tag & "" = "" Then

MsgBox "Record exist", , ""

Else

rs.Edit
db.Execute strSQL1, dbFailOnError
rs.Update
rs.MoveNext

MsgBox "Record has been updated...", vbInformation + vbOKOnly, "Database Information"

DoCmd.Close acForm, Me.Name

End If

End Sub

[orange]

Must have matching quotes.
If you have a quote within a string, you must double that quote.

....Manager's .... should be .....Manager''s.....

See this for more info

[June7]

I use Replace() function to manage this issue in construction of SQL statements. So as example, if field contains data like "O'Hare", the code would be:

"UPDATE tablename SET fieldname ='" & Replace(Me.cbxName, "'", "''") & "' WHERE

[moises]

Hi guys,

Sorry for late reply. I use REPLACE() query but still not working.

[June7]

If you want to provide db for analysis, follow instructions at bottom of my post.

Why are you using UPDATE action anyway? Why not editing record on bound form?

[moises]

Hi june7,

Thanks for the instruction, i use editing record in bound form and it works.

But i still trying to make the updating query work, i have a query in inserting and deleting record but not in the editing records. thanks...

[June7]

Date/time type fields require # delimiter for value.

", DateLog=#" & Me.txtDate & "#" & _