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]Erro ao filtrar por data em formulário continuo

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    [Resolvido]Erro ao filtrar por data em formulário continuo Empty [Resolvido]Erro ao filtrar por data em formulário continuo

    Mensagem  Silvio 6/3/2023, 19:16

    Prezados, bom dia / boa tarde / boa noite.

    Preciso de um help nessa rotina. Estou pagando pau nessa filtragem abaixo.

    Código:


        If Len(Me.CboData & "") > 0 Then    ' cbodata, campo data, formato abreviado dd/mm/yyyy 06/03/2023
      If Me.CboData.Column(0) = "" Then
        strFilter = strFilter & " AND #" & Format(Me!DataPedido, "dd/mm/yyyy") & "# Like """    ' datapedido, campo que está no formulário continuo,  campo data, formato abreviado dd/mm/yyyy 06/03/2023
      Else
        strFilter = strFilter & " AND #" & Format(Me!DataPedido, "dd/mm/yyyy") & "#='" & Me.CboData.Column(0) & "'"



      End If

    Os outros dois filtros que eu fiz....belezinha, filtra do jeito que o usuário final precisa...mas esse por data...está me tirando do sério.

    Um help, por favor.

    Agradeço desde já.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Erro ao filtrar por data em formulário continuo Empty Re: [Resolvido]Erro ao filtrar por data em formulário continuo

    Mensagem  scandinavo 6/3/2023, 20:46

    Ola

    Voce ja tentou usar o formato de data americano mm/dd/yy
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    [Resolvido]Erro ao filtrar por data em formulário continuo Empty Re: [Resolvido]Erro ao filtrar por data em formulário continuo

    Mensagem  Silvio 7/3/2023, 07:38

    Bom dia Scandinavo...

    Sem jeito, o erro continua.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao filtrar por data em formulário continuo Empty Re: [Resolvido]Erro ao filtrar por data em formulário continuo

    Mensagem  Alexandre Fim 7/3/2023, 11:35

    Silvio,

    Acredito que estava faltando o nome do campo da tabela. Seria isso:

    Código:


        If Len(Me.CboData & "") > 0 Then    ' cbodata, campo data, formato abreviado dd/mm/yyyy 06/03/2023
            If Me.CboData.Column(0) = "" Then
                strFilter = strFilter & " AND DataPedido IS NULL"
            Else
                strFilter = strFilter & " AND DataPedido = #" & Format(Me.CboData.Column(0), "dd/mm/yyyy") & "#"
            End If
        End If


    Testa ai e veja se funfa.

    Valeu

    Att.

    Alexandre Fim


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

    [Resolvido]Erro ao filtrar por data em formulário continuo Setinf11
    Sistemas e Tecnologia Ltda
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    [Resolvido]Erro ao filtrar por data em formulário continuo Empty Re: [Resolvido]Erro ao filtrar por data em formulário continuo

    Mensagem  Silvio 7/3/2023, 14:12

    Boas...

    Acertou em cheio Alexandre, eu estava no caminho certo, porém só fiz uma correção que deixo abaixo,

    de:
    strFilter = strFilter & " AND DataPedido = #" & Format(Me.CboData.Column(0), "dd/mm/yyyy") & "#"

    para:
    strFilter = strFilter & " AND DataPedido = #" & Format(Me.CboData.Column(0), "mm/dd/yyyy") & "#"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    [Resolvido]Erro ao filtrar por data em formulário continuo Empty Re: [Resolvido]Erro ao filtrar por data em formulário continuo

    Mensagem  Silvio 7/3/2023, 14:13

    finesh......


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Erro ao filtrar por data em formulário continuo Empty Re: [Resolvido]Erro ao filtrar por data em formulário continuo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2024, 21:28