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

 

selectionformula usando codigo do cliente e vencimento:

 

.SelectionFormula = "(({R~Relcrecp.Codigo do cliente} = " & Str$(Vcliente) & ") AND ({R~Relcrecp.Vencimento} >= Date(" & Year(CDate(Vdata1)) & " , " & Month(CDate(Vdata1)) & " , " & Day(CDate(Vdata1)) & ")) AND ({R~Relcrecp.Vencimento} <= Date(" & Year(CDate(Vdata2)) & " , " & Month(CDate(Vdata2)) & " , " & Day(CDate(Vdata2)) & ")))"

Tente assim :

    .SelectionFormula = "{Vendas.Data_Entr}>= Date(" & Format(Data01, "yyyy,mm,dd") & ") AND {Vendas.Data_Entr}<= Date(" & Format(Data02, "yyyy,mm,dd") & ") AND {Vendas.Cod_Cli}>=" & CStr(Inicio.Text) & " AND {Vendas.Cod_Cli}<=" & CStr(Final.Text) & ""