MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    nelsonmgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 23/05/2014

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

    Mensagem  nelsonmgj em Seg 06 Jun 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?
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3399
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Seg 06 Jun 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

    nelsonmgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 23/05/2014

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

    Mensagem  nelsonmgj em Seg 06 Jun 2016, 17:20


    Muitíssimo obrigado Avelino! Chega uma hora em que você está com a mente tão cheia de complexidades, que não consegue olhar para o simples.

    nelsonmgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 23/05/2014

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

    Mensagem  nelsonmgj em Seg 06 Jun 2016, 17:21

    Muitíssimo obrigado Avelino! Chega uma hora em que você está com a mente tão cheia de complexidades, que não consegue olhar para o simples.

      Data/hora atual: Sex 20 Out 2017, 09:58