[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.

Aproveitando e passando por aqui para contribuir também.

Ismael,

Fiz alguns ajustes no teu sistema, e também criei uma rotina que monta criterio de filtro de dados, conforme os campos informados. Ficou assim:


OBS: verifique os comentário no código, onde eu informo o que cada rotina executa.

Segue versão.

É isso
Att,
FIM

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?

Ismael,
Vc mandou o mesmo exemplo anteriormente!
O exemplo que mandei é uma versão melhorada apenas.
Você abriu o código para ler os comentários?
Você conseguiu depurar linha-a-linha?
Eu apenas criei uma variável onde e concatena os filtros conforme os campos preenchidos no form.
Em seguida, eu concateno essa variável com a Instrução SQL.
Sacou?

Att,
FIM

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