Freigeben über

Recordset2.EditMode-Eigenschaft (DAO)

  • Artikel

Gilt für: Access 2013, Office 2013

Gibt einen Wert zurück, der den Bearbeitungsstatus für den aktuellen Datensatz angibt.

Syntax

Ausdruck . Editmode

Ausdruck Eine Variable, die ein Recordset2-Objekt darstellt.

Hinweise

Der Rückgabewert ist ein Long-Datentyp, der den Bearbeitungsstatus angibt. Der Wert kann eine der EditModeEnum -Konstanten sein.

Die EditMode-Eigenschaft ist nützlich, wenn ein Bearbeitungsvorgang unterbrochen wurde, wie z. B. bei einem Fehler bei der Gültigkeitsprüfung. Sie können mit dem Wert der EditMode-Eigenschaft feststellen, ob die Update- oder die CancelUpdate-Methode verwendet werden soll.

Sie können auch überprüfen, ob der Wert der LockEdits -Einstellung True und der Wert der EditMode-Einstellung dbEditInProgress ist, um festzustellen, ob die aktuelle Seite gesperrt ist.

Beispiel

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 Recordset2 
     
     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