Propriedade Recordset2.EditMode (DAO)

Aplica-se ao: Access 2013, Office 2013

Retorna um valor que indica o estado da edição do registro atual.

Sintaxe

expressão . Editmode

Expressão Uma variável que representa um objeto Recordset2 .

Comentários

O valor de retorno é um Long que indica o estado da edição. O valor pode ser uma das constantes EditModeEnum.

A propriedade EditMode será útil quando um processo de edição for interrompido, por exemplo, por um erro durante a validação. Use o valor da propriedade EditMode para determinar se você deverá usar o método Update ou CancelUpdate.

Você também pode verificar se a definição da propriedade LockEdits será True e a definição da propriedade EditMode será dbEditInProgress para determinar se a página será bloqueada.

Exemplo

Este exemplo mostra o valor da propriedade EditMode em várias condições. A função EditModeOutput é necessária para esse procedimento ser executado.

    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