[Resolvido]Duplicar Coluna na Mesma Tabela Com WhatsApp

Olá colegas,
Como faço para duplicar a coluna (Celular1Cliente) Telefone Celular (xx) xxxxx-xxxx
em nova coluna já existente (Celular1ClienteLimpo) na mesma tabela, retirando-se a máscara para ficar assim: xxxxxxxxxxx
A tabela ficará com duas colunas:
* uma coluna será telefone com máscara, que é entrada do formulário
* outra coluna será telefone sem máscara para manipulação.
Cada vez que adicionar um novo (Celular1Cliente) (xx) xxxxx-xxxx no formulário, após atualizar o campo com a máscara deverá ser adicionado novo (Celular1ClienteLimpo) xxxxxxxxxxx na mesma tabela em coluna separada sem a máscara.
Muito Obrigado


------
Private Sub Celular1Cliente_AfterUpdate()

If IsNull(Celular1Cliente) Then
   Celular2Cliente.SetFocus
Else
   'aqui preciso retirar a máscara (xx) xxxxx-xxxx para ficar assim: xxxxxxxxxxx
   Celular1ClienteLimpo = Me.Celular1Cliente
End If

End Sub
------

Olá Pablo Arruda,
Seja Bem-Vindo ao fórum.

Crie uma consulta atualizar e tente a função nativa Val(Celular1Cliente).
Se tiver dificuldades, partilhe base de dados com tabela e dados de teste.

Abraço

Olá Sr Alvaro Teixeira, tudo bem?
Obrigado pela calorosa recepção no fórum.

Compartilho aqui a base de dados, com a tabela e os dados de teste.
Preciso capturar o número de telefone sem a máscara para gerar o link WhatsApp.
Outro tipo de solução, mais viável, poderá ser adotada.

As valorosas dicas daqui do MaximoAccess têm permitido-me desenvolver esta pequena aplicação.
Espero, em breve, também, poder contribuir.

Obrigado

Sem precisar criar nova coluna, tente assim:

Código:

Private Sub Celular1Cliente_AfterUpdate()

If IsNull(Celular1Cliente) Then
   Celular2Cliente.SetFocus
Else
   'aqui preciso retirar a máscara (xx) xxxxx-xxxx para ficar assim: xxxxxxxxxxx
   Celular1ClienteLimpo = Replace(Me.Celular1Cliente,"(","")
   Celular1ClienteLimpo = Replace(Celular1ClienteLimpo,")","")
   Celular1ClienteLimpo = Replace(Celular1ClienteLimpo,"-","")
   Celular1ClienteLimpo = Replace(Celular1ClienteLimpo," ","")
End If

End Sub

FabioGO, tudo bem?

Ótimo, funcionou perfeitamente.

Muito obrigado!

Olá a todos,

O Val neste caso não ia dar, mas ficou resolvido.