MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

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

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

    Mensagem  Fabricia 29/8/2014, 14: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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 30/8/2014, 14: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
    Fabricia
    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 Empty Copiar dados de ListBox para TextBox em formulário Acess

    Mensagem  Fabricia 1/9/2014, 06: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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 1/9/2014, 09: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
    Fabricia
    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 Empty Copiar dados de ListBox para TextBox em formulário Acess.

    Mensagem  Fabricia 1/9/2014, 10:09

    Segue anexo...

    Tem o primeiro botão exemplo.
    E criei outro com outro código.
    Anexos
    [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess AttachmentListBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (418 Kb) Baixado 103 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 1/9/2014, 10: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
    Fabricia
    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 Empty Copiar dados de ListBox para TextBox em formulário Acess.

    Mensagem  Fabricia 1/9/2014, 11: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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 1/9/2014, 11: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
    Fabricia
    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 Empty Resolvido

    Mensagem  Fabricia 1/9/2014, 12:20

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

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 1/9/2014, 13:06

    [Resolvido]Copiar dados de ListBox para TextBox em formulário Acess MaximoAccess%20ResolvidoMarcado


    .................................................................................
    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: 1/3/2021, 13:40