|
|
Postada em 20/07/2004 14:56 hs
Boa tarde!!! Como faço para tirar os espaços do inicio e fim do uma text, exemplo: text2.text = .Mesa.. quero gravar apenas ( mesa ) sem os espaços (. ..) como faço isso nesse exemplo? CadPatrimonio("Desc") = Trim(Text2.Text)
|
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 20/07/2004 15:03 hs
Carlos o Comando TRIM ja faz isso. Sem o trim ele grava com espacos CadPatrimonio("Desc") = Text2.Text e com o trim ele tira os espacos CadPatrimonio("Desc") = Trim(Text2.Text) Se quizer tirar so os da esquerda faca CadPatrimonio("Desc") = LTrim(Text2.Text) e o direito CadPatrimonio("Desc") = RTrim(Text2.Text) Voce ja deu a solucao 
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 20/07/2004 15:08 hs
desculpe, me expressei mal, percebi agora q os espaços estao sendo tirados, nesse caso esta certo. O que eu quero é o seguinte, criei uma text (multiline), eu queria na verdade era bloquear a tecla ENTER, ou seja, quando o foco estiver na text o enter nao funciona para nao gerar marca de enter.... Ai se o usuario for mudar de campo, ele preciona tab, por exemplo. entao, quero bloquear a tecla enter... |
|
|
|
|
|
Postada em 20/07/2004 15:21 hs
no KeyPress:
If KeyAscii = 13 then KeyAscii = 0
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 20/07/2004 15:27 hs
hahah siimmmm , tente Private Sub txt_vencimento_cartao_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ' Codigo do enter
Beep ' da um beep
KeyAscii = 0 ' não aceita tecla End If End Sub
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 20/07/2004 15:31 hs
|
|
|
|
