Recordset2.EditMode 属性 (DAO)

适用于：Access 2013、Office 2013

返回指示当前记录编辑状态的一个值。

语法

表达式 。EditMode

表达 一个代表 Recordset2 对象的变量。

备注

返回值是一个 Long，用于指示编辑的状态。 该值可以是 EditModeEnum 常量之一。

例如，在验证过程中，如果由于错误中断了编辑过程，则 EditMode 属性十分有用。 可以使用 EditMode 属性值确定应使用 Update 方法还是 CancelUpdate 方法。

您也可以查看 LockEdits 属性设置是否为 True 以及 EditMode 属性设置是否为 dbEditInProgress，以确定当前页是否被锁定。

示例

以下示例演示在各种情况下 EditMode 属性的值。 若要运行此过程，必须使用 EditModeOutput 函数。

    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