RunTime Error 3020 in VBA

[Paul_birm]

Hi ... fairly new to this...

I have the following code but when it runs, it drops to debug with the runtime error '3020' Update or cancelUpdate without AddNew or Edit

and i cant figure out what i have done wrong (or havent done)

Option Compare Database

Private Sub Command15_Click()
Dim db As Database
Dim rs As Recordset
Dim qnum As Integer
Dim qreccount As Integer
Dim qreccounter As Integer
Dim ans
Dim sql As String

'''MsgBox ("Do You Want to Submit",vbYesNo "DFE Database")
Dim Response As Integer
Dim StrMessage As String
Dim StrTitle As String
StrMessage = "Are You Sure You Want to Submit?"
StrTitle = "DFE Database"
Response = MsgBox(StrMessage, vbOKCancel, StrTitle)
If Respnse = vbOK Then 'User chose OK Button
Else
DoCmd.Close

sql = "SELECT TBL_Questionnaire.Questionnaire_ID, TBL_Questionnaire.Project_Number, TBL_Questionnaire.Product_group, TBL_Questionnaire.Product_Number, TBL_Questionnaire.Project_Description, TBL_Questionnaire.Premanufacture_Comments, TBL_Questionnaire.Product_Manufacture_Comments, TBL_Questionnaire.Distribution_Packaging_Comments, TBL_Questionnaire.Product_Use_Maintenance_Comments, TBL_Questionnaire.End_of_Life_Comments From TBL_Questionnaire WHERE (((TBL_Questionnaire.Questionnaire_ID)=" & questid & "));"
Set dbCurrent = CurrentDb()
Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)

With rs
.Update
!Project_Number = Me![Project_Number]
!Product_Group = Me![Product_Group]
!Product_Number = Me![Product_Number]
!Project_Description = Me![Project_Description]
!Premanufacture_Comments = Me![Premanufacture_Comments]
!Product_Manufacture_Comments = Me![Product_Manufacture_Comments]
!Distribution_Packaging_Comments = Me![Distribution_Packaging_Comments]
!Product_Use_Maintenance_Comments = Me![Product_Use_Maintenance_Comments]
!End_of_Life_Comments = Me![End_of_Life_Comments]
.Update

End With

rs.close

end if


-----

thanks in advance

 

[pbaldy]

The error is pretty descriptive. Try this:

...
With rs
.Edit
...