galera como façõ um filtro entre datas no crystal, meu codigo é esse

 

Crp.SelectionFormula = "{vteste_2.nome}='" & combo1.Text & "'"

 

e o campo é vtest_2.data

Segue :

Private Sub CmdPesquisar_Click()
On Error GoTo Trata_Erro

Dim lFormula   As String
'Captura data inicial
lFormula = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormula = lFormula & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormula = lFormula & " AND {bolão.Equipe} = '" & Equipe.Text & "'"
lFormula = lFormula & " and {bolão.Local} ='" & LocalC.Text & "' "

'para visualizar a formula
'MsgBox lFormula
Me.MousePointer = 11
Crp.DataFiles(0) = App.Path & "olao.mdb"
Crp.ReportFileName = App.Path & "Campeonato.rpt"
Crp.SelectionFormula = lFormula
Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.Action = 1
Me.MousePointer = 0

Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"

End Sub

naum entendi nada

Bem você não quer filtrar os dados entre duas datas ???

Este é o procedimento:

Dim lFormula   As String
'Captura data inicial
lFormula = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormula = lFormula & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"

 

Se não for isto desculpe-me entendi errado .........

naum funciona... naum exeiste nada mais simples?!!!

como assim Armando, a filtragem do crystal é dessa forma mesmo, e os meus funcionam perfeitamente, nao tem como ser mais simples que iss, ele esta apenas dividindo a data e colocando uma virgula entre ano, mes, dia, pq o crystal exige que seja assim, ok...