You might want to use the following code. This code does not care about the current view of your screen. It does assume you want to delete the record on the form that currently has the focus.
'---------------------------------------------------------------------------------------
' Procedure : Delete_click
' DateTime : 10/3/2002 10:19
' Author : bermanr
' Purpose : Deletes record at current record mark
'---------------------------------------------------------------------------------------
'
Private Sub Delete_click()
On Error GoTo Delete_click_Error
Dim rs As DAO.Recordset
Dim bkm As Variant
bkm = Me.Bookmark
Set rs = Me.RecordsetClone
rs.Bookmark = bkm
rs.Delete
rs.Close
Set rs = Nothing
Me.Requery
On Error GoTo 0
Exit Sub
Delete_click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & "

in procedure Delete_click of Module Module1"
End Sub
Robert Berman
Data Base consultant
Vulcan Software Services
thornmastr@yahoo.com