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

2 participantes

    [Resolvido]atualização de caixas de texto em tempo de execução

    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 14/03/2012

    [Resolvido]atualização de caixas de texto em tempo de execução Empty [Resolvido]atualização de caixas de texto em tempo de execução

    Mensagem  geremias 8/8/2021, 14:41

    Bom dia Caros Colegas do Fórum.

    estou tentando fazer uma operação em um formulário entre duas caixas de texto para obter o seguinte resultado:
    ao digitar um texto na caixa de texto TxtNome, preencher as caixas de texto Txt1, Txt2, Txt3, ......, simultaneamente conforme cada letra digitada na caixa de texto TxtNome.

    ou seja:   caixa de texto TxtNome: ABCDE
                  caixa de texto Txt1: A
                  caixa de texto Txt2: B
                  caixa de texto Txt3: C
                  caixa de texto Txt4: D
                  caixa de texto Txt5: E

    Da mesma forma limpar as caixas de texto Txt1, Txt2, Txt3...... conforme for deletando as letras da caixa de texto TxtNome.
    isso tudo feito em tempo de execução.
    eu consegui fazer, mas acontece o seguinte: a caixa de texto Txt1 só atualiza depois que eu digito a segunda letra na caixa de texto TxtNome, ou seja, eu digito A e a caixa Txt1 fica vazia, eu digito B e a caixa Txt1 atualiza para A e assim por diante.

    eu estou utilizando da seguinte forma:

    gostaria de saber também se há também alguma forma de criar um Loop (for next), para evitar colocar
    diversas linhas, "Me.Txt1.Value = Mid(Me.TxtNome.Text, 1, 1)", uma para cada caixa de texto que receberão as letras.

    Private Sub TxtNome_KeyPress(KeyAscii As Integer)

    KeyAscii = Asc(UCase(Chr(KeyAscii)))

    Me.Txt1.Value = Mid(Me.TxtNome.Text, 1, 1)
    Me.Txt2.Value = Mid(Me.TxtNome.Text, 2, 1)
    Me.Txt3.Value = Mid(Me.TxtNome.Text, 3, 1)
    Me.Txt4.Value = Mid(Me.TxtNome.Text, 4, 1)
    Me.Txt5.Value = Mid(Me.TxtNome.Text, 5, 1)

    End Sub


    Agradeço imensamente e de forma antecipada aos colegas do fórum que possam me ajudar.

    Gerson.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3054
    Registrado : 22/11/2016

    [Resolvido]atualização de caixas de texto em tempo de execução Empty Re: [Resolvido]atualização de caixas de texto em tempo de execução

    Mensagem  DamascenoJr. 8/8/2021, 19:27

    .
    Anexos
    [Resolvido]atualização de caixas de texto em tempo de execução AttachmentbdPreenche.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 8 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    geremias gosta desta mensagem

    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 14/03/2012

    [Resolvido]atualização de caixas de texto em tempo de execução Empty Re: [Resolvido]atualização de caixas de texto em tempo de execução

    Mensagem  geremias 9/8/2021, 00:54

    DamascenoJr muito agradecido pela ajuda, acertou na mosca o que eu precisava! e entendi onde estava falhando.

    MaximoAccess é demias!

    Gerson.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3054
    Registrado : 22/11/2016

    [Resolvido]atualização de caixas de texto em tempo de execução Empty Re: [Resolvido]atualização de caixas de texto em tempo de execução

    Mensagem  DamascenoJr. 9/8/2021, 01:50

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 18/9/2021, 18:04