Описание
Отменяет все предстоящие изменения объекта Recordset.
наборЗаписей.CancelUpdate тип
Параметры
наборЗаписей
Объектная переменная, представляющая объект Recordset, для которого отменяются отложенные обновления.
тип
Необязательный. Константа, указывающая тип обновления, как описано ниже (только в рабочей области ODBCDirect).
Замечания
Метод CancelUpdate отменяет любые предстоящие операции обновления, являющиеся следствием вызова методов Edit или AddNew. Это означает, что если пользователь вызвал методы Edit или AddNew и еще не вызвал метод Update, то метод CancelUpdate приведет к отмене всех изменений, которые были следствием вызова методов Edit или AddNew.
Для того чтобы определить, имеются ли операции, которые можно отменить, следует проверить значение свойства EditMode объекта Recordset
Вызов метода CancelUpdate приводит к тем же результатам, как и переход на другую запись без вызова метода Update, с тем лишь исключением, что при этом не изменяется положение текущей записи и не изменяются значения таких свойств как BOF и EOF.
Пример
Следующая программа демонстрирует использование метода CancelUpdate с методом AddNew.
Sub CancelUpdateX() Dim dbsNorthwind As Database Dim rstEmployees As Recordset Dim intCommand As Integer Set dbsNorthwind = OpenDatabase("Борей.mdb") Set rstEmployees = dbsNorthwind.OpenRecordset( "Сотрудники", bOpenDynaset) With rstEmployees .AddNew !Имя = "Иван" !Фамилия = "Петров" intCommand = MsgBox("Добавить запись для " & !Имя & " " & !Фамилия & "?", vbYesNo) If intCommand = vbYes Then .Update MsgBox "Запись добавлена." ' Удаляет новую запись, ' добавленную для демонстрации. .Bookmark = .LastModified .Delete Else .CancelUpdate MsgBox "Запись не добавлена." End If End With dbsNorthwind.Close End Sub