Evento WebBrowserControl.Dirty (Access)

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

Sintaxe

mais simples. 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].

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

Alterar os dados em um registro usando o teclado faz com que ocorram eventos de teclado além de eventos de controle, como o evento Sujo . 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 para um registro ocorrem depois que você insere os dados novos ou alterados no registro e move para outro registro (ou escolhe Salvar Registro no menu Registros ) e, portanto, após o evento Dirty para o registro.

O cancelamento do evento Dirty fará com que as alterações no registro atual sejam revertidas. Isso equivale a pressionar a tecla Esc.

Exemplo

O exemplo a seguir habilita o botão btnUndo quando os dados são alterados. A sub-rotina UndoEdits( ) é chamada a partir do evento Dirty dos controles de caixa de texto. Clicar no botão btnUndo habilitado restaura o valor original do controle usando 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.