Na događaj forme Before Del Confirm napiši:

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
If MsgBox("Dali ste sigurni da zelite da obrisete podatke", vbYesNo, "Paznja") = vbNo Then
Cancel = True
Else
Response = acDataErrContinue
End If
End Sub


iza ovog sledi brisanje.

Ili ako hoces da ti sve bude vezano za dogadjaj On Click na dugme brisi:

Private Sub obrisi_Click()
odgovor = MsgBox("Da li ste sigurni da zelite da obrisete Artikal?", vbYesNo, "Potvrda brisanja")

If odgovor = vbYes Then
DoCmd.SetWarnings False
RunCommand acCmdDeleteRecord
Else
Cancel = True
End If
Me.Refresh
DoCmd.SetWarnings True

End Sub

Zdravo i jedno veliko hvala drugari
Trudio sam se sa oba koda i moram priznati da sam nekako lakše dobio rešenje po drugom primeru možda sam lakše shvatio iz toga razloga što sam imo gore dugme na koje se je odnosilo moj problem.Još jednom hvala vam obadvojici na rešenju.Puno ste mi pomogli..