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]Copiar dados de ListBox para TextBox em formulário Acess

    Compartilhe
    avatar
    Fabricia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 24
    Registrado : 27/08/2014

    [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Fabricia em 29/8/2014, 15:10

    Crying or Very sad Oi pessoal preciso de ajuda em código VBA, estou tentando copiar dados de uma Caixa de listagem com multiplas selções para Caixas de Textos.

    Até o momento conseguir realizar esse código, mas que só copia um item para caixas...

    Private Sub Comando52_Click()

    ''Declara a variável que armazenará o valor da coluna da ListBox
    Dim Linha As Integer

    'A variável captura os valores da ListBox.
    Linha = Me.tlSource.ListIndex + 1

    'A TextBox txtID, NOME, IDI, NOM recebem os mesmos valores
    Me.ID = Me.tlSource.Column(0, Linha)
    Me.NOME = Me.tlSource.Column(1, Linha)

    Me.IDI = Me.tlSource.Column(0, Linha)
    Me.NOM = Me.tlSource.Column(1, Linha)

    End Sub
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Alexandre Neves em 30/8/2014, 15:29

    Boa noite e bem-vinda ao fórum
    Nomeie de forma normalizada. CmdPassaListaParaCaixas é mais ilucidativo que Comando52

    Private Sub Comando52_Click()

    ''Declara a variável que armazenará o valor da coluna da ListBox
    Dim Linha As Integer

    'A variável captura os valores da ListBox.
    for linha=1 to Me.tlSource.ListIndex + 1
    'A TextBox txtID, NOME, IDI, NOM recebem os mesmos valores
    Me.ID = Me.tlSource.Column(0, Linha)
    Me.NOME = Me.tlSource.Column(1, Linha)

    Me.IDI = Me.tlSource.Column(0, Linha)
    Me.NOM = Me.tlSource.Column(1, Linha)
    next
    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
    Fabricia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 24
    Registrado : 27/08/2014

    Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Fabricia em 1/9/2014, 07:56

    Obrigado mesmo pela dica...

    Na verdade eu preciso inserir valores diferentes.

    Por exemplo:

    'A TextBox tID, NOME (Primeiro valor selecionado)
    Me.ID = Me.tlSource.Column(0, Linha)
    Me.NOME = Me.tlSource.Column(1, Linha)

    'A TextBox IDI, NOM (Segundo valor selecionado)
    Me.IDI = Me.tlSource.Column(0, Linha)
    Me.NOM = Me.tlSource.Column(1, Linha)


    Ou se possivel um codigo que copie Dados  selecionados em uma listbox copiar para outra listbox, como uma especie de transferencia.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Alexandre Neves em 1/9/2014, 10:03

    Boa tarde,
    Disponibilize pequeno exemplo para trabalho


    .................................................................................
    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
    Fabricia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 24
    Registrado : 27/08/2014

    Copiar dados de ListBox para TextBox em formulário Acess.

    Mensagem  Fabricia em 1/9/2014, 11:09

    Segue anexo...

    Tem o primeiro botão exemplo.
    E criei outro com outro código.
    Anexos
    ListBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (418 Kb) Baixado 49 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Alexandre Neves em 1/9/2014, 11:26

    Boa tarde,
    Não entendi. O primeiro botão está bem? E, no segundo botão, o que precisa que faça?


    .................................................................................
    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
    Fabricia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 24
    Registrado : 27/08/2014

    Copiar dados de ListBox para TextBox em formulário Acess.

    Mensagem  Fabricia em 1/9/2014, 12:08

    São dois testes para o resultado que quero chegar.

    O primeiro copia somente um nome selecionado, preciso que ele cole em sequencia vários nomes selecionados nos campos TextBox.

    O segundo já realizar o essa copia com mais de um selecionado, mais não consigo arrumar de forma que atenda mais de dois campos.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Alexandre Neves em 1/9/2014, 12:54

    Devia descrever pormenorizadamente.
    Se é o que penso,
    - coloque a caixa de listagem como "selecções múltiplas=Simples".
    - nomeie as caixas de texto TxtID1, TxtID2,TxtID3, TxtNome1, TxtNome2, TxtNome3
    - coloque no procedimento
    Private Sub CmdPassaListaParaCaixas_Click()
    Dim Linha As Integer, I As Integer
    For I = 1 To 3
    Me("TxtID" & I) = Null
    Next
    I = 0
    For Linha = 0 To tlSource.ListCount - 1
    If Me.tlSource.Selected(Linha) Then
    Me("TxtID" & I + 1) = tlSource.Column(0, Linha)
    Me("TxtNome" & I + 1) = tlSource.Column(1, Linha)
    I = I + 1
    End If
    Next
    End Sub

    - Quanto ao segundo botão, explique melhor


    .................................................................................
    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
    Fabricia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 24
    Registrado : 27/08/2014

    Resolvido

    Mensagem  Fabricia em 1/9/2014, 13:20

    Alexandre Resolvido era isso mesmo que precisava, o segundo era outra tentativa... Obrigado!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Alexandre Neves em 1/9/2014, 14:06

    [Você precisa estar registrado e conectado para ver esta imagem.]


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

      Data/hora atual: 22/10/2017, 16:43