Delete Record; Yes/No

[mar_t]

I copy & paste this code from my previous post. The code works perfectly, however if I select No it will display this error " Run-time error "2501" The RunSQL action was canceled" and I have two option..its either End or Debug. What I want is that. once I click No the run-time error will not appear...help.

Private Sub cmdDelete_Click()
  sql = "DELETE FROM tblGroup WHERE GroupID = '" & GroupID & "'"
  DoCmd.RunSQL (sql)
  lst1.Requery
  End Sub

[jgelpi16]

need to have a " * " in your SQL and add square brackets around GroupID

sql = "DELETE * FROM tblGroup WHERE [GroupID] = '" & GroupID & "';"

[mar_t]

Hi jgelpi16,

As suggested from my previous post, I'm re-posting the codes since the data type for my GroupID field is a number. However, I can't seem to make it work... run-time error 2501 still appear ...please help

sql = "Delete * FROM tblGroup WHERE [GroupID] = (" & Me.GroupID & ")"

[jgelpi16]

Ok...You'll need to take the following code....

Dim vGroupID as Integer
Dim mySQL as String
vGroupID = objGroupID.Value

mySQL = "DELETE * FROM tblGroup WHERE [GroupID] = " & vGroupID & ";"
CurrentDb.Execute mySQL

This code assumes "GroupID" is the field name within your table "tblGroup". "objGroupID" represents your combo box, text box, etc. that contains the GroupID you want to delete.

[mar_t]

I added a couple of codes from "Delete record" wizard and its finally working.

Thank you.

[jgelpi16]

What was your final code?