Delete record function

[Evgeny]

Hi guys,



I have button with OnClick function

Private Sub Command53_Click()
DoCmd.RunSQL "Delete Customer ID.* From Customer;"
DoCmd.Requery
End Sub

Which deletes CustomerID and all related records, it works fine, but i want it just to delete current record not all of them. is it possbile?

Many Thanks

Evgeny

[pbaldy]

That really works? Your solution would be along the lines of

DoCmd.RunSQL "Delete * From Customer WHERE ID = " & Me.ID

But you may want to use the command button wizard. People often get into trouble trying to affect records with code on a form bound to the table. If the record is "dirty" on the form, the SQL delete will fail with an error along the lines of "Another user is editing ...". The "other user" is the bound form, not an actual user.

[Evgeny]

yeah, i does work and suprisingly i created the function myself lol. I tried running this

DoCmd.RunSQL "Delete * From Customer WHERE Customer Number = " &
Me.txt_CustomerNumber
DoCmd.Requery

But it gives me run-time error "3075", synax error in query expression "Customer Number ="

[Evgeny]

DoCmd.RunSQL "Delete * From Customer Where [Customer Number] = " & Me.txt_CustomerNumber ... Simple brakets around Customer Number solved the problem

[Evgeny]

If you have a min can you look in to my Combo Box post please.

[pbaldy]

Spaces in object names are a never-ending source of aggravation. I'd get rid of them if it's not too late.

[Evgeny]

haha, thank you for advise. Gona Backup my DB and GO Ahad and Delete these bad boys, wish me luck