Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Utilize a propriedade Dirty para determinar se o registo atual foi modificado desde a última vez que foi guardado. Boolean de leitura/gravação.
Sintaxe
expressão. Sujo
expressão Uma variável que representa um objeto Relatório .
Comentários
Por exemplo, poderá querer perguntar ao utilizador se as alterações a um registo se destinavam e, caso contrário, permitir que o utilizador passe para o registo seguinte sem guardar as alterações.
Quando um registro é salva, o Microsoft Access define a propriedade Dirty como False. Quando um usuário faz alterações em um registro, a propriedade é definida como True.
Exemplo
O exemplo seguinte ativa o botão btnUndo quando os dados são alterados. A subrreplicação UndoEdits( ) é chamada a partir do evento AfterUpdate dos controlos da caixa de texto. Escolher o botão btnUndo ativado restaura o valor original do controlo com a propriedade OldValue .
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.