Propriedade Modificado

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
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×