MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Compartilhe

    washytonn
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 13/01/2012

    Copiar nome de um item de uma listbox para um campo

    Mensagem  washytonn em Sex 14 Jun 2013, 16:59

    tenho uma listbox com varios nomes e quero que assim que clicar em um nome esse nome seja colocar em um campo, o que faço?

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Cláudio Machado em Sex 14 Jun 2013, 18:15

    NomeDoSeuCampo = me.ListBox.Column(1)

    Onde (1) é o número da coluna onde se encontra o campo que deseja

    Abraço.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Dom 08 Set 2013, 02:36

    Neste também falta a continuidade a resposta ao colega que o ajudou (pelo menos, tentou)


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

    washytonn
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 13/01/2012

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  washytonn em Dom 08 Set 2013, 04:00

    valeu... obrigado...

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Cláudio Machado em Seg 09 Set 2013, 12:41

    O fórum agradece o retorno.

    Saudações.cheers 


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Sab 08 Mar 2014, 22:13

    E se for uma listbox simples , que podem selecionar varios registros , como faço para ter o valor de cada registro selecionado em campos diferentes?

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Sab 08 Mar 2014, 22:32

    Olá, boa noite
    E como sabe qual linha vai para que campo? Explique e pode disponibilizar dados significativos para facilitar a explicação e a ajuda


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  toyebom em Sab 08 Mar 2014, 22:46

    e se for uma imagem?


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Sab 08 Mar 2014, 23:47

    Bom gente agradeço pelo retorno de vcs , e estou mandando em anexo um exemplo para que possam entender melhor .

    a ideia é que os campos acima fiquem ocultos e so apareçam de acordo com o preenchimento do mesmo , a partir da listbox
    Anexos
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 13 vez(es)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Dom 09 Mar 2014, 09:20

    Bom dia,
    Coloque
    Private Sub Lista2_AfterUpdate()
    If Len("" & Me.cp1) = 0 Then
    cp1 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.cp2) = 0 Then
    cp2 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.cp3) = 0 Then
    cp3 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.cp4) = 0 Then
    cp4 = Me.Lista2.Column(0)
    Else
    MsgBox "Não tem controlo disponível para preencher.", vbCritical
    End If
    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

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Dom 09 Mar 2014, 16:32

    Isso mesmo Alexandre Neves muito obrigada , mas quando clico para retirar a opcao ele tb deveria tirar do campo cp1 , como faço ?

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Dom 09 Mar 2014, 17:07

    Olá, lusouza
    Trabalhando ao Domingo à tarde? Olha, também eu
    Coloque
    'verifica se a opção já está utilizada
    If cp1 = Me.Lista2.Column(0) Then
    cp1 = Null
    ElseIf cp2 = Me.Lista2.Column(0) Then
    cp2 = Null
    ElseIf cp3 = Me.Lista2.Column(0) Then
    cp3 = Null
    ElseIf cp4 = Me.Lista2.Column(0) Then
    cp4 = Null
    ElseIf Len("" & Me.cp1) = 0 Then
    cp1 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.cp2) = 0 Then
    cp2 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.cp3) = 0 Then
    cp3 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.cp4) = 0 Then
    cp4 = Me.Lista2.Column(0)
    Else
    MsgBox "Não tem controlo disponível para preencher.", vbCritical
    End If


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

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Dom 09 Mar 2014, 17:26

    É amigo Alexandre Neves é a vida rs , quem trabalha sozinho nao tem essas de sabado nem domingo né rs

    Eu nao entendi muito bem onde colocar esta programacao que mandou , comoco junto com a outra , pq coloquei e nao ta dando certo Sad

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Dom 09 Mar 2014, 17:30

    Bem, pelo menos nós estamos a trabalhar em conjunto! É tão gratificante ajudar como ser ajudado.
    Sobre a questão, coloca no mesmo acontecimento DepoisDeActualizar mas retira a que está e só fica esta.
    Continuação de bom Domingo


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

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Dom 09 Mar 2014, 17:47

    Deu mais ou menos certo ,

    Ta meio confuso , por exemplo , criei uma tabela chamada tab controle , para que se possam guardar as informacoes , so que quando eu abro o form
    os cps estao preenchidos certinhos , mas na list box nao existe nada selecionado , e quando clica para selecionar , ele retira o conteudo do campo ..
    vou te mandar o anexo para vc ver que ta meio doido rs
    Anexos
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 4 vez(es)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Dom 09 Mar 2014, 18:12

    Olá, lusouza
    Está confusa? Com a bd? rsss
    Acalma-te. Tens quem te ajude.
    No formulário, altera os nomes dos controlos para não ficarem iguais aos nomes dos campos (para Txtcp1, Txtcp2, Txtcp3 e Txtcp4)
    Retira todo o código que tens e cola o seguinte
    Option Compare Database
    Option Explicit

    Sub ActualizaLista()
    Dim B As Byte
    For B = 0 To Lista2.ListCount
    Lista2.Selected(B) = False
    Next

    If Not IsNull(Txtcp1) Then
    For B = 0 To Lista2.ListCount
    If Lista2.Column(0, B) = Txtcp1 Then
    Lista2.Selected(B) = True
    End If
    Next
    End If
    If Not IsNull(Txtcp2) Then
    For B = 0 To Lista2.ListCount
    If Lista2.Column(0, B) = Txtcp2 Then
    Lista2.Selected(B) = True
    End If
    Next
    End If
    If Not IsNull(Txtcp3) Then
    For B = 0 To Lista2.ListCount
    If Lista2.Column(0, B) = Txtcp3 Then
    Lista2.Selected(B) = True
    End If
    Next
    End If
    If Not IsNull(Txtcp4) Then
    For B = 0 To Lista2.ListCount
    If Lista2.Column(0, B) = Txtcp4 Then
    Lista2.Selected(B) = True
    End If
    Next
    End If
    End Sub

    Private Sub Comando6_Click()
    Me!Lista2.Height = 1440 ' 1440 twips = 1 inch.
    'Me!Lista2.Width = 1440

    End Sub

    Private Sub Form_Load()
    ActualizaLista
    End Sub

    Private Sub Lista2_AfterUpdate()
    If Txtcp1 = Me.Lista2.Column(0) Then
    Txtcp1 = Null
    ElseIf Txtcp2 = Me.Lista2.Column(0) Then
    Txtcp2 = Null
    ElseIf Txtcp3 = Me.Lista2.Column(0) Then
    Txtcp3 = Null
    ElseIf Txtcp4 = Me.Lista2.Column(0) Then
    Txtcp4 = Null
    ElseIf Len("" & Me.Txtcp1) = 0 Then
    Txtcp1 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.Txtcp2) = 0 Then
    Txtcp2 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.Txtcp3) = 0 Then
    Txtcp3 = Me.Lista2.Column(0)
    ElseIf Len("" & Me.Txtcp4) = 0 Then
    Txtcp4 = Me.Lista2.Column(0)
    Else
    MsgBox "Não tem controlo disponível para preencher.", vbCritical
    End If
    ActualizaLista
    End Sub

    Beijinhos e vai correr bem.


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

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Dom 09 Mar 2014, 18:33

    Tem 2 procedimentos no evento depois de atualizar , mesmo retirando da erro , mando para vc o anexo para ver qual besteira fiz rs
    Anexos
    teste _2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 2 vez(es)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Dom 09 Mar 2014, 18:37

    Nem vale a pena estar a conferir a tua bd.
    Envio a que tinha adaptado
    Até já
    Anexos
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 13 vez(es)


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

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Dom 09 Mar 2014, 18:46

    Bingoooooooooooooo

    Exatamente isso amigo , muito obrigada ...

    Tenho outros pepinos aqui para resolver , se puder me ajudar e passar seu email ou skype agradeço Smile

    Ou devo abrir outro topico?

    nao sei direito como trabalhar aqui no forum ...

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  Alexandre Neves em Dom 09 Mar 2014, 18:49

    Só tenho correio electrónico e posso-te passar mas as dúvidas convém que fiquem aqui no fórum, para que outros aprendam, como nós aprendemos com eles.
    Enviar-te-ei por mp
    Até breve,


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

    lusouza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    Registrado : 10/12/2012

    [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza em Dom 09 Mar 2014, 18:56

    Ok amigo obrigada Smile

      Data/hora atual: Qui 08 Dez 2016, 14:02