ERRO SELECTION FORMULA NO CRYSTAL REPORT - VB 6.0

CYBERMAC 24/06/2015 18:10:33
#448131
Pessoal,

Boa noite.

Preciso gerar um relatório cuja data é trazida pelo comand DATE no vb.

A mensagem de erro anexa ocorre.

Segue abaixo meu código.

Private Sub btnimprimi_Click()
If optunico.Value = True Then
rptrelatorio.WindowTitle = [Ô]Relatório de Fechamento de Caixa[Ô]
rptrelatorio.ReportFileName = App.Path + [Ô]\Relatorios\RelFechaCaixa.RPT[Ô]
rptrelatorio.SelectionFormula = [Ô]{MOVCAIXA.Data} = [Ô] & Date & [Ô] 00:00:00[Ô]
rptrelatorio.RetrieveDataFiles
rptrelatorio.Action = 1
ElseIf optsimples.Value = True Then
If txtcpf = [Ô]___.___.___-__[Ô] Then
rptrelatorio.WindowTitle = [Ô]Relatório Extrato de Caixa[Ô]
rptrelatorio.ReportFileName = App.Path + [Ô]\Relatorios\RelSimplesCaixa.RPT[Ô]
rptrelatorio.SelectionFormula = [Ô]{MOVCAIXA.Codigo} = [Ô] & txtcodigo
rptrelatorio.RetrieveDataFiles
rptrelatorio.Action = 1
Else
rptrelatorio.WindowTitle = [Ô]Movimento de Caixa - Simples[Ô]
rptrelatorio.ReportFileName = App.Path + [Ô]\Relatorios\RelSimplesCaixa.RPT[Ô]
rptrelatorio.SelectionFormula = [Ô]{MOVCAIXA.Codigo} = [Ô] & txtcodigo & [Ô] AND {MOVCAIXA.CPF} = [Ô] & txtcpf
rptrelatorio.RetrieveDataFiles
rptrelatorio.Action = 1
End If
End If
End Sub


Desde já agradeço a todos.
FUTURA 24/06/2015 18:18:46
#448132 Resposta escolhida
Cyber, para filtrar por data no Crystal a formatação é esta:

crystal.SelectionFormula = [Ô]{tabela.data} >= Date([Ô] & Format(dt1.value, [Ô]yyyy, mm, dd[Ô]) & [Ô]) and {tabela.data} <= Date([Ô] & Format(dt2.value, [Ô]yyyy, mm, dd[Ô]) & [Ô])[Ô]

ou no seu caso, sendo data única:

crystal.SelectionFormula = [Ô]{tabela.data} = Date([Ô] & Format(dt1.value, [Ô]yyyy, mm, dd[Ô]) & [Ô])[Ô]
CYBERMAC 25/06/2015 09:24:16
#448140
Quem sabe, sabe!

Obrigado Edson, funcionou como esperado.
Tópico encerrado , respostas não são mais permitidas
Voltar