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]Colocar o cursor no fim do campo e com 1 Espaço

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3133
    Registrado : 06/11/2009

    [Resolvido]Colocar o cursor no fim do campo e com 1 Espaço

    Mensagem  Assis em Ter 12 Dez 2017, 13:24

    Boa tarde Amigos

    No exemplo que anexo o formulário tem 2 campos.

    - Depois de digitar o primeiro só com uma palavra . Exemplo "Teste"

    - Ao entrar no 2º campo logo aparece a palavra do primeiro campo, neste caso "Teste"

    Mas neste segundo campo o cursor vai para o final do campo + 1 espaço

    Obrigado
    Anexos
    Ir Final do campo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 3 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3582
    Registrado : 14/08/2013

    Re: [Resolvido]Colocar o cursor no fim do campo e com 1 Espaço

    Mensagem  FabioPaes em Ter 12 Dez 2017, 14:00

    Não entendi Assis, É uma duvida? ou é um Exemplo?
    O que precisa que faça caso seja uma duvida?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3133
    Registrado : 06/11/2009

    Re: [Resolvido]Colocar o cursor no fim do campo e com 1 Espaço

    Mensagem  Assis em Ter 12 Dez 2017, 14:10

    Obrigado Fabio

    Resolvi assim

    Me.Texto2 = Me.txtnome & " "
    Texto2.SelStart = Len(Texto2)

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9750
    Registrado : 04/11/2009

    Re: [Resolvido]Colocar o cursor no fim do campo e com 1 Espaço

    Mensagem  JPaulo em Ter 12 Dez 2017, 14:16

    O simples, é você fazer uso da função Space;

    Código:
    Me.Texto2 = Me.txtnome & Space(1)
    Me!Texto2.SelStart = Len(Me!Texto2.Text)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3133
    Registrado : 06/11/2009

    Re: [Resolvido]Colocar o cursor no fim do campo e com 1 Espaço

    Mensagem  Assis em Ter 12 Dez 2017, 14:35

    Obrigado JP



    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Qua 17 Jan 2018, 20:11