[Resolvido]Posicionar cursor no final de um texto com espaço em uma textbox

nelsonmgj 6/6/2016, 11:29

nelsonmgj: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 6
Registrado : 23/05/2014

Mensagem nº1

[Resolvido]Posicionar cursor no final de um texto com espaço em uma textbox

Mensagem nelsonmgj 6/6/2016, 11:29

Olá amigos,

Tenho um formulário em que há uma textbox onde quero que o usuário saiba quantos caracteres faltam para acabar seu espaço de digitação enquanto ele digita, pois coloquei um limite de caracteres no campo.
Meu problema é que toda vez que é inserido um espaço, o cursor não o considera, ou seja, se eu quiser digitar "José das Couves", sai "JosédasCouves". Segue o código:

Private Sub Nome_Change()
TamCaract = Len(Nome.Text)
With Texto11
.SetFocus
.Value = 150 - TamCaract
End With
With Nome
.SetFocus
.SelStart = Me.Nome.Text.lenght
End With
End Sub

Como posso eliminar o problema do espaço que não é selecionado?

**Avelino Sampaio** 6/6/2016, 11:47

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº2

Re: [Resolvido]Posicionar cursor no final de um texto com espaço em uma textbox

Mensagem Avelino Sampaio 6/6/2016, 11:47

Olá!

Não entendi a razão do campo Nome ter que perder o foco para realizar a contagem. Experimente:

Private Sub Nome_Change()
Me!texto11 = 150 - Len(Me!Nome.Text)
End Sub

E no evento "ao receber foco"

Private Sub Nome_GotFocus()
Me!Nome.SelStart = Len(Nz(Me!Nome))
Call Nome_Change
End Sub

Aguardamos

.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.