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
  • Last updated on