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]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

    Thearles
    Thearles
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 26/12/2011

    [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto Empty [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

    Mensagem  Thearles 18/2/2021, 20:52

    Saudações a todos!

    Tenho a seguinte dúvida: como exibir numa caixa de texto a informação contida numa caixa de listagem, atualizando a caixa de texto a cada clique na caixa de listagem?
    Tentei fazer assim, conforme exemplos aqui do Maximo Access, mas não fui feliz.

    Private Sub Caixa de listagem_Click()
    If IsNull(Me.Caixa de texto) Or Me.Caixa de texto = "" Then
    Me.Caixa de texto = Me.Caixa de listagem.Column(5)
    Else
    Me.Caixa de texto = Me.Caixa de texto & vbCrLf & Me.Caixa de listagem.Column(5)
    End If
    End Sub

    Dessa forma a caixa de texto só exibe o conteúdo da linha da caixa de listagem que eu clicar primeiro. Se eu clico numa linha, depois na outra, a caixa de texto não atualiza para o conteúdo do segundo clique.
    Agradeço desde já a quem puder ajudar, pois sou iniciante.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto Empty Re: [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

    Mensagem  Noobezinho 18/2/2021, 21:13

    Olá Thearles

    Em programação é comum não se usar espaços em nomes de controles.
    Isso dá uma dor de cabeça danada!

    Tire os espaços dos controles ou coloque esses nomes entre colchetes "[ ]"
    Código:

    Private Sub Caixa de listagem_Click()
       If IsNull(Me.[Caixa de texto]) Or Me.[Caixa de texto] = "" Then
          Me.[Caixa de texto] = Me.[Caixa de listagem].Column(5)
       Else
          Me.[Caixa de texto] = Me.[Caixa de texto] & vbCrLf & Me.[Caixa de listagem].Column(5)
       End If
    End Sub


    E mais:
    Nomeie os controles
    Estruture o código como fiz acima
    É horrível de ler código se tudo ficar na primeira coluna.
    Mantenha esse hábito, assim ficará fácil de saber de onde vem cada controle e de que se trata.

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Thearles
    Thearles
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 26/12/2011

    [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto Empty Re: [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

    Mensagem  Thearles 18/2/2021, 21:20

    Obrigado, Noobezinho!

    Devia ter esclarecido que se tratam de nomes fictícios. No código verdadeiro está assim:

    Private Sub lst_nomes_Click()
    If IsNull(Me.Texto1167) Or Me.Texto1167 = "" Then
    Me.Texto1167 = Me.lst_nomes.Column(5)
    Else
    Me.Texto1167 = Me.Texto1167 & vbCrLf & Me.lst_nomes.Column(5)
    End If
    End Sub

    A questão é que não funciona. Mostra apenas a Column(5) da primeira linha da caixa de listagem (lst_nomes) que eu clico. Se eu clicar numa linha, e depois clicar em outra linha, não atualiza a caixa de texto (Texto1167).

    Grato.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto Empty Re: [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

    Mensagem  Noobezinho 18/2/2021, 21:31

    Experimente assim:

    Não muda porque vc está pedindo para ele manter o nome da caixa de listagem nas duas condições.

    Se for nulo ou vazio

    caixa de texto = caixadelistagem coluna 5

    caso contrário

    caixa de texto = caixadelistagem coluna 5

    Tire o if.

    E não me faça perder tempo!!! Laughing Laughing Laughing Laughing Laughing

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Thearles
    Thearles
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 26/12/2011

    [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto Empty Re: [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

    Mensagem  Thearles 18/2/2021, 22:06

    Resolvido.

    Obrigado, Noobezinho!

    Quando não se domina, é osso. Ainda bem que existe o Maximo Access para salvar. Ficou assim:

    Me.Texto1167 = Me.lst_nomes.Column(5)

    Muito simples. E eu comendo pança.
    Muito obrigado!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto Empty Re: [Resolvido]Trazer informação de uma coluna da caixa de listagem para uma caixa de texto

    Mensagem  Noobezinho 18/2/2021, 22:10

    Ótimo !

    Mas...

    Vamos colocar os nomes nesses controles.

    Para ser programador, primeira coisa é não ter preguiça! Razz

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 23/9/2021, 00:16