Kod:
Private Sub DURUMU_AfterUpdate()
If Me.[DURUMU]= "Gönderildi" Then
MsgBox("SİLİNECEK ! EMİNMİSİNİZ? ", 36, " DİKKAT ") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
End Sub