[Tasos]

Νίκο καλησπέρα!

Χρησιμοποίησε το συμβάν της φόρμας Form_Error():

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 2279 Then
        ActiveControl.Undo
        Response = acDataErrContinue
        MsgBox "...."
    End If
End Sub

Ελπίζω να βοήθησα!

Με εκτίμηση

Τάσος