Deleting existing recod

[guilpter]

Hi, guys I;m new with the MS access and i need some help I hope you can help me so, here's the problem i have this adding VBA code
Private Sub btnAdd_Click()
Dim dbFilmi As DAO.Database
Dim rstInfoTBL As DAO.Recordset

Set dbFilmi = CurrentDb
Set rstInfoTBL = dbFilmi.OpenRecordset("InfoTBL")

rstInfoTBL.AddNew
rstInfoTBL("ID").Value = Me.txtID
rstInfoTBL("Name").Value = Me.txtName


rstInfoTBL("DOB").Value = Me.txtDateFrom
rstInfoTBL.Update
rstInfoTBL.Close


End Sub
how do i make a delte button :X

[June7]

The keyboard Delete will delete record. Do you want to disable it and create your own delete button?

[guilpter]

Yes I want to create my own delete button and to delete the existing record

[guilpter]

dim dbs as dao.database
dim rst as dao.recordset

set dbs = currentdb

set rst = dbs.openrecordset("tablename")

Then to delete records, find the relevant row in the recordset and...

rst.delete

This one should do the trick but i don't know how "to find the relevant row in the recordset"
..

[June7]

If you want to delete the current selected record on form:

DoCmd.RunCommand acCmdDeleteRecord

If you want to delete record(s) not on the form:

CurrentDb.Execute "DELETE FROM tablename WHERE ID=" & Me.ID

The example used ID field as criteria but could be whatever you need to identify the record.

However, none of this prevents user from using the keyboard Delete.