MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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, 12: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
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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, 12: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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    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, 18: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, 18: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: Sab 10 Dez 2016, 13:42