Boa tarde Pessoal.
Pessoal na pesquisa do nome na CbbNome é carregado o numero de telefone na TxtWhatsApp, porém preciso que carregue somente os números ignorando os caracteres () -.
Eu poderia mudar na BD, mas não pode ser alterado lá.
Desde já agradeço
Segue parte do arquivo em anexo
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido] Carregar somente números na textbox
[Resolvido] Carregar somente números na textbox
- Anexos
-
- SOMENTE NUMEROS.rar
- (19.95 KiB) Baixado 241 vezes
Editado pela última vez por milton em Qui Mai 09, 2019 10:36 am, em um total de 1 vez.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Carregar somente números na textbox
Milton, bom dia.
Não cheguei a abrir o arquivo, mas faça o seguinte, use o comando abaixo, adaptando as nomenclaturas de seus objetos:
Com esse código, você remove os caracteres especiais e exibe apenas os números.
Teste e nos retorne o resultado.
Abraços e excelente dia por ai.
Não cheguei a abrir o arquivo, mas faça o seguinte, use o comando abaixo, adaptando as nomenclaturas de seus objetos:
Código: Selecionar todos
TextBox1.Value = _
VBA.Replace( _
VBA.Replace( _
VBA.Replace( _
rs("CampoTelefone"), _
")", ""), _
"(", ""), _
"-", "")
Teste e nos retorne o resultado.
Abraços e excelente dia por ai.
Re: Carregar somente números na textbox
Bom dia Mikel.
Não consegui adaptar, mas usei a macro abaixo e funcionou perfeitamente.
Muito obrigado por sua atenção
linha = 3: strTel = ""
Sheets("Plan1").Select
Range("D" & linha).Select
Do While Range("D" & linha) <> ""
If Plan1.Range("D" & linha) = Me.CbbNome Then
StrT = Plan1.Range("E" & linha).Value
strTel = Replace(StrT, "(", "")
strTel = Replace(strTel, ")", "")
strTel = Replace(strTel, "-", "")
strTel = Replace(strTel, " ", "")
TxtWhatsapp.Value = strTel
End If
linha = linha + 1
Loop
Não consegui adaptar, mas usei a macro abaixo e funcionou perfeitamente.
Muito obrigado por sua atenção
linha = 3: strTel = ""
Sheets("Plan1").Select
Range("D" & linha).Select
Do While Range("D" & linha) <> ""
If Plan1.Range("D" & linha) = Me.CbbNome Then
StrT = Plan1.Range("E" & linha).Value
strTel = Replace(StrT, "(", "")
strTel = Replace(strTel, ")", "")
strTel = Replace(strTel, "-", "")
strTel = Replace(strTel, " ", "")
TxtWhatsapp.Value = strTel
End If
linha = linha + 1
Loop