Delete Subform Record

[Huey462]

I have a form (frmPeople) with several subforms, how can I delete a single record from the subform?</SPAN>

For example, John Doe has two speeding tickets on file, but one of them is a duplicate.</SPAN>

I have tried to select a textbox in the subform then run a delete command, but it deletes the record from the mainform (the person in this case)
</SPAN>

</SPAN>
Me.frmTickets.Form.txtCR1.SetFocus</SPAN>
DoCmd.RunCommand acCmdDeleteRecord</SPAN>

</SPAN>

How can I delete the subform record not the “main” record?</SPAN></SPAN>

 

[xenou]

Hi
if the subform is editable then just click on the row and hit the delete button (either on the top menu or from the right click menus).

If you need to do this in code you have to address the subform, not the form. It sounds iffy though. If the records are duplicates you need to identify one of them to delete and one not to delete.

It is also possible that your "duplicates" are because of a mistake in the way the query or form is created - in which case there is really only one record in the table, not two.

 

[Huey462]

The duplicate in the example is an actual duplicate, same info entered twice. I had hoped to copy/paste the code for each subform, but it seems like doing a sql delete from the table using the autonumber record ID may be the easier way to go.</SPAN></SPAN>

 

[Huey462]

Thank you for the help. In the off chance someone else has this issue, below is the code I used to fix the problem

Dim Check As Integer
  Check = MsgBox("Are you sure that you want to permanently delete all of the information?", vbOKCancel, "Confirm deletion.")
    If Check = vbCancel Then
        Cancel = True
        MsgBox ("Deletion cancelled!"), vbOKOnly, "Nothing Deleted"
    ElseIf Check = vbOK Then
        'sets database and recordset
        DoCmd.SetWarnings False
        Dim dbs As dao.Database
        Dim rst As dao.Recordset
        Set dbs = CurrentDb
        Set rst = dbs.OpenRecordset("tblallControlRoster")
        rst.Delete 'Deletes current record
        DoCmd.SetWarnings True
        MsgBox ("Record deleted, the form will now reload."), vbOKOnly, "Deletion Successful"
    End If
Call PeopleRecordCount 'updates checkboxes
Me.Requery 'reloads the form to update count/query