Pessoa Preciso fazer uma consulta para gerar relatório através do codigo e da data de compra mais só consegui através do codigo, que que faça filtragem através do codigo e da data segue o codigo abaixo que consegui filtrar o codigo no relatorio:

 

Dim dtain As String
Busca = InputBox("Digite o codigo:")
formula = "{tabvendas.Codigo}= '" & Busca & "'"
If Busca = Empty Then
crvendas.Action = 1
End If
crvendas.SelectionFormula = formula
crvendas.Action = 1
End Sub

 

Por favor postem alguma ideia de como fazer esta filtragem por dois critérios

 

Valew

Abraços rodrigo