Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Apagar simbolo da porcentagem apos gravar cadastro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
fefe0512
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sáb Abr 20, 2019 1:04 am

Apagar simbolo da porcentagem apos gravar cadastro

Mensagem por fefe0512 »

Boa noite, estou com um problema no meu código,
estou digitando isso :

Private Sub texttv_Change()

Me.texttv.Value = Format(Val(texttv.Value) / 100, "##%")
texttv.SelStart = Len(texttv.Value) - 1

End Sub

Pois preciso que apareça a porcentagem no momento em que eu digitar o valor. So que depois eu gravo o registro, e limpo todos os campos o simbolo da % ainda fica no campo. Tem alguma formula para que ele desapareça depois de ser gravado ?

Alguém por favor poderia me ajudar ?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
LaerteB
Colaborador
Colaborador
Mensagens: 96
Registrado em: Qui Out 19, 2017 8:20 am

Re: Apagar simbolo da porcentagem apos gravar cadastro

Mensagem por LaerteB »

Bom dia, fefe0512

Uma dica muito importante é você anexar uma planilha de exemplo com dados (fictícios) e que não seja o
projeto inteiro (com o trecho que está com dificuldades); explicando com as informações necessárias
para alcançar o seu objetivo (se necessário incluir imagens elucidativas), desta forma podemos ajudá-lo
com maior rapidez e eficácia (a maioria nem olharia este Tópico sem um arquivo exemplo, pois
existe muitas "variáveis" que podem impossibilitar o sucesso parcial ou total da solução proposta,
se não tiver um arquivo exemplo que for disponibilizado) ;) ..

Aguardando sua resposta (com seu arquivo exemplo) e seu Feed Back ... se foi útil, coloque um smille :P ...

LaerteB :D


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Apagar simbolo da porcentagem apos gravar cadastro

Mensagem por Reinaldo »

Normalmente nem leio,mas como houve a resposta do colega Laerte, parei para ler.

Como não colocou seu modelo vai no chutometro:
Altere

Código: Selecionar todos

Private Sub texttv_Change()
if len(Texttv.text)="" then
   exit sub
else
   Me.texttv.Value = Format(Val(texttv.Value) / 100, "##%")
   texttv.SelStart = Len(texttv.Value) - 1
end if
End Sub
Tambem em http://www.planilhando.com.br/forum/vie ... 54#p152554


Avatar do usuário
LaerteB
Colaborador
Colaborador
Mensagens: 96
Registrado em: Qui Out 19, 2017 8:20 am

Re: Apagar simbolo da porcentagem apos gravar cadastro

Mensagem por LaerteB »

Boa noite, fefe0512 e Reinaldo

Valeu Reinaldo :) ... então fefe0512, siga o que o nosso Mestre Reinaldo
disse; essa alteração pode lhe ajudar no que precisa.. mas como ele
informou e eu também (sobre a dica na resposta acima), é muito importante
anexar um modelo para podermos ajudá-lo com mais eficácia...

Espero que resolva a sua questão...

Qualquer coisa estamos aqui (não esqueça da próxima vez anexar um exemplo ;) )

Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um Smile :P ...

LaerteB :D


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder