[Resolvido]Filtro Multiselect form vba buscando dados em banco access

Boa Noite,

Sou iniciante na modalidade de programação em SQL, tenho um formulario onde populo as datas que estão no banco usando sql distinct.

O que preciso agora é ao selecionar mais de uma data no lstDataInicial, ele faça a consulta no banco e me traga o resultado em um Listview que tenho no meu formulário.

Alguém saberia como posso fazer isso utilizando o SQL.

Olá, seja bem vindo ao forum! O tópico foi movido para a sala correta. A sala Repositório de Exemplos é exclusiva para a postagem de exemplos em mdb ou accdb.

Você precisa selecionar várias datas em uma listbox e popular outra listbox com registros com as datas selecionadas, é isso mesmo? Talvez algo assim ajude:

Código:

Dim rs As Recordset, L As Variant
    Me.NomeSegundaList.RowSourceType = "Value List"
    Me.NomeSegundaList.RowSource = ""
For Each L In Me.NomeDaListboxDeDatas.SelectedItems
    Set rs = CurrentDb.OpenDatabase("SELECT * FROM NomeDaTabela WHERE CampoData LIKE '" & Me.ListDatas.Column(0, L) & "'")
    Do While Not rs.EOF
        Me.NomeDaSegundaList.AddItem rs!Campo1 & ";" & rs!Campo2
    rs.MoveNext
    Loop
rs.Close
Set rs = Nothing

Next

É mais ou menos por aí. Tente adaptar para o seu caso.

Ainda não consegui resolver

Vou detalhar melhor

tenho um form feito em excel vba 2003

Dentro do Form tenho list chamado
CBDTINICIAL 'e onde estão as datas que vou selecionar para pesquisa.
LISTVIEW ' é onde desejo receber os dados.

Minha Tabela chamase TBEstatistica

Campos do da Tabela

CODIGO , PROCESSO , DATA_ATUAL, RESPONSAVEL

Quando aplicar o filtro ele devera trazer para o LISTVIEW os dados de acordo com a data selecionada.

Será usado apenas uma data por filtro? Pelo que falou anteriormente, pensei que fosse selecionar mais de uma data para ser filtrado de acordo essas datas. Você não havia informado tambem que iria buscar os dados no Access para uma planilha no Excel. Sempre que postar uma dúvida, passe todas as informações possíveis. Isso agiliza o processo e mantem o tópico mais clean, ok?

Ok

Falha minha na hora de solicitar a ajuda, No filtro eu desejo selecionar varias datas (multiselect).

e o resultado será as datas selecionadas.

tudo que tiver no banco com essas datas.

Tente alterar o que passei anteriormente, para buscar no banco Access:

Código:

Dim rs As Recordset, L As Variant
    Me.NomeSegundaList.RowSourceType = "Value List"
    Me.NomeSegundaList.RowSource = ""
For Each L In Me.NomeDaListboxDeDatas.ItemsSelected
    Set rs = DBEngine.Workspaces(0).OpenDataBase("Caminho completo\NomeBanco.mdb", False, False, "MS Access;PWD=Senha se tiver").OpenDatabase("SELECT * FROM NomeDaTabela WHERE CampoData LIKE '" & Me.ListDatas.Column(0, L) & "'")
    Do While Not rs.EOF
        Me.NomeDaSegundaList.AddItem rs!Campo1 & ";" & rs!Campo2
    rs.MoveNext
    Loop
rs.Close
Set rs = Nothing

Next

Tente usar isso em uma macro chamada ao clicar em um botão por exemplo. Se der erro, provavelmente irá depurar mostrando a linha do erro e uma mensagem informando o erro. Caso não consiga resolver, poste a mensagem e a linha para a qual depura.

Caro

Ainda não consegui.

Estou anexando um modelo do que preciso.

O Formulario é feito em VBA do excel

o banco também esta ai.

Caros,

Bom dia

Consegui fazer o filtro, ficou da forma abaixo.

Aos moderadores

Podem fechar o tópico, já esta resolvido.

Grato

Function MULTISELECT()

Dim BANCO As ADODB.Recordset
Dim sql As String
Dim I As Long
Dim ProcurarPor, Achar
Dim refrr As Variant

Dim msg As Variant

Set BANCO = New ADODB.Recordset
Dim CX As New Conectar

For I = 0 To FrmPesquisa.CbDtInicial.ListCount - 1

ProcurarPor = "Data_Atual"
Achar = FrmPesquisa.CbDtInicial.List(I)

If FrmPesquisa.CbDtInicial.Selected(I) Then

sql = "SELECT codigo, Processo, Data_Atual, Quantidade FROM TBEstatistica "
sql = sql & " WHERE " & ProcurarPor & " LIKE '%" & Achar & "%' "

CX.Conectar
BANCO.Open sql, CX.conn, adOpenKeyset, adLockOptimistic

Dim M As Integer
For M = 0 To BANCO.RecordCount - 1
If Not IsNull(BANCO(0)) Then
FrmPesquisa.Lstv.ListItems.Add 1, , BANCO(0)
FrmPesquisa.Lstv.ListItems(1).ListSubItems.Add 1, , BANCO(1)
FrmPesquisa.Lstv.ListItems(1).ListSubItems.Add 2, , BANCO(2)
FrmPesquisa.Lstv.ListItems(1).ListSubItems.Add 3, , BANCO(3)
FrmPesquisa.Lstv.ListItems(1).ListSubItems.Add 4, , BANCO(4)
End If
BANCO.MoveNext
Next M
CX.Desconectar
End If
Next I
Set BANCO = Nothing
End Function

Agradecemos pelo retorno. Você mesmo pode fechar o tópico, clicando no botão Resolvido.

Era exatamente isso que procurava. Obrigado! me facilitou ou 100%.