Evento WebBrowserControl.Dirty (Access)

O evento Dirty ocorre quando o conteúdo do controle especificado é alterado.

Sintaxe

expressão. Sujo (Cancelar)

expressão Uma variável que representa um objeto WebBrowserControl .

Parâmetros

Valor de retorno

Nada

Comentários

Inserir um caractere diretamente na caixa de combinação ou caixa de texto ou a alteração de propriedade de texto do controle usando uma macro ou o Visual Basic a definição são exemplos desse evento.

Modificar um registro de um formulário utilizando uma macro ou o Visual Basic não dispara esse evento. Você deve digitar os dados diretamente no registro ou definir a propriedade Text do controle.

Esse evento aplica-se apenas a um formulário acoplado e não a um relatório ou formulário não acoplado.

Para executar um macro ou procedimento de evento quando esse evento ocorrer, defina a propriedade OnDirty com o nome da macro ou como [procedimento do evento].

Ao executar um procedimento de macro ou evento quando ocorre um evento Dirty , pode determinar se o registo pode ser alterado. Você também poderá exibir uma mensagem e solicitar permissão de edição.

Alterar os dados num registo através do teclado faz com que ocorram eventos de teclado, além de controlar eventos como o evento Dirty . Por exemplo, se você for para um novo registro e digitar um caractere ANSI em uma caixa de texto do registro, ocorrerão os seguintes eventos nesta ordem:

KeyDown → KeyPress → BeforeInsert → Dirty → KeyUp

Os eventos BeforeUpdate e AfterUpdate de um registo ocorrem depois de introduzir os dados novos ou alterados no registo e mover para outro registo (ou selecionar Guardar Registo no menu Registos ) e, por conseguinte, após o evento Dirty do registo.

Cancelar o evento Dirty fará com que as alterações ao registo atual sejam revertidas. É equivalente a premir a tecla Esc.

Exemplo

O exemplo seguinte ativa o botão btnUndo quando os dados são alterados. A subrreplicação UndoEdits( ) é chamada a partir do evento Dirty dos controlos da caixa de texto. Clicar no botão btnUndo ativado restaura o valor original do controlo com a propriedade OldValue .

Private Sub Form_Dirty() 
 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.