[Resolvido]Ajuda com função

Nesse tópico

https://www.maximoaccess.com/t1154-resolvidocodigo-que-permita-localizar-e-substituir-valores

Utilizei a função do J Paulo e não funfou.
Precisava que trocasse letras por nùmero e salvasse no campo Teste 2.
Alguém poderia dar um help...
Obrigado.

Olá;

O que você quer é diferente;

No campo você tem "ase7e5", logo na instrução não pode dizer "If fld.Value = "A" Then", porque na verdade não é igual.

Tem de ser mais ou menos assim;

Código:

If fld.Value Like "*A*" Then
    rst.Edit
    fld.Value = Replace(fld.Value, "A", 1)
    rst.Update
End If

Quando clico no botão dá erro na função...


erro de compilação.
Era esperada variável ou procedimento, e não módulo

Tem de copiar a função ou Sub, para o VBA do form e apagar do modulo.

Funfou.
Muito Obrigado.
Abs

Obrigado pelo retorno o forum agradece.