Bom dia pessoal, Sou novato no fórum, dei uma olhada e não encontrei nada sobre minha dúvida... lá vai... Tenho uma aplicação que fiz no VB6 e preciso abrir um relatório (Crystal XI)... até ai tudo bem.. ... nesse relatório eu tenho dois subreports... o problema acontece quando eu tento filtrar as informações que quero visualizar nos subs... segue o código: Screen.MousePointer = vbHourglass
Dim DataInicio, DataFinal As String
Screen.MousePointer = vbHourglass
'formatando datas para crystal
DataInicio = Format(frmLogistica.dtInicioRelatorio.Value - 2, "yyyy,mm,dd")
DataFinal = Format(frmLogistica.dtFimRelatorio.Value + 1, "yyyy,mm,dd")
'*************************
Dim ORIGEM1, ORIGEM2 As String
ORIGEM1 = "Manuseio"
ORIGEM2 = "Logística"
Report.DiscardSavedData
'inserindo filtro para o primeiro sub report
Report.subreportDesvios.OpenSubreport.RecordSelectionFormula = "{T_NODIRECTRUN.DATA} in Date (" & DataInicio & ") to Date (" & DataFinal & ") and {T_NODIRECTRUN.RESPONSAVEL}= '" & ORIGEM1 & "' Or {T_NODIRECTRUN.DATA} in Date (" & DataInicio & ") to Date (" & DataFinal & ") and {T_NODIRECTRUN.RESPONSAVEL}= '" & ORIGEM2 & "'" 'FORMULA
'inserindo filtro para o segundo sub report
Report.subreportInterferencias.OpenSubreport.RecordSelectionFormula = "{T_INTERFERENCIAD12.DATA} in Date (" & DataInicio & ") to Date (" & DataFinal & ") and {T_INTERFERENCIAD12.RESPONSAVEL}= '" & ORIGEM1 & "' Or {T_INTERFERENCIAD12.DATA} in Date (" & DataInicio & ") to Date (" & DataFinal & ") and {T_INTERFERENCIAD12.RESPONSAVEL}= '" & ORIGEM2 & "'" 'FORMULA
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault o filtro está funcionando... o problema é que o relatório só abre de vez em quando... quando abre, abre corretamente... mas na maioria das vezes não abre e exibe a seguinte mensagem de erro: Run-time error '-2147189563 (80047cc5)': Basic sintax is not suported in group or record selection formula Alguém saberia me dizer o porque do erro? por que ele só ocorre de vez em quando? Obrigado pessoal... espero que os experts em crystal possam me ajudar... hehe Abraço!
