Есть поле с данными, ну например с датой 30.01.04
Допустим я хочу внести изменения, но на событие
Private Sub Дата_Change()

If (Move = -1) Then
MsgBox "изменения запрещенны!!!", vbCritical, "Внимание!Ошибка!"
Else
End If
End Sub

Public Function Move() 'Функция для проверки
MoveToExpense = [Form_Форма1].Перемещенна.Value '(знач. -1 и 0)
End Function

процедура отрабатывает отлично, но изменения данных в поле все же происходит, а как мне данные которые были до изменения вернуть в исходное положение, что бы в итоге вышло предупреждение и данные не были изменены!
Может на другое событие ???

ааа, все оказывается можно сделать так

MsgBox "изменения запрещенны!!!", vbCritical, "Внимание!Ошибка!"
Me.Undo