[Resolvido]Filtro Por Hora Inicial e Final

Bom dia

Estou precisando filtrar por Hora Inicial e Final, para tanto procurei aqui no fórum, mas não encontrei algo satisfatório pelo menos até então.

Tentei usar a sintaxe abaixo(acredito que não esteja correta), porém queria incluir junto a condição entre datas também, mas não consegui chegar ao resultado que gostaria.

Alguém poderia me dar uma dica?

sql = "SELECT Id,Data1," & _
"Placa,Km_Inicial,Km_Final,Horimetro_Final," & _
"Km_Rodado,Média,Frota,Equip,Hora_Abast,Qtd,Valor_Unit," & _
"Outros,Total,Total_Geral,NF,Comb,Unidade,Obs," & _
"Desc_Veic,Cid_Frota FROM Tbl_Lançamentos WHERE Hora_Abast between #" & Format(Me.Txt_Hora_Inicial, "hhss") & "# And #" & Format(Me.Format(Txt_Hora_Final, "hhss") & "#;")





Data1 between #" & Format(Me.Data_Inicial, "mm/dd/yyyy") & _
"# And #" & Format(Me.Data_Final, "mm/dd/yyyy") & "# order by Data1,Hora_Abast; "

Bom dia,

No última formatação da hora da sua SQL está assim:
Format(Me.Format(Txt_Hora_Final, "hh:ss")
Enquanto que deve estar assim:
Format(Txt_Hora_Final, "hh:ss")

Sem o Me.Format

Obs.: quando for mostrar códigos, ponha na tag de códigos, assim ficará mais legível.

Bom dia Marcelo,

sim, verdade depois que postei eu vi isso e modifiquei no meu projeto, mas ainda assim não deu certo, quando junto os dois critérios da data e hora.

Que erro ocorre?
Poderia postar aqui parte do banco para darmos uma olhada?

Bom dia Marcelo

Segue anexo exemplo, quando insiro junto a condição de filtro por data e hora, não está filtrando, e não consegui descobri o que está errado.

Boa tarde Alexandre,

Eu tentei entender o código, e transferi para a minha tabela original, troquei os campos pertinentes, mas não está filtrando corretamente. Onde erro?

Era pra ser o arquivo correto no entanto tinha inserido a tabela e novo formulario2.

Ate consegui entender a lógica so nao deu certo no projeto original.

Amanha vejo novamente

Bom dia Alexandre,

De fato eu anexei de forma errada ontem, no entanto por muita insistência, eu consegui achar onde estava errando na minha sintaxe inicial do projeto:


Identifiquei que estava colocando um ponto e vírgula após o # e não poderia ser assim, então fiz essa alteração e está funcionando pleno.

Claro que sua opção eu achei muito válido também, mas neste momento como consegui resolver, optei por essa mesmo, e agradeço pela sua colaboração.






Dim SQL As String

SQL = "SELECT Id,Data1,Placa,Km_Inicial,Km_Final,Horimetro_Final,Km_Rodado,Média,Frota,Equip,Hora_Abast,Qtd,Valor_Unit," & _
"Outros,Total,Total_Geral,NF,Comb,Unidade,Obs," & _
"Desc_Veic,Cid_Frota FROM Tbl_Lançamentos WHERE Placa LIKE'*" & CBO_Placa & "*' And Comb LIKE'*" & CBO_Tipo_Comb & _
"*' And Unidade LIKE'*" & CBOPosto & "*'And NF LIKE '*" & CBO_NF & "*' And Desc_Veic LIKE'*" & Cbo_Desc_Veic & _
"*' And Cid_Frota LIKE'*" & Cbo_Cid_Frota & "*' And Data1 between #" & Format(Me!Data_Inicial, "mm/dd/yyyy") & _
"# And #" & Format(Me!Data_Final, "mm/dd/yyyy") & "# And Hora_Abast between #" & Format(Me!Txt_Hora_Inicial, "hhss") & _
"# And #" & Format(Me!Txt_Hora_Final, "hhss") & "# order by Data1,Hora_Abast;"

Me.Lista_Banco_Dados.RowSource = SQL
Me.Lista_Banco_Dados.Requery