Notifications
Clear all

Deletar Parte Específica de uma Texbox

8 Posts
2 Usuários
0 Reactions
1,759 Visualizações
arthurdiegoo
(@arthurdiegoo)
Posts: 99
Trusted Member
Topic starter
 

Galera, mais problemas.

Gostaria de saber o seguinte... No seguinte checkbox, ao clicá-lo estou fazendo ele executar este comando:

Private Sub chknewage_Change()
Dim NewAge As String
NewAge = Me.txtnewage.Value
If chknewage.Value = True Then
Me.TextBox13.Value = Me.TextBox13.Value + NewAge
Else
Me.TextBox13.Value = Me.TextBox13.Value - NewAge
End If
End Sub

Minha intenção era: ao clicar na checkbox uma textbox iria receber o valor inserido na txtnewage ( por exemplo: nome )

Então a textbox13, se vazia, agora teria o valor: nome

No entanto, ao desmarcar a checkbox, e marcar novamente, ela insere mais uma vez o texto, ficando entao: nomenome

Para evitar isso, gostaria que ao clicar na checkbox de forma que o valor dela seja false, ela apagasse na texbox13 SOMENTE o texto referente a aquele valor, independente de onde ele esteja ( no meio, na frente, atrás, etc )

é possível?

Atenciosamente,

Arthur Andrade
Seja Cordial, trate os outros membros com respeito!

Caso sua dúvida tenha sido resolvida, clique no botão verde no canto direito superior da sua tela, marcando como [RESOLVIDO]
Agradeça quem te ajudou! Clique na mãozinha!

 
Postado : 20/03/2012 1:56 pm
arthurdiegoo
(@arthurdiegoo)
Posts: 99
Trusted Member
Topic starter
 

Consegui resolver depois de muito custo ( e uma malandragem em ficar digitando todas as funções )

Para quem precisar, o código que usei foi:

Private Sub chknewage_Change()
If chknewage.Value = True Then
Me.TextBox13.Value = Me.TextBox13.Value + txtnewage.Value + ";"
Else
Me.TextBox13.Text = Replace(TextBox13.Text, txtnewage.Text + ";", " ")
End If
End Sub

O ponto chave foi usar o Replace, pois independente de onde o texto estiver, ele irá deletá-lo!

Obrigado!

Atenciosamente,

Arthur Andrade
Seja Cordial, trate os outros membros com respeito!

Caso sua dúvida tenha sido resolvida, clique no botão verde no canto direito superior da sua tela, marcando como [RESOLVIDO]
Agradeça quem te ajudou! Clique na mãozinha!

 
Postado : 20/03/2012 2:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Pare um tempo, para ler regras e instruções....deve marcar sua postagem como resolvido, quando for o caso!!

Vou faze-lo, espero que na próxima você o faça!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2012 2:26 pm
arthurdiegoo
(@arthurdiegoo)
Posts: 99
Trusted Member
Topic starter
 

Mais uma vez alexandre,

Boa Noite, e como eu tinha dito em um tópico anterior, eu não estou localizando onde há a área para marcar como Resolvido, pedi ajuda mas não me responderam em nenhum tópico!

Tentei contatá-lo até pelo chat do fórum, sem sucesso, por favor, onde posso marcar como resolvido? Nem mesmo no tópico sobre as regras do fórum consegui localizar sobre isso.

Att.

Atenciosamente,

Arthur Andrade
Seja Cordial, trate os outros membros com respeito!

Caso sua dúvida tenha sido resolvida, clique no botão verde no canto direito superior da sua tela, marcando como [RESOLVIDO]
Agradeça quem te ajudou! Clique na mãozinha!

 
Postado : 20/03/2012 3:00 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Então você não deve ter reparado que eu havia lhe dito pelo chat.

Vou dizer agora assim como fiz no chat, alguém responde e tal resposta resolve seu problema, então olhe do lado superior direito, vi ter um quadradinho com uma setinha para baixo, de cor verde, é só clicar nele!!

Abraços e at++ ;)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2012 4:12 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mais uma vez alexandre,

Boa Noite, e como eu tinha dito em um tópico anterior, eu não estou localizando onde há a área para marcar como Resolvido, pedi ajuda mas não me responderam em nenhum tópico!

Tentei contatá-lo até pelo chat do fórum, sem sucesso, por favor, onde posso marcar como resolvido? Nem mesmo no tópico sobre as regras do fórum consegui localizar sobre isso.

Att.

Arthur, peço desculpa pelo não retorno no chat, cheguei a ver quando postou, mas a internet la na prefeitura hoje estava uma "baba", ficava caindo a todo instante e não tive como responder, e quando obtive o acesso novamente acabei esquecendo.
Mas a questão é a seguinte, eu não culpo o pessoal por não estarem colocando como resolvido, uma vez que quando nos cadastramos, lemos o Tópico "Nossas Regras" - viewtopic.php?f=7&t=203, e esta opção não consta na mesma, e com certeza, pelos nossos afazeres diários, porque ninguem está exclusivamente logado 100% no forum, todos temos nossas atividades extra forum, ainda não foi possivel fazer o Upgrad nas regras, e a questão de colocar como "Resolvido", alem de outras alterações, foram postadas no Tópico " : Mudanças Fórum 2012" - viewtopic.php?f=7&t=3148, veja o item "4 - Colocar [Resolvido] nos tópicos solucionados".
Assim que possive, vou reeditar as "Regras", com as devidas alterações e enviar ao Adm (Eron) para atualizar no forum.
Por enquanto só tenho a agradecer a compreemsão do amigo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2012 4:19 pm
arthurdiegoo
(@arthurdiegoo)
Posts: 99
Trusted Member
Topic starter
 

Muito obrigado a ambos pela educação,

Sei que não tem nada a ver, mas frequentava um forum de xbox, e como aqui no fórum tinha algumas regras para melhorar a organização, etc, porém ao esquecer ou não saber como executar alguma ação o pessoal já vinha chingando, desmoralizando, o que me desanimou de participar.

Estou impressionado com a cordialidade de todos aqui no fórum. Muitíssimo obrigado, agora percebi onde está, e vou marcar como resolvido sempre que puder!

Desculpem pelo transtorno!

Atenciosamente,

Arthur Andrade
Seja Cordial, trate os outros membros com respeito!

Caso sua dúvida tenha sido resolvida, clique no botão verde no canto direito superior da sua tela, marcando como [RESOLVIDO]
Agradeça quem te ajudou! Clique na mãozinha!

 
Postado : 20/03/2012 6:14 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Que nada Arthur, eu é que fui chato demais, me desculpa por qualquer coisa.

Criei uma passo a passo Em Sugestões ....viewtopic.php?f=9&t=3784

Qualquer coisa ou qualquer dúvida entre contato...a :) t+++

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2012 6:21 pm