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
--
Wayne
Manchester, England.
"Robert" wrote:
> 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" <(E-Mail Removed)> wrote in message
> news:200514FE-37B3-4CD5-9621-(E-Mail Removed)...
> > 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
> >
> >
> > --
> > Wayne
> > Manchester, England.
> >
> >
> >
> > "Robert" wrote:
> >
> >> 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
> >>
> >>
> >>
> >>
> >>
> >>
> >
>
>
>
>
|
Similar Threads
