Delete Record using VBA

[illini]

Currently, I'm using DoCmds to open a query, select a record, and delete it. Here's the way it looks.

DoCmd.OpenQuery "Qry_Rec", acViewNormal, acEdit
DoCmd.GoToRecord acDataQuery, "Qry_Rec", acFirst
DoCmd.RunMacro "Macro1" 'RunCommand / DeleteRecord
DoCmd.Close acQuery, "Qry_Rec", acSaveNo

When I run this, the user actually sees the query open, the record deleted, and the query closed.

Is there any better way, using vba, to delete a specific record?

-illini

 

[SBendBuckeye]

Dim strSQL As String

strSQL = "Delete tlbName.* From tblName Where criteria"
DoCmd.RunSQL strSQL

If you look at the SQL in the SQL View of your delete query you will see the exact SQL you need to do what you are asking. Just hook it into the DoCmd.RunSQL statement as above.

Good Luck!

PS. Make sure you back up your table first in case it does not work as planned the first time (Rarely happens of course).

 

[illini]

Thankyou very much. That works great!