Saudações pessoal!

 

Estou utilizando a seguinte linha para filtrar um relatorio por data:

 

 

mas...está dando o seguinte erro:

 

 

Se alguem souber oque estou fazendo errado poste!

 

Um abraço!

vc deve formatar a data separando dia mes e ano, sde baseie pelo codigo :

 

Private Sub Command1_Click()

Dim diai
Dim mesi
Dim anoi
Dim diaf
Dim mesf
Dim anof

diai = Day(txtdata1)
mesi = Month(txtdata1)
anoi = Year(txtdata1)

diaf = Day(txtdata2)
mesf = Month(txtdata2)
anof = Year(txtdata2)

CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = "C:Documents and SettingsAdministradorDesktopReport2.rpt"

CrystalReport1.SelectionFormula = "{query.data} >= Date(" & anoi & "," & mesi & "," & diai & ") and " & _
"{query.data} <= Date(" & anof & "," & mesf & "," & diaf & ")"

CrystalReport1.Action = 1

End Sub

E não se esqueça que um dos valores pode estar null.