[Resolvido]A busca por data não funciona corretamente...

Olá amigos, estou com um problema com um relatório, onde se busca por data inicial e data final. foi usado o seguinte código:

Private Sub Comando4_Click()
   DoCmd.OpenReport "Relatorio_vendas", acPreview, , "data_pedido >=#" & Me.di & "# And data_pedido <=#" & Me.df & "#"
End Sub


Private Sub Comando6_Click()
   DoCmd.OpenReport "talao_pedidos", acPreview, , "data_pedido >=#" & Me.di & "# And data_pedido <=#" & Me.df & "#"
End Sub


no formulário "Busca_relatório", somente algumas datas são aceitas como por exemplo: 11, 13, 18...

Faça o teste;

DoCmd.OpenReport "Relatorio_vendas", acPreview, , "data_pedido >=#" & CDate(Me.di) & "# And data_pedido <=#" & CDate(Me.df) & "#"

Se tiver mascara no campo data na tabela, tem de remover.

obrigado jpaulo, testei o código, porem continua buscando apenas as datas a partir do 11 em diante.

Ola bom dia !

Agora que vi o seu banco, a data tem de ser formatada para data americana;

DoCmd.OpenReport "Relatorio_vendas", acPreview, , "[data_pedido] >=#" & CDate(Format(Me.di, "mm-dd-yyyy")) & "# And data_pedido <=#" & CDate(Format(Me.df, "mm-dd-yyyy")) & "#"

Veja;

Obrigado Jpaulo, funcionou direitinho.

Obrigado pelo retorno o forum agradece.