CRYSTAL REPORT 9 - ERRO 20525
Gostaria de saber o que estou fazendo de errado no código abaixo.
O erro é gerado na ultima linha.
Erro nº 20525
Descrição: Unable to load report
CrystalReport1.WindowState = crptMaximized
CrystalReport1.WindowTitle = Me.Caption
CrystalReport1.DataFiles(0) = "\\Serv\vs_WIN\Base.mdb"
'Endereço do servidor
CrystalReport1.SelectionFormula = "" '{notafiscalcliente.fatura} = '" & frmNFClientes.TxtNF & "'"
CrystalReport1.ReportFileName = "C:\Windows\Desktop este.rpt"
CrystalReport1.Action = 1O erro é gerado na ultima linha.
Erro nº 20525
Descrição: Unable to load report
Provavelmente eÂÂÂ'um problema das inúmeras Dlls problemáticas do Crystal...
Dê uma olhada na versão desses componentes :
crystl32.ocx Dependências
ADVAPI32.DLL
COMCTL32.DLL
COMDLG32.DLL
CRPE32.DLL
GDI32.DLL
IMPLODE.DLL
MFC42.DLL
MSVCRT.DLL
MSVCRT20.DLL
OLE32.DLL
OLEAUT32.DLL
OLEDLG.DLL
OLEPRO32.DLL
USER32.DLL
VERSION.DLL
Abs
Dê uma olhada na versão desses componentes :
crystl32.ocx Dependências
ADVAPI32.DLL
COMCTL32.DLL
COMDLG32.DLL
CRPE32.DLL
GDI32.DLL
IMPLODE.DLL
MFC42.DLL
MSVCRT.DLL
MSVCRT20.DLL
OLE32.DLL
OLEAUT32.DLL
OLEDLG.DLL
OLEPRO32.DLL
USER32.DLL
VERSION.DLL
Abs
Segue as versões...
ADVAPI32.DLL - 4.80.1675
COMCTL32.DLL - 5.81
COMDLG32.DLL - 4.72.3510.2300
CRPE32.DLL - 6, 0, 1, 151
GDI32.DLL - 4.10.1998
IMPLODE.DLL - 1, 0, 0, 1
MFC42.DLL - 6.00.9782.0
MSVCRT.DLL - 6.00.9782.0
MSVCRT20.DLL - 2.11.000
OLE32.DLL - 4.71.3328
OLEAUT32.DLL - 2.40.4518
OLEDLG.DLL - 1.0
OLEPRO32.DLL - 5.0.4518
USER32.DLL - 4.10.2227
VERSION.DLL - 4.10.1998
???????????????
tente mudar a ordem de algumas linhas para esta ordem
CrystalReport1.ReportFileName = "C:\Windows\Desktop este.rpt"
CrystalReport1.DataFiles(0) = "\\Serv\vs_WIN\Base.mdb"
CrystalReport1.WindowTitle = Me.Caption
CrystalReport1.SelectionFormula = "" '{notafiscalcliente.fatura} = '" & frmNFClientes.TxtNF & "'"
CrystalReport1.Destination = 0
CrystalReport1.Action = 1
CrystalReport1.WindowState = crptMaximized
por exemplo voce indicou a formula antes de dar o caminho do relatorio
voce tambem indicou o estado da janela antes de iniciar a impressão
voce nao colocou o destino
se não resolver é so avisar.
CrystalReport1.ReportFileName = "C:\Windows\Desktop este.rpt"
CrystalReport1.DataFiles(0) = "\\Serv\vs_WIN\Base.mdb"
CrystalReport1.WindowTitle = Me.Caption
CrystalReport1.SelectionFormula = "" '{notafiscalcliente.fatura} = '" & frmNFClientes.TxtNF & "'"
CrystalReport1.Destination = 0
CrystalReport1.Action = 1
CrystalReport1.WindowState = crptMaximized
por exemplo voce indicou a formula antes de dar o caminho do relatorio
voce tambem indicou o estado da janela antes de iniciar a impressão
voce nao colocou o destino
se não resolver é so avisar.
O crystal 9 não tem mais a OCX, por isso está ocorrendo esse erro. Você deverá migrar para o RDC (Report Designer Component) ...
Dê uma olhada neste documento sobre a migração.
http://support.businessobjects.com/communityCS/TechnicalPapers/scr8-ocxtordc.pdf
t+
Dê uma olhada neste documento sobre a migração.
http://support.businessobjects.com/communityCS/TechnicalPapers/scr8-ocxtordc.pdf
t+
ERRO 20525 AINDA é GERADO NA LINHA .ACTION=1, O QUE EU FAÇO??
uma duvida surge, por acaso você tem duas versões do crystal instalada em seu computador??? sem sim você fez na versão mais nova e agora esta tentando abrir no vb pela ocx mais antiga???
Não, foi ao contrário. Instalei a versão 6 mas não me adaptei muito com ela. Então eu à  desinstalei e instalei a versão 9. Detalhe, o relatório foi feito totalmente na versão 9.
o FABIO CR tem razão no link que ele indicou mostra o que deve ser feito, agora ao inves do componente do crystal é utilizado o RDC, (meu ingles não é bom, mas pelo o que entendi dever ser feito isto)
primeiro remova a referencia à  ocx do crystal do seu projeto bem como o componente do crystal.
segundo em project e references faça referencia a
crystal report # activex designer runtime library (onde # representa a versã do RDC
terceiro em project e componnents marque Crystal Report Viewer Control (versão 6 ou 7)
quarto, as declarações
Dim crxapplication as New craxdrt.application
Dim report as craxdrt.report
Dim crxdatabasetable as craxdrt.databasetable
Set report = crxapplication.openreport (app.path & "elatorio.rpt",1)
For Each crxdatabasetable in report.database.tables
crxdatabasetable.location = app.path & "\banco.mdb"
Next crxdatabasetable
crviewer1.reportsource = report
crviewer1.viewreport
primeiro remova a referencia à  ocx do crystal do seu projeto bem como o componente do crystal.
segundo em project e references faça referencia a
crystal report # activex designer runtime library (onde # representa a versã do RDC
terceiro em project e componnents marque Crystal Report Viewer Control (versão 6 ou 7)
quarto, as declarações
Dim crxapplication as New craxdrt.application
Dim report as craxdrt.report
Dim crxdatabasetable as craxdrt.databasetable
Set report = crxapplication.openreport (app.path & "elatorio.rpt",1)
For Each crxdatabasetable in report.database.tables
crxdatabasetable.location = app.path & "\banco.mdb"
Next crxdatabasetable
crviewer1.reportsource = report
crviewer1.viewreport
Wiliam, tem um atalho para isso ... Vá em Project / Components / Designers e habilite o Crystal Reports
Depois vá em Project / Add Crystal Reports e siga o assistente ...
Depois vá em Project / Add Crystal Reports e siga o assistente ...
Tópico encerrado , respostas não são mais permitidas