[Resolvido]Consulta SQL popula LstBox / ComBox Requery na lst

Tenho a seguinte consulta que popula uma lstBox ao clicar de um Botão..
Case 4 ' Endereço
tmp1 = "SELECT DetentosLista.ID, DetentosLista.Nome_do_Detento As Nome, DetentosLista.Endereco,DetentosLista.Complemento, DetentosLista.Cidade, DetentosLista.Estado"
tmp1 = tmp1 & " FROM DetentosLista "
tmp1 = tmp1 & " WHERE ((UCase(DetentosLista.Nome_do_Detento) " & tmp2 & "))"
tmp1 = tmp1 & " ORDER BY detentosLista.Nome_do_Detento;"

Me![lstName].RowSource = tmp1
Me![lstName].ColumnCount = 6
Me![lstName].ColumnWidths = "0cm; 6cm; 8cm; 6cm; 4cm; 3cm"
A questão...

Como usar uma comBox pra fazer o requery nessa lstBox..
Se a lst tivesse origem em uma consulta seria facil, mas ela e preenchida por esse código...

Como fazer isso??

Se puderem ajudar.. Fico grato...
Bom final de semana a todos

Pensei em algo assim.. Mas como aplicar o filtro do nome escolhido na cbo?

Private Sub CboDetento_AfterUpdate()
Dim StrNome As String
Dim tmp1
StrNome = Me.CboDetento.Value
tmp1 = "SELECT DetentosLista.ID, DetentosLista.Nome_do_Detento As Nome, DetentosLista.Crime,DetentosLista.DataPrisao, DetentosLista.DiasPreso, DetentosLista.EntradaCis, DetentosLista.Artigo"
tmp1 = tmp1 & " FROM DetentosLista "

Me![lstName].RowSource = tmp1
Me![lstName].ColumnCount = 7
Me![lstName].ColumnWidths = "0cm; 7cm; 5cm; 2cm; 2cm; 2cm;9cm"

Porque não preenches com o columun (1) e por aí fora?

Não da.. Não posso usar a combo para popular a lst...
Uma lstApenas e prennchida com dados diferentes Dependendo do Case...
Tenho ja filtros por Inciais A, B, C etc..
Mas gostaria que a escolha do nome na combo fizesse o requery na lst.. so que ela e preenchida com esse sql ai...
A combo iria aplicar um filtro no sql...

E mais ou menos assim...

Esse exemplo ta ficando bom.. depois posto no repositorio...

Vamos la amigos... se leram o primeiro post la acima.. tenho este codigo que popula a lstBox..
Tenho case's que ao clicar de um botao.. me faz o filtro pela letra incial...
ou seja.. se clico no Botao "A " - Me mostra todos os registros com a inicial com A

O que quero e escolher um nome completo em uma combox e fazer este filtro..
Encontrei um código que talvez sirva a isto.. se puderem me ajudar a elucidar esta questao ...

Private Sub CboExemplo_AfterUpdate()
Dim StrNome
Dim Tmp1 'Variáveis da consulta para usar no preenchimento da CboExemplo
Dim Tmp2 ''Variável que filtra o Campo Nome - * = Todos, pode-se colocar por iniciais
Dim Tmp3
StrNome = Me.CboExemplo.Column(1)


Tmp3 = "Like (""[StrNome]*"") " 'Filtro para a letra J
'Este SQL popula a segunda ComBox, utilizando o criterio de filtro Tmp3 = "Like (""P"")"

Tmp1 = "SELECT tbl_Exemplo.ID, Tbl_Exemplo.Nome As Nome, Tbl_Exemplo.Endereco,tbl_Exemplo.Cidade"
Tmp1 = Tmp1 & " FROM Tbl_Exemplo "
Tmp1 = Tmp1 & " WHERE ((Tbl_Exemplo.Nome) " & Tmp3 & ")"
Tmp1 = Tmp1 & " ORDER BY Tbl_Exemplo.Nome;"

Me![LstNomes].RowSource = Tmp1
Me![LstNomes].ColumnCount = 4
Me![LstNomes].ColumnWidths = "0cm; 5cm; 7cm; 3cm"

End Sub
Seria Algo assim

Vamos la amigos... se leram o primeiro post la acima.. tenho este codigo que popula a lstBox..
Tenho case's que ao clicar de um botao.. me faz o filtro pela letra incial...
ou seja.. se clico no Botao "A " - Me mostra todos os registros com a inicial com A

O que quero e escolher um nome completo em uma combox e fazer este filtro..
Encontrei um código que talvez sirva a isto.. se puderem me ajudar a elucidar esta questao ...

Private Sub CboExemplo_AfterUpdate()
Dim StrNome
Dim Tmp1 'Variáveis da consulta para usar no preenchimento da CboExemplo
Dim Tmp2 ''Variável que filtra o Campo Nome - * = Todos, pode-se colocar por iniciais
Dim Tmp3
StrNome = Me.CboExemplo.Column(1)


Tmp3 = "Like (""[StrNome]*"") " 'Filtro para a letra J
'Este SQL popula a segunda ComBox, utilizando o criterio de filtro Tmp3 = "Like (""P"")"

Tmp1 = "SELECT tbl_Exemplo.ID, Tbl_Exemplo.Nome As Nome, Tbl_Exemplo.Endereco,tbl_Exemplo.Cidade"
Tmp1 = Tmp1 & " FROM Tbl_Exemplo "
Tmp1 = Tmp1 & " WHERE ((Tbl_Exemplo.Nome) " & Tmp3 & ")"
Tmp1 = Tmp1 & " ORDER BY Tbl_Exemplo.Nome;"

Me![LstNomes].RowSource = Tmp1
Me![LstNomes].ColumnCount = 4
Me![LstNomes].ColumnWidths = "0cm; 5cm; 7cm; 3cm"

End Sub

Uma tentativa que nao deu certo....


Private Sub CboExemplo_AfterUpdate()
Dim StrNome
Dim Tmp1 'Variáveis da consulta para usar no preenchimento da CboExemplo
Dim Tmp3
StrNome = Me.CboExemplo.Column(1)

Tmp3 = "Like (""[StrNome]*"") " 'Filtro para o nome na Cbo
'Este SQL popula a lstBox, utilizando o criterio de filtro StrNome

Tmp1 = "SELECT tbl_Exemplo.ID, Tbl_Exemplo.Nome As Nome, Tbl_Exemplo.Endereco,tbl_Exemplo.Cidade"
Tmp1 = Tmp1 & " FROM Tbl_Exemplo "
Tmp1 = Tmp1 & " WHERE ((Tbl_Exemplo.Nome) " & Tmp3 & ")"
Tmp1 = Tmp1 & " ORDER BY Tbl_Exemplo.Nome;"

Me![LstNomes].RowSource = Tmp1
Me![LstNomes].ColumnCount = 4
Me![LstNomes].ColumnWidths = "0cm; 5cm; 7cm; 3cm"

End Sub

Segue o exemplo.. se alguem puder me ajudar.. fico grato

https://www.dropbox.com/s/j9m6pk8vow0maon/Cbo_List.rar

Nenhuma ideia pra este tópico..???

Amigos.. Cheguei a este código que se funcionar servirá como solução para este tópico...

Este codigo pega o nome escolhido em uma Cbo, e utiliza como filtro para popular uma lstBox..
So que quando clica na Cbo, a lstBox não retorna valores...

O que fazer?

Private Sub CboNome_AfterUpdate()
Dim StrLista As String

StrLista = "SELECT DetentosLista.ID, DetentosLista.Nome_do_Detento As Nome, DetentosLista.Crime,DetentosLista.DataPrisao, DetentosLista.DiasPreso, DetentosLista.EntradaCis, DetentosLista.Artigo FROM DetentosLista" _
& " WHERE DetentosLista.Nome_do_Detento = 'Me.CboNome' ; "


Me![lstName].RowSource = StrLista
Me![lstName].ColumnCount = 7
Me![lstName].ColumnWidths = "0cm; 7cm; 5cm; 2cm; 2cm; 2cm;9cm"
End Sub

Hary

Não sei se é isso que precisa, hoje estou meio devagar e não entendi bem o que quer

para popular a combo o código que você pode usar é esse...

'MONTA A COMBO DE MOTORISTAS
CBO_MOTORISTA.ColumnCount = 4
CBO_MOTORISTA.ColumnWidths = "0;0;1;0"
CBO_MOTORISTA.RowSource = "SELECT MOTORISTA.MOT_CODIGO, MOTORISTA.MOT_PLACA, MOTORISTA.MOT_NOMEMOTORISTA" & _
" FROM Motorista" & _
" WHERE ............." & _
" ORDER BY MOTORISTA.MOT_PLACA;"

para popular a list

lstOrdemServico.RowSource = "SELECT TAB_RESUMODIARIO.RD_CODIGO AS OS, TAB_RESUMODIARIO.RD_DATA AS DATA, TAB_RESUMODIARIO.RD_VEICULO, TAB_RESUMODIARIO.RD_CLIENTE, PESSOAS.NOME_PESSOA AS CLIENTE, TAB_RESUMODIARIO.RD_STATUS" & _
" FROM PESSOAS RIGHT JOIN ((TAB_RESUMODIARIO LEFT JOIN MOTORISTA ON TAB_RESUMODIARIO.RD_MOTORISTA = MOTORISTA.MOT_CODIGO) LEFT JOIN TAB_DICIONARIO_IMGSTATUS ON TAB_RESUMODIARIO.RD_STATUS = TAB_DICIONARIO_IMGSTATUS.CODSTATUS) ON PESSOAS.CD_PESSOA = TAB_RESUMODIARIO.RD_CLIENTE" & _
" WHERE (((TAB_RESUMODIARIO.RD_DATA) >= #" & Format([dt_Inicio], "mm/dd/yyyy") & "# And (TAB_RESUMODIARIO.RD_DATA) <= #" & Format([dt_fim], "mm/dd/yyyy") & " #) And ((TAB_RESUMODIARIO.RD_VEICULO) like '" & [cbo_CodigoValue] & "') And ((TAB_RESUMODIARIO.RD_CLIENTE) like '" & [cbo_ClientesValue] & "') And ((TAB_RESUMODIARIO.RD_STATUS) like '" & [cbo_StatusValue] & "'))" & _
" ORDER BY TAB_RESUMODIARIO.RD_DATA DESC;"

para se fazer o requry que menciona é só vc colocar essas instruções em uma sub, e quando precisar atualizar as informações chamar a sub... Aqui na página se perdeu a estrutura, mas quando uso no código deixo sempre aspas debaixo de aspas em cada linha... O bom disso, é a utilização da instrução SQl a qual acho melhor que trabalhar com filtros...

Pablo.. Seguinte.. eu tenho a lista que é populada das seguintes formas..
Botoes no Form A,B,C
Filtrando pelas iniciais
e com Botão TODOS... que exibe todo na lst..

O que preciso... Pegar o nome ativo na combo e colocar como filtro... Assim:

***********A Cbo ja esta populada (ela mostra o Nome_Do_Detento)
Private Sub CboNome_AfterUpdate()
Dim StrLista As String

***********Este código popula minha LstBox***************

StrLista = "SELECT DetentosLista.ID, DetentosLista.Nome_do_Detento As Nome, DetentosLista.Crime,DetentosLista.DataPrisao, DetentosLista.DiasPreso, DetentosLista.EntradaCis, DetentosLista.Artigo FROM DetentosLista" _
& " WHERE DetentosLista.Nome_do_Detento = 'Me.CboNome' ; "
'Quero Colocar o Nome ativo na cbo nessa instrução em vermelho, assim a lst so me retornaria 1 valor... o do nome que esta na Cbo


Me![lstName].RowSource = StrLista
Me![lstName].ColumnCount = 7
Me![lstName].ColumnWidths = "0cm; 7cm; 5cm; 2cm; 2cm; 2cm;9cm"

Este codigo que popula a Cbo ja me funciona em um codigo que filtra pelas iniciais.. o que preciso agora e que retorne apenas 1 nome .. o ativo na CboBox

Se vc colocar esse código no depois de atualizar do CBOEXEMPLO1, ele preenche sua listbox, de acordo com o selecionado na combo... (testado no seu exemplo)

LstNomes.RowSource = "SELECT tbl_Exemplo.ID, tbl_Exemplo.Nome, tbl_Exemplo.Endereco, tbl_Exemplo.Cidade" & _
" FROM tbl_Exemplo" & _
" WHERE (((tbl_Exemplo.ID)=" & Val(CboExemplo1.Column(0)) & "));"

Para usar outros campos altere o where...




Cara se não for isso me desculpe que minha cuca hoje esta devagar... Noite perdida rsrsrs

No exemplo que lhe enviei da list, observe que tenho mais de 3 critério que podem ser informado ou não para o preenchimento de uma list...

Posso te enviar o modelo ja pronto? voce iria entende..

Pode sim, o que te mandei por último eu testei no seu exemplo e deu certo...

Este ai ja esta certto... com as cbo's inclusive..
De uma olhada porvafor

https://www.dropbox.com/s/s7bve5qqu1r87in/ReferenciaRapida%20-%20C%C3%B3pia.rar

FrmPesquisa

Se for essa sua necessidade segue:

Private Sub CboNome_AfterUpdate()
Dim StrLista As String

StrLista = "SELECT DetentosLista.ID, DetentosLista.Nome_do_Detento As Nome, DetentosLista.Crime,DetentosLista.DataPrisao, DetentosLista.DiasPreso, DetentosLista.EntradaCis, DetentosLista.Artigo FROM DetentosLista" & _
" WHERE DetentosLista.Nome_do_Detento ='" & Me.CboNome.Column(1) & "';"

Me![lstName].RowSource = StrLista
Me![lstName].ColumnCount = 7
Me![lstName].ColumnWidths = "0cm; 7cm; 5cm; 2cm; 2cm; 2cm;9cm"

End Sub


Se você quiser fazer uma consulta ou seja listar todos os JOSÉ, PEREIRAS, MANEL parcial tente isso, sendo que, ao se digitar o nome completo somente virá o registro específico desse detento, se usar uma parte do nome irá buscar todos assemelhados... Para funcionar tem que definir o limitar uma lista como não...

Private Sub CboNome_AfterUpdate()
Dim StrLista As String

StrLista = "SELECT DetentosLista.ID, DetentosLista.Nome_do_Detento As Nome, DetentosLista.Crime,DetentosLista.DataPrisao, DetentosLista.DiasPreso, DetentosLista.EntradaCis, DetentosLista.Artigo FROM DetentosLista" & _
" WHERE DetentosLista.Nome_do_Detento like '*" & Me.CboNome.Column(1) & "*';"

Me![lstName].RowSource = StrLista
Me![lstName].ColumnCount = 7
Me![lstName].ColumnWidths = "0cm; 7cm; 5cm; 2cm; 2cm; 2cm;9cm"

End Sub

No aguardo de seu retorno...

Pablo amigão..

Para a primeira opção: Perfeito..

Mas para a segunda.. ele fala que nao pode definir limitsr uma lista como NO
pois sa primeira coluna visivel, determinada pela proproedade Column Widhts, nào é igual a coluna ligada...

E a segunda opção e mais interessante..

Obrigado e aguardo..

Vou alterar no seu exemplo e lhe posto em seguida...

Pela forma que você lincou a combo teve-se que efetuar mais algumas alterações que seguem:

Na propriedade da combo altere:

- Numero de Colunas = 2

- Tipo de origem da linha = tabela/Consulta

- Coluna acoplada = 2

- Limitar a uma lista = Não

No código altere a consulta para:

StrLista = "SELECT DetentosLista.ID, DetentosLista.Nome_do_Detento As Nome, DetentosLista.Crime,DetentosLista.DataPrisao, DetentosLista.DiasPreso, DetentosLista.EntradaCis, DetentosLista.Artigo FROM DetentosLista" & _
" WHERE DetentosLista.Nome_do_Detento like '*" & CboNome & "*';"

Posso fechar a OS?

Sds

Pablo

Fecha a conta e passa a régua...

Seguimos aprendendo..

Grato Amigão.. Bom descando