[Resolvido]Retirar Acentos - Erro

Boa Tarde!

Estou com um problema no formulário, gostaria que ao digitar ele já fizesse a alteração retirando as acentuações.

Venho novamente buscar algumas sugestões ou orientação para resolução do erro.

Utilizei código do By JPaulo @ 2009 retirado deste fórum, conforme link abaixo.

Retirar Acento

Entretanto, não consegui fazer funcionar, segue anexo o meu arquivo.

Agradeço a atenção e ajuda.

Olá Maurício,
Não vi o projeto, mas tente chamar a função no evento "antes de atualizar"
Abraço

ahteixeira,

Infelizmente tentei e não consegui. Estou pecando em alguma coisa neste código e não consigo visualizar.

Desde já agradeço a atenção.

Olá Mauricío,
No exemplo que postou retire o código que tem.
E coloque o abaixo no evento Depois de Atualizar:

Código:

Private Sub txtDados_AfterUpdate()
    txtDados = DLTiraAcentos(txtDados.Value)
End Sub

Abraço

ahteixeira,

Você e fera mesmo... De certo demais.

Porém, quando eu digitei e utilizei o backspace até a última letra, apareceu um erro de execução "94" (Uso de "Null" invalido).

Muito Obrigado.

Olá Mauricio,
Colque assim:

Código:

Private Sub txtDados_AfterUpdate()
    If Not IsNull(txtDados) Then txtDados = DLTiraAcentos(txtDados.Value)
End Sub

Obrigado pelo retorno.
Abbraço

ahteixeira,

Funcionou perfeito.