Can you remark out one of the update lines:
try to run to see if it is one of the data fields you are passing that is not right.Code:Dim db As Database Dim Rslt As Recordset Set db = CurrentDb() Set Rslt = db.OpenRecordset("Result") Rslt.AddNew Rslt("Field1") = msg_id 'Rslt("Field2") = comment '<< commented out Rslt.Update set rslt = nothing
Also press ctrl+g and type:
then press return... does that print out the two data items correctly?Code:?msg_id,comment




Reply With Quote