ДЫк вЫ, батенька, с несвязанным контролом связались? У него может быть OldValue = Value, поскольку его, OldValue-то и нет (по большому счету). Потому и Cancel Вас назад не вертает. Или уж свяжите поле с чем-то, или по входу - берите старое значение в переменную, и обрабатывайте After_Update.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Explicit
Private eOld
Private Sub ПолеСоСписком2_Enter()
eOld = Me.ПолеСоСписком2
End Sub
Private Sub ПолеСоСписком2_AfterUpdate()
If MsgBox( "Точно?" , vbOKCancel) = vbOK Then
eOld = Me.ПолеСоСписком2
Else
Debug.Print eOld & " | " & Me.ПолеСоСписком2
On Error Resume Next
Me.ПолеСоСписком2 = eOld
Debug.Print Err.Description
End If
End Sub
