Свойство Recordset.EditMode (DAO)

  • Статья

Область применения: Access 2013, Office 2013

Возвращает значение, которое указывает состояние редактирования для текущей записи.

Синтаксис

expression . EditMode

expression: переменная, представляющая объект Recordset.

Примечания

Возвращаемое значение — long, указывающее состояние редактирования. Значение может быть одной из констант EditModeEnum .

Свойство EditMode полезно, если процесс редактирования прерывается, например, из-за ошибки во время проверки. Значение свойства EditMode можно использовать, чтобы определить, следует ли использовать метод Update или CancelUpdate .

Вы также можете проверка, чтобы узнать, имеет ли параметр свойства LockEditsзначение True, а параметр свойства EditMode — dbEditInProgress, чтобы определить, заблокирована ли текущая страница.

Пример

В этом примере показано значение свойства EditMode при различных условиях. Для выполнения этой процедуры требуется функция EditModeOutput.

    Sub EditModeX() 
     
     Dim dbsNorthwind As Database 
     Dim rstEmployees As Recordset 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     Set rstEmployees = _ 
     dbsNorthwind.OpenRecordset("Employees", _ 
     dbOpenDynaset) 
     
     ' Show the EditMode property under different editing 
     ' states. 
     With rstEmployees 
     EditModeOutput "Before any Edit or AddNew:", .EditMode 
     .Edit 
     EditModeOutput "After Edit:", .EditMode 
     .Update 
     EditModeOutput "After Update:", .EditMode 
     .AddNew 
     EditModeOutput "After AddNew:", .EditMode 
     .CancelUpdate 
     EditModeOutput "After CancelUpdate:", .EditMode 
     .Close 
     End With 
     
     dbsNorthwind.Close 
     
    End Sub 
     
    Function EditModeOutput(strTemp As String, _ 
     intEditMode As Integer) 
     
     ' Print report based on the value of the EditMode 
     ' property. 
     Debug.Print strTemp 
     Debug.Print " EditMode = "; 
     
     Select Case intEditMode 
     Case dbEditNone 
     Debug.Print "dbEditNone" 
     Case dbEditInProgress 
     Debug.Print "dbEditInProgress" 
     Case dbEditAdd 
     Debug.Print "dbEditAdd" 
     End Select 
     
    End Function