Compartir a través de

Propiedad Recordset.EditMode (DAO)

  • Artículo

Se aplica a: Access 2013, Office 2013

Devuelve un valor que indica el estado de edición del registro actual.

Sintaxis

expresión . EditMode

expression Variable que representa un objeto Recordset.

Comentarios

El valor devuelto es de tipo Long que indica el estado de edición. El valor puede ser una de las constantes EditModeEnum.

La propiedad EditMode es útil cuando se interrumpe un proceso de edición, por ejemplo, por un error durante la validación. Puede utilizar el valor de la propiedad EditMode para determinar si debería utilizar el método Update o CancelUpdate.

También puede comprobar si el valor de la propiedad LockEdits es True y el valor de la propiedad EditMode es dbEditInProgress para determinar si la página actual está bloqueada.

Ejemplo

En este ejemplo se muestra el valor de la propiedad EditMode en diversas condiciones. Se requiere la función EditModeOutput para que pueda ejecutarse este procedimiento.

    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