MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda

    avatar
    Convidado
    Convidado


    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty [Resolvido]Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  Convidado Sex Out 07, 2016 3:31 pm

    Olá Senhores(as)

    Tenho uma caixa de texto, com um campo tipo texto curto e formato "AAAA"999999
    Eu gostaria que quando o usuário fosse preencher este campo a Mascara de entrada aparecesse assim:

    "LOTE000000"

    E que ao preencher o usuário visse isso:

    "LOTE000001"
    "LOTE000012"
    "LOTE000123"

    Ou seja, quando saísse, o conteúdo do campo seria "LOTE000123"
    É possível? Se for, como?

    Obrigado

    Sergio Cardoso

    >>>>> É SEMPRE BOM TER AMIGOS <<<<<<
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 944
    Registrado : 09/11/2012

    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty Re: [Resolvido]Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  =>Nois Sex Out 07, 2016 5:01 pm

    seu caso é semelhante a este, tente e nos retorne com o resultado

    https://www.maximoaccess.com/t27964-resolvidonumeracao-automatica-personalizada


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    Convidado
    Convidado


    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  Convidado Sex Out 07, 2016 8:36 pm

    Obrigado Nois, mas não tem absolutamente nada a ver com minha dúvida.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty Re: [Resolvido]Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  FabioPaes Sex Out 07, 2016 10:22 pm

    Na mascara de Entrada coloque:

    "LOTE"00000


    Assim, ao entrar no Campo ja aparecerá: LOTE e so deixara colocar Numero com 6 digitos.


    .................................................................................
    _____________________________________________________________________
    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
    Convidado
    Convidado


    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  Convidado Sab Out 08, 2016 11:51 am


    Olá Senhores(as)

    Penso que não me expressei direito. Vou refazer a dúvida



    Tenho uma caixa de texto, com um campo tipo texto curto e formato "AAAA"999999
    A mascara de entrada que defini no formulário é: LOTE000000
    Eu gostaria que quando o usuário fosse preencher este campo a Mascara de entrada aparecesse assim:

    "LOTE000000"

    E que ao preencher o usuário visse isso:

    "LOTE000001"
    "LOTE000012"
    "LOTE000123"


    Ou seja, que o cursor se posicionasse na direita e fosse preenchendo o conteúdo da direita para a esquerda e quando saísse, o conteúdo do campo seria "LOTE000123"
    É possível? Se for, como?
    É esta minha duvida
    Obrigado

    Sergio Cardoso
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8181
    Registrado : 05/11/2009

    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty Re: [Resolvido]Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  Alexandre Neves Sab Out 08, 2016 3:25 pm

    Boa tarde,
    Crie um formulário com 2 caixas de texto, uma delas denomine-a Txt0 e cole este código
    Código:
    Option Compare Database
    Option Explicit

        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  módulo criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Private LngLote As Long

    Private Sub Form_Load()
        LngLote = 0
        Txt0 = "LOTE" & Format(LngLote, "00000")
    End Sub

    Private Sub Txt0_AfterUpdate()
        Txt0 = "LOTE" & Format(Txt0, "00000")
    End Sub

    Private Sub Txt0_Change()
        LngLote = Val(Mid(Txt0.Text, 5))
        Txt0 = "LOTE" & Format(LngLote, "0000")
        Txt0.SelStart = 8
    End Sub

    Private Sub Txt0_Enter()
        Txt0 = "LOTE" & Format(LngLote, "0000")
        Txt0.SelStart = 8
    End Sub

    Private Sub Txt0_Exit(Cancel As Integer)
        LngLote = Val(Mid(Txt0.Text, 5))
        Txt0 = "LOTE" & Format(LngLote, "00000")
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Convidado
    Convidado


    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  Convidado Sab Out 08, 2016 4:10 pm

    Boa tarde Alexandre Neves,

    Não sou um expert em VBA. Aliás, sou na verdade um noob.
    Mas não consegui fazer funcionar
    Mas tentar fazer funcionar me suscitou algumas dúvidas, por exemplo:

    Porque criar DUAS caixas de texto no formulário?
    Para que serve a segunda?
    Colar o código onde?
    As expressões ficaram todas em vermelho, por quê?
    A expressão "Txt0.SelStart = 8" inicia o curso na posição final do campo, mas ao digitar não muda para a esquerda

    De qualquer forma, muito obrigado pela força.

    Sergio Cardoso

    >>>>> SEMPRE É MUITO BOM TER AMIGOS <<<<<
    avatar
    Convidado
    Convidado


    [Resolvido]Preenchimento de caixa de texto da direita pra esquerda Empty Re: [Resolvido]Preenchimento de caixa de texto da direita pra esquerda

    Mensagem  Convidado Ter Jul 19, 2022 12:42 pm

    Obrigado

      Data/hora atual: Seg Ago 15, 2022 2:14 pm