[Resolvido]Filtrar formulário por caixa de combinação campo tipo data

Amigos,

Tenho um formulário onde quero filtrar por um campo tipo data (data abreviada), sendo que quero selecionar a data a ser filtrada numa caixa de combinação.

Só que a única resposta que consigo é "Tipo de dados incompatível na expressão de critério"...
Já sei que o VBA lê a data no padrão mm/dd/yyyy...

O filtro pela caixa de combinação, indicando a coluna (0), eu sei fazer... Dá certo para campos tipo texto... Mas para esse campo data não...

A pergunta é...

Como fazer?

Agradeço imensamente !

Boa noite,
Você quer adicionar valores a Combobox ou o erro ocorre ao selecionar uma data da combobox?
Poderia nos mandar a parte que esta dando erro?

Oi Caio, bom dia!
Obrigado pela resposta, na verdade pergunta...rsrs.

O erro ocorre ao selecionar a data.
A data está numa tabela que a Combo está lendo.

Já verifiquei o formato na tabela onde está a data, que é "data abreviada".
Coloquei o mesmo formato na Combo, no campo do formulário e na tabela que este formulário está lendo...

Só que, pelo que pesquisei, o problema é o formato "mm/dd/yyyy' que o VBA reconhece (formato americano).

Tentei usar um "Format..." no código do filtro...

No evento na Combo, que está dando erro, estou usando:

Private Sub FiltroPrvEntrega_AfterUpdate()


DoCmd.ApplyFilter , "Entrega = '" & Me![FiltroPrvEntrega].Column(0) & "'"

End Sub


Tentei colocar um "Format"...


Private Sub FiltroPrvEntrega_AfterUpdate()


DoCmd.ApplyFilter , "Entrega = '" & Format(Me![FiltroPrvEntrega].Column(0))="mm/dd/yyyy" & "'"

End Sub

Não deu certo...

Também já tentei jogar o valor da Combo para uma caixa de texto e fazer o filtro com base na caixa de texto...
Tentei usar um "Format" na caixa de texto...
Daí não dava o erro de "Tipo de dados incompatível...", só que o filtro retornava em branco...

Hard...

Obrigado!

Bom dia!
Primeiramente a função Format() é justamente para alterar formatos de uma expressão de acordo com nossa necessidade.
Exemplo:
Data: 12/02/2018 (padrão americano mm/dd/yyyy)
Aplicação da função: Fomat([SeuCampoData], "dd/mm/yyyy")

Sobre seu código, tente assim:

Código:

Private Sub FiltroPrvEntrega_AfterUpdate()
    Me.Filter = "[Entrega]='" & Me.FiltroPrvEntrega.Column(0) & "'"
    Me.FilterOn = True
End Sub

Ou:

Código:

Private Sub FiltroPrvEntrega_AfterUpdate()
    Me.Filter = "[Entrega]=#" & Me.FiltroPrvEntrega.Column(0) & "#"
    Me.FilterOn = True
End Sub

Prezado Caio, boa noite!

Agradeço demais!

A forma que deu certo foi a seguinte:

Private Sub FiltroPrvEntrega_AfterUpdate()
Me.Filter = "[Entrega]=#" & Me.FiltroPrvEntrega.Column(0) & "#"
Me.FilterOn = True
End Sub

Foi a segunda que vc sugeriu!

Obrigado!

Bom dia!

Agradeço o retorno, bons estudos!