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

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

Ola

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

Bom dia Scandinavo...

Sem jeito, o erro continua.

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

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") & "#"

finesh......