|
Postada em 08/02/2011 08:53 hs
Fala feras, estou precisando de outra ajuda, eu tenho uma textbox chamada cod_membro que recebe os registros do bd e formato os registros para que fiquem assim: txt_cod_membro.Text = Right("000000" & rs("cod_membro_bd"), 6)
Somente para que fiquem vários zeros a esquerda do número (para ficar um pouco mais profissional). Até aqui tudo tranqüilo, só que se eu for fazer um UPDATE ou DELETE, dar um erro quando utilizo o código do membro como WHERE, pois no BD o campo cod_membro_bd está como AUTO-NUMERAÇÃO, logo não existe este código (000001). Agora vai a minha pergunta para os feras.
Como faço para retirar os ZEROS da textbox (claro que todos os que estão a esquerda), e colocar somente os valores diferentes de ZERO? Assim tanto o UPDATE quanto o DELETE funcionária corretamente. Desde já agradeço a todos.
Jesus vive e reina e em breve virá!
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 08/02/2011 11:53 hs
Algo tan simples, é resolvido assim: se o codigo for: 00012507
Val(TextCodigo.Tex)
resultado: 12507
blz
|
|
|
|
Postada em 08/02/2011 12:33 hs
Aiiiiiiiiiiiiiiii e eu quebrando a cabeça pensando mil coisas, e vc soluciona tão simplesmente! Agora que vc me deu uma luz, olha se poderia ser assim tb?
Txt_cod_membro.Text = Cint(Txt_cod_membro.Text)
KKKKKKKKK fica tranqüilo eu ainda estou aprendendo, kkkkkkkk, mais essa foi boa!
Jesus vive e reina para sempre! Em breve Ele volta!
|
|
|
|
Postada em 08/02/2011 14:53 hs
Se for integer vc tem que saber o tamanho maximo que aceita se nao da erro overflow, faz o teste e va ver o erro que vai dar se for informar para valores : 251891 pode usar clng tbm mais tambem é limitado. deixa com o val que é muito bom para isso.
|
|
|