FILTRO NO VB PARA O CRYSTAL REPORT

USUARIO.EXCLUIDOS 18/04/2004 22:15:56
#21243
Ola Pessoal Gostaria de verficar onde estou errando ao efetuar um filtro para gerar um relatorio no crystal 8.0

Estou usando o seguinte codigo no vb6
Dim VarBoleto As String
VarBoleto = InputBox("Inform o Boleto")


Cr1.DataFiles(0) = App.Path & "\CCI.Mdb"
Cr1.Connect = "pwd=695342"
Cr1.WindowState = 2
Cr1.WindowControlBox = True
Cr1.ReportFileName = App.Path & "\Boleto.Rpt"
' Cr1.SelectionFormula = "{TblBoletos.BoletoVencimento} = " & TxtVecto
Cr1.SelectionFormula = "{TblBoletos.BoletoId} = " & VarBoleto
Cr1.Destination = 0
' Cr1.Destination = crptToPrinter
Cr1.Action = 1

Ocorre o seguinte erro
Error in file c:\prog\Boleto.Rpt:
Error in formula Record_Selection.
'{TblBoletos.BoletoVencimento} = 16/04/2004'
A Data-time is requered here. 'Erro ocorreo ao tentar filtrar data

Se eu informar para filtar texto
Cr1.SelectionFormula = "{TblBoletos.BoletoId} = " & VarBoleto
the remaining text does not apper to be part to the formula

Desde já agradeço a atenção

Jair Lopes
jl.sma@ig.com.br
USUARIO.EXCLUIDOS 18/04/2004 22:32:13
#21251 Resposta escolhida
Você deve utilizar a função de conversão de datas do Crystal e formatar a data para passá-la para a fórmula. Ex.:
...
Cr1.SelectionFormula = "{TblBoletos.BoletoVencimento} = ToDate(" & Format(TxtVecto ,"yyyy,mm,dd") & ")"
...
Tópico encerrado , respostas não são mais permitidas
Voltar