Vídeo recomendado
https://youtu.be/diWPPPhW-9E

ListBox e Caixa de texto como critério de consulta

Henrique Wieser
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Jul 30, 2013 4:19 pm

ListBox e Caixa de texto como critério de consulta

Mensagem por Henrique Wieser »

Galera, Boa-tarde,

Procurei ajuda em outros Fóruns, mas não tive retorno, talvez vocês possam me ajudar.

Gostaria de saber como usar como critério de consulta os valores multiplos da listbox.

Pesquisei e vi que o valor da listbox precisa estar dentro de uma caixa de texto como string.

Então criei uma caixa de texto e coloquei no evento "Ao atualizar" o código abaixo:

Sendo:
SELECT_FINALIZACOES = ListBox
FILTRO = Caixa de texto

Código: Selecionar todos

Private Sub SELECT_FINALIZACOES_AfterUpdate()
Dim ctl As Control, lngContador As Long
Dim strSQL As String, strWhere As String

Set ctl = SELECT_FINALIZACOES

strWhere = ""
For lngContador = 0 To ctl.ListCount - 1
If ctl.Selected(lngContador) Then
strWhere = strWhere & " ; " & ctl.Column(0, lngContador)

End If
Next
strWhere = Mid(strWhere, 4)

If ctl.ItemsSelected.Count = 0 Then
Me.FILTRO.Visible = False
Me.FILTRO.Value = ""
ElseIf ctl.ItemsSelected.Count > 0 Then
Me.FILTRO.Value = strWhere
Me.FILTRO.Visible = False
Só que ao selecionar mais de uma opção a pesquisa não retorna valor nenhum. Sei que tem a possibilidade de fazer para cada item da listbox uma caixa de texto e no criterio linkas as caixa de texto com "ou", mas minha listbox tem muitos valores.

Anexo um exemplo do meu BD.

Obrigado
Anexos
Exemplo.zip
Exemplo da Base
(36.27 KiB) Baixado 518 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder