Propiedad Form. Dirty (Access)Form.Dirty property (Access)

Puede usar la propiedad Dirty para determinar si se ha modificado el registro actual desde que se guardó por última vez.You can use the Dirty property to determine whether the current record has been modified since it was last saved. Boolean de lectura y escritura.Read/write Boolean.

SintaxisSyntax

expresión. Sucioexpression.Dirty

expresión Variable que representa un objeto Form.expression A variable that represents a Form object.

ComentariosRemarks

Por ejemplo, es posible que desee preguntar al usuario si los cambios realizados en un registro han sido intencionados y, si no es así, permitir al usuario pasar al siguiente registro sin guardar los cambios.For example, you may want to ask the user whether changes to a record were intended, and if not, allow the user to move to the next record without saving the changes.

Al guardar un registro, Microsoft Access establece la propiedad Dirty en False.When a record is saved, Microsoft Access sets the Dirty property to False. Cuando un usuario realiza cambios en un registro, la propiedad se establece en True.When a user makes changes to a record, the property is set to True.

EjemploExample

En el siguiente ejemplo se habilita el botón btnUndo cuando se modifican datos.The following example enables the btnUndo button when data is changed. Se llama a la subrutina UndoEdits () desde el evento AfterUpdate de los controles de cuadro de texto.The UndoEdits( ) subroutine is called from the AfterUpdate event of the text box controls. Si se elige el botón btnUndo habilitado, se restaura el valor original del control mediante la propiedad OldValue .Choosing the enabled btnUndo button restores the original value of the control by using the OldValue property.

Sub UndoEdits() 
 If Me.Dirty Then 
 Me!btnUndo.Enabled = True ' Enable button. 
 Else 
 Me!btnUndo.Enabled = False ' Disable button. 
 End If 
End Sub 
 
Sub btnUndo_Click() 
 Dim ctlC As Control 
 ' For each control. 
 For Each ctlC in Me.Controls 
 If ctlC.ControlType = acTextBox Then 
 ' Restore Old Value. 
 ctlC.Value = ctlC.OldValue 
 End If 
 Next ctlC 
End Sub

Soporte técnico y comentariosSupport and feedback

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación?Have questions or feedback about Office VBA or this documentation? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.