MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Filtro Por Hora Inicial e Final

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/12/2017

    [Resolvido]Filtro Por Hora Inicial e Final Empty [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Ismael Silva 17/5/2022, 11:48

    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, "hh🇲🇲ss") & "# And #" & Format(Me.Format(Txt_Hora_Final, "hh🇲🇲ss") & "#;")





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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3662
    Registrado : 21/04/2011

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Marcelo David 17/5/2022, 13:50

    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.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Filtro Por Hora Inicial e Final Marcel11
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/12/2017

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Ismael Silva 17/5/2022, 14:18

    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.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3662
    Registrado : 21/04/2011

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Marcelo David 17/5/2022, 20:26

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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Filtro Por Hora Inicial e Final Marcel11
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/12/2017

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Ismael Silva 18/5/2022, 12:59

    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.
    Anexos
    [Resolvido]Filtro Por Hora Inicial e Final AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2759
    Registrado : 13/12/2016

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Alexandre Fim 18/5/2022, 14:10

    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:
    [Resolvido]Filtro Por Hora Inicial e Final Filtro16

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

    Segue versão.

    É isso
    Att,
    FIM
    Anexos
    [Resolvido]Filtro Por Hora Inicial e Final AttachmentExemplo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 13 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtro Por Hora Inicial e Final Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/12/2017

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Ismael Silva 19/5/2022, 20:57

    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?
    Anexos
    [Resolvido]Filtro Por Hora Inicial e Final AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 6 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2759
    Registrado : 13/12/2016

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Alexandre Fim 19/5/2022, 21:42

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtro Por Hora Inicial e Final Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/12/2017

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Ismael Silva 19/5/2022, 22:15

    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

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 809
    Registrado : 11/12/2017

    [Resolvido]Filtro Por Hora Inicial e Final Empty Re: [Resolvido]Filtro Por Hora Inicial e Final

    Mensagem  Ismael Silva 20/5/2022, 14:36

    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, "hh🇲🇲ss") & _
    "# And #" & Format(Me!Txt_Hora_Final, "hh🇲🇲ss") & "# order by Data1,Hora_Abast;"

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

      Data/hora atual: 27/1/2023, 05:36