Recordset.EditMode, propriété (DAO)

S’applique à : Access 2013, Office 2013

Renvoie une valeur qui indique l’état de modification pour l’enregistrement actif.

Syntaxe

expression . EditMode

expression Variable représentant un objet Recordset.

Remarques

La valeur renvoyée est un type Long spécifiant l'état de modification. La valeur peut être l'une des constantes EditModeEnum.

La propriété EditMode est utile lorsqu'un processus d'édition est interrompu, par exemple en raison d'une erreur au cours de la validation. Vous pouvez utiliser la valeur de la propriété EditMode pour déterminer si vous devez utiliser la méthode Update ou CancelUpdate.

Vous pouvez aussi vérifier si le paramètre de la propriété LockEdits est True et celui de la propriété EditMode a la valeur dbEditInProgress afin de déterminer si la page active est verrouillée.

Exemple

Cet exemple illustre la valeur de la propriété EditMode sous diverses conditions. La fonction EditModeOutput est nécessaire à l'exécution de la procédure.

    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