Kako prepraviti komandu DeleteRecord?

Pocetnik sam u Access-u i VBA, pa bih molio za malu pomoć. Ovo je kod brisanja recorda:

Private Sub Del_Click()
On Error GoTo Err_Del_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Del_Click:
Exit Sub

Err_Del_Click:
MsgBox Err.Description
Resume Exit_Del_Click

End Sub


E, sad ja sam hteo da napravim svoj kod, da se ne pojavljuje standardne poruke nego one koje ja napisem:

Private Sub cmdDel_Click()
Dim Odgovor As Integer

Odgovor = MsgBox("Sigurni ste da zelite da obrisete podatke?", vbYesNo, "Paznja!")

If Odgovor = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Else
Cancel = True
End If
End Sub

Vidite već koji me deo muči, kako to uraditi?

Tvoj kod je OK, tebi zapravo treba da u Tools>Options> kartica Edit/Find u delu Confirm podesiš "Record Changes" na NO.

Imaš i drugih mogučnosti.
Ja unos, ispravak , brisanje sve radim iz koda.

Evo za brisanje , kod ubacis na event od neke tipke.

Dim d As Database
Dim R As Recordset
Set d = CurrentDb
Set R = d.OpenRecordset("select * from tblpodrucni where sifrapo='" & sifrapo & "'")
If R.EOF Then
Msgbox "Podaci ne postoje za brisanje "
Else
If MsgBox("Želite li zaista obrisati podatak", vbYesNo, "Pažnja") = vbYes Then
R.Delete
End If
End If

R.Close
Set d = Nothing


Pozdrav trtko