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


5 participantes

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

    avatar
    washytonn
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  washytonn 14/6/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
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 14/6/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  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Copiar nome de um item de uma listbox para um campo 90dssg para agradecer a dica que solucionou seu problema.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 8/9/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
    avatar
    washytonn
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  washytonn 8/9/2013, 04:00

    valeu... obrigado...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 9/9/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  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Copiar nome de um item de uma listbox para um campo 90dssg para agradecer a dica que solucionou seu problema.
    lusouza
    lusouza
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 8/3/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 8/3/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
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  toyebom 8/3/2014, 22:46

    e se for uma imagem?


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


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 8/3/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
    [Resolvido]Copiar nome de um item de uma listbox para um campo Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 13 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 9/3/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
    lusouza
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 9/3/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 9/3/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
    lusouza
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 9/3/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 9/3/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
    lusouza
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 9/3/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
    [Resolvido]Copiar nome de um item de uma listbox para um campo Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 4 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 9/3/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
    lusouza
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 9/3/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
    [Resolvido]Copiar nome de um item de uma listbox para um campo Attachmentteste _2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 2 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 9/3/2014, 18:37

    Nem vale a pena estar a conferir a tua bd.
    Envio a que tinha adaptado
    Até já
    Anexos
    [Resolvido]Copiar nome de um item de uma listbox para um campo Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 16 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
    lusouza
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 9/3/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 9/3/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
    lusouza
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty [Resolvido]Copiar nome de um item de uma listbox para um campo

    Mensagem  lusouza 9/3/2014, 18:56

    Ok amigo obrigada Smile

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 08:40