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?
5 participantes
[Resolvido]Copiar nome de um item de uma listbox para um campo
washytonn- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 295
Registrado : 13/01/2012
- Mensagem nº1
Copiar nome de um item de uma listbox para um campo
Cláudio Machado- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1636
Registrado : 17/03/2011
NomeDoSeuCampo = me.ListBox.Column(1)
Onde (1) é o número da coluna onde se encontra o campo que deseja
Abraço.
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 para agradecer a dica que solucionou seu problema.
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 295
Registrado : 13/01/2012
valeu... obrigado...
Cláudio Machado- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1636
Registrado : 17/03/2011
O fórum agradece o retorno.
Saudações.
Saudações.
.................................................................................
" 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 para agradecer a dica que solucionou seu problema.
lusouza- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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
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- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012
e se for uma imagem?
.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
lusouza- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
É 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
Eu nao entendi muito bem onde colocar esta programacao que mandou , comoco junto com a outra , pq coloquei e nao ta dando certo
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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.
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Nem vale a pena estar a conferir a tua bd.
Envio a que tinha adaptado
Até já
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 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- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
Bingoooooooooooooo
Exatamente isso amigo , muito obrigada ...
Tenho outros pepinos aqui para resolver , se puder me ajudar e passar seu email ou skype agradeço
Ou devo abrir outro topico?
nao sei direito como trabalhar aqui no forum ...
Exatamente isso amigo , muito obrigada ...
Tenho outros pepinos aqui para resolver , se puder me ajudar e passar seu email ou skype agradeço
Ou devo abrir outro topico?
nao sei direito como trabalhar aqui no forum ...
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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,
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 104
Registrado : 10/12/2012
Ok amigo obrigada
Conteúdo patrocinado