Ändring av fält i Access..

Om man ändrar i fält i ett formulär som är bundna till en tabell så provade jag att lägga in följande kod vid eventet Föreuppdatering på fältet "Tel".:

Private Sub Tel_BeforeUpdate(Cancel As Integer)
If MsgBox("Utföra ändring?", vbYesNo) = vbNo Then
Cancel = 1
Else
Cancel = 0
End If
End Sub

Problemet med koden ovan är att när man trycker "Avbryt" så återställs inte fältet "Tel" vad det var innan ändringen. För att få till det är jag tvungen trycka Esc.

Om man tryckt Avbryt och vill slippa återställa fältet genom Esc la jag istället in följande kod:

Private Sub Tel_BeforeUpdate(Cancel As Integer)
If (MsgBox("Utföra ändring?", 1) = 2) Then
        DoCmd.CancelEvent
        SendKeys "{Esc}", False
    End If
 
End Sub

Tror jag fick det att funka men koden ser säkert hemsk ut.

Bör jag ändra koden något? :-)