EditMode Property 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