TAMANHO DO TEXTO NA TEXTBOX
Pessoal, alguem poderia me ajudar nesse problema:
é assim, no acces (xp) tenho uma tabela, na qual têm um Campo chamado "text1" , que aparece em um formulário...
O tamanho é obrigatoriamente colocada em 45 caracteres, porém, quando a
pessoa chega no final (quando se digita o caractere 45) faz um barulho e
para...
o que eu gostaria de fazer é com que, quando a pessoa estiver escrevendo,
chegar no fim da "linha", a palavra não terminada seja recortada e colada
para a linha de baixo, para que se possa continuar digitando sem parar...
é como se fosse um WORD.
Eu li o exemplo de bloco de notas do seu site, esperando achar uma luz...
porem, não têm nada que falasse sobre meu problema...
Eu fiz o código abaixo:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Text1.Text) = 45 Then
"""""""AQUI VIRIA O CÓ“DIGO QUE PRECISO"""""
End If
End Sub
ou seja, quando bater o caractere 45 ele aciona esse código, só que eu não
sei como fazer com que ele volte até o primeiro espaço em branco, recorte,
va para o próximo registro e cole na linha (registro) de baixo, sem que a
pessoa tenha que parar de digitar o texto...
por favor me de uma ajuda... estou desesperado atras desse código...
oneon@ig.com.br
é assim, no acces (xp) tenho uma tabela, na qual têm um Campo chamado "text1" , que aparece em um formulário...
O tamanho é obrigatoriamente colocada em 45 caracteres, porém, quando a
pessoa chega no final (quando se digita o caractere 45) faz um barulho e
para...
o que eu gostaria de fazer é com que, quando a pessoa estiver escrevendo,
chegar no fim da "linha", a palavra não terminada seja recortada e colada
para a linha de baixo, para que se possa continuar digitando sem parar...
é como se fosse um WORD.
Eu li o exemplo de bloco de notas do seu site, esperando achar uma luz...
porem, não têm nada que falasse sobre meu problema...
Eu fiz o código abaixo:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Text1.Text) = 45 Then
"""""""AQUI VIRIA O CÓ“DIGO QUE PRECISO"""""
End If
End Sub
ou seja, quando bater o caractere 45 ele aciona esse código, só que eu não
sei como fazer com que ele volte até o primeiro espaço em branco, recorte,
va para o próximo registro e cole na linha (registro) de baixo, sem que a
pessoa tenha que parar de digitar o texto...
por favor me de uma ajuda... estou desesperado atras desse código...
oneon@ig.com.br
Tente
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii = 8 then
If Len(Text1.Text) mod 45 = 0 Then
keyascii =0
text1.text = mid(text1.text1,len(text1.text)-2)
End If
else
If Len(Text1.Text) mod 45 = 0 Then
text1.text = text1.text & chr(13) & chr(KeyAscii)
End If
end if
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii = 8 then
If Len(Text1.Text) mod 45 = 0 Then
keyascii =0
text1.text = mid(text1.text1,len(text1.text)-2)
End If
else
If Len(Text1.Text) mod 45 = 0 Then
text1.text = text1.text & chr(13) & chr(KeyAscii)
End If
end if
End Sub
é o seguinte o campo do ACCESS está com tamanho 45, Vá em estrutura e deixe Texto1 como 250 ou coloque ele como MEMO
Tópico encerrado , respostas não são mais permitidas