Compartir a través de

Recordset.EditMode Property (DAO)

  • Artículo

Returns a value that indicates the state of editing for the current record.

Syntax

expression .EditMode

expression A variable that represents a Recordset object.

Remarks

The return value is a Long that indicates the state of editing. The value can be one of the EditModeEnum constants.

The EditMode property is useful when an editing process is interrupted, for example, by an error during validation. You can use the value of the EditMode property to determine whether you should use the Update or CancelUpdate method.

You can also check to see if the LockEdits property setting is True and the EditMode property setting is dbEditInProgress to determine whether the current page is locked.

Example

This example shows the value of the EditMode property under various conditions. The EditModeOutput function is required for this procedure to run.

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