Я обычно на такую кнопку вешаю Вот такой код
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub КнУдалить_Click()
Dim iMsg As Integer
iMsg = MsgBox("Вы действительно хотите удалить запись?", 36, "Удаление записи")
Select Case iMsg
Case vbYes
'Place conditional Code here
strSQL = "Delete * from Таблица where Идентификатор=" + ЗначениеИдентификатора + " ;"
CurrentDb.Execute strSQL
Me.Requery ' обновляет форму
Case vbNo
'Place conditional Code here
End Select
End Sub
Для того, что бы сохранить положение указателя надо немного усложнить программу. Поищи по форуму. Много раз вопрос поднимался.
В качестве идентификатора я обычно использую счётчик.
