PREENCHIMENTO DE CAMPO COM CARACTER

USUARIO.EXCLUIDOS 13/08/2007 12:15:29
#230677
ai galera fera do vbmania, tÃÂ' com a seguinte pendenga aqui:

Tenho um aplicativo de impressão de cheques e gostaria que no campo do valor por extenso se a quantidade de caracteres for menor que 150 ele preenchesse com o caracter "#" até ficar com 150 pois se passar dá erro no BD access pois o SIZE do campo é 150

como faço?

if len(text_valor_extenso.text) < 150 then

Preencher text_valor_extenso.text com "#" até size = 150

end sub

Agradeço desde já a atenção

USUARIO.EXCLUIDOS 13/08/2007 12:32:21
#230681
Resposta escolhida

Tenta isso

Do While Len(TxtValorExtenso) < 150

Txtvalorextenso = "#" & txtvalorextenso

Loop

boa sorte
USUARIO.EXCLUIDOS 13/08/2007 12:35:22
#230682


desculpa..inverti o código...na verdade é esse


Do Until Len(Txtvalorextenso ) = 150
Txtvalorextenso = "#" & txtvalorextenso
Loop

FLAVIOGUILHERME 13/08/2007 12:42:38
#230685
'Uma pequena retificação no código do SINKERTEC.

Do Until Len(Txtvalorextenso ) = 150
Txtvalorextenso = txtvalorextenso & "#"
Loop

'Mas o mérito é do SINKERTEC.
USUARIO.EXCLUIDOS 13/08/2007 12:48:00
#230687

Opa...blz valew

é q tem gente q coloca antes...e tem gente q coloca depois....o q veio na cabeça eu coloquei

mas valew..
USUARIO.EXCLUIDOS 13/08/2007 12:53:08
#230689
Pois é caras, tentei logo no primeiro post do sinkertec assim:

Do While Len(TxtValorExtenso) < 150

Txtvalorextenso = txtvalorextenso + "#"

Loop

E tá beleza, pode ser este: DO WHILE mesmo? ou melhor o: DO UNTIL?

Não sei a diferença entre eles, mas sei que o DO WHILE ficou do jeito que eu quero.

Explica ai só pra eu começar a aprender um pouco sobre esses comandos

Obrigado!

já li sobre mas é um pouco confuso, é sobre um rodar o LOOP até que o parametro seja falso e outro até que seja verdadeiro...bla bla bla é isso?




USUARIO.EXCLUIDOS 13/08/2007 12:59:10
#230692


While - Enquanto
Until - Até q

pelo q lembro é isso

Então ficaria :

Do While Len(Text5) < 150
Faça enquanto a quantidade de caracteres do text5 for menor que 150..entendeu?

boa sorte..ainda bem q funcionou

n eskece de encerrar o tópico qdo tudo tiver resolvido
USUARIO.EXCLUIDOS 13/08/2007 13:21:15
#230697
Galera... eu sei que a dúvida já está respondida, e o mérito do ponto é do Sinkertec, mais vou postar aqui uma solução sem o Loop, só pra conhecimento mesmo.


Txtvalorextenso = txtvalorextenso & String(150 - Len(txtvalorextenso), "#")




Abs
USUARIO.EXCLUIDOS 13/08/2007 14:02:04
#230714
Obrigado Flavio, Marcelo e valeu sinkertec pela explicação, sabendo o que significa da pra começar a estudar fazendo testes e tal... como comecei a pouco tempo existem áreas ainda não exploradas como WHILE, UNTIL, FOR...etc, elas não são tão fáceis de entender como as condicionais IF,elseif, else, precisam de um pouco mais de explicação, um toque dos colegas.



Valeu galera,
Tópico encerrado , respostas não são mais permitidas