Kod:
Private Sub Durum_AfterUpdate()
If Me.Durum = "Gönderildi" Then
cevap = MsgBox("Seçilen kayıt silinecek devam edilsin mi?", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
ElseIf cevap = vbNo Then
MsgBox ("Kayıt Silinmedi")
End If
End If
If Me.Durum = "Teslimedildi" Then
MsgBox ("Seçilen kayıt gizlenecek "), vbInformation, "DİKKAT"
DoCmd.Requery
Else
End If
End Sub