Button to delete record on datasheet subform

[Robert]

I have a main form with a datasheet subform on it. Records can be deleted
from the subform by selecting the record and then clicking on the delete
icon on the toolbar. But I want a custom delete button. And you can't put
a button on a datasheet. So if I put a button on the main form, what code
do I use to delete the selected record(s) on the datasheet subform? The
following when placed in the button's on click event do not work:

DoCmd.RunCommand acCmdDeleteRecord
and
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Robert

 

[Wayne-I-M]

Private Sub MAINFORMNAME_Click()
Dim rs As DAO.Recordset
With Me.DATASHEETFORMNAME.Form
Set rs = .RecordsetClone
rs.Bookmark = .Bookmark
rs.Delete
Set rs = Nothing
End With
End Sub


Change MAINFORMNAME and DATASHEETFORMNAME

 

[Robert]

Thank you. It works but it will not delete mulitple records like the icon.
Is there any way to make it delete more than 1 record?

 

[Wayne-I-M]

Hi Robert

In the subform
I would look into OnClick of the form add the ID to a delete query

On the main form
Use the button to run the query
Then requery the subform


Note
I would put a checker on this.
On click - are you sure you want to delete the selected records -
No = Do nothing
Yes = run the query

Sorry don't have time to do this for you this morning (it's a public holiday
in the UK for the next 2 days - so taking the kids to the beach).

It not difficult so you should be OK - or if you have problems - post back
and someone else will jump in with the answering method

 

[Jan Baird]

Jan Baird is out of the country until September 20. Every effort will be
made to respond to messages, but please be patient.

 

[Robert]

What?