Aplica-se a
Objeto Form |
Objeto Report |
Pode utilizar a propriedade Modificado para determinar se o registo atual foi modificado desde a última vez que foi guardado. Por exemplo, poderá ter de perguntar ao utilizador se as alterações a um registo foram propositadas e, caso contrário, permitir que o utilizador passe para o próximo registo sem guardar as alterações. Booleano de leitura/escrita.
expressão.Modificado
expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se A.
Observações
A propriedade Modificado utiliza as seguintes definições.
Definição |
Visual Basic |
Descrição |
True |
True |
O registo atual foi alterado. |
False |
False |
O registo atual não foi alterado. |
Esta propriedade está disponível na vista de Formulário e na vista de Folha de dados.
Esta propriedade é definida ou lida com uma macro ou código VBA (Visual Basic for Applications).
Quando um registo é guardado, o Microsoft Office Access 2007 define a propriedade Modificado como False. Quando um utilizador faz alterações a um registo, a propriedade é definida como True.
Exemplo
O seguinte exemplo ativa o botão btnUndo quando os dados são alterados. A sub-rotina UndoEdits( ) é chamada a partir do evento AfterUpdate dos controlos de caixa de texto. Clicar no botão btnUndo ativado restaura o valor original do controlo ao utilizar a propriedade ValorAntigo.
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