ERRO AO ACESSAR O CRISTAL REPORT

ELMO01 06/08/2007 17:40:47
#229702
Oi pessoal,

Estou tentando acessar um relatório via cristal, só que quando teclo o botão q criei para chamar o arquivo, me retorna a seguinte mensagem de erro:

INVALID FILE NAME

abaixo está o código que criado


Private Sub Form_Activate()
  Me.WindowState = 2
  CrystalReport1.WindowParentHandle = Form2.hWnd
  CrystalReport1.ReportFileName = "C:\Visual Basic\Estaciona\Relatórios\Report1.rpt"
  CrystalReport1.WindowState = 2
  CrystalReport1.Action = 1
End Sub


o erro está nesta linha [txt-color=#ff0000]CrystalReport1.Action = 1[/txt-color]

o que estou fazendo de errado para que me retorna este erro?
PAULOOLIVEIRA 06/08/2007 20:37:43
#229713 Resposta escolhida
invalid file name normalmente e quando o vb nao ta achando o rpt no local que voce indicou

segue a rotina no F8 e verifica se o local que vc. indicou tem o rpt flw


t+
IVAN.CARMO 06/08/2007 20:38:25
#229714
colega essa função q estou enviando funciona satisfatoriamente na verção 8, na propriedadade Relatorio.Connect = Bd.ConnectionString q conecta o relatorio no bd, existe um erro q ja tentei d tudo mas nao consegui resolver apos a instalação o relatorio procura o bd no diretorio onde o relatorio foi salvo q sempre e o original do projeto, mas faça o seguinte apos compilar o projeto instale-o e abra o relatorio do diretorio criado pelo instalador e use a opção verifique databeise do menu, indicando o bd q sera usado pelo aplicativo, salve e envie o junto com o aplicativo ou recompile o projeto adicionado esse relatorio ao pacote.


conteudo do botao imprimir'''''''''''''

Private Sub cmdImprimir_Click()
frmRecibo1.Show
If IsNumeric(frmRecibo1.dbgLoc.Columns(0)) Then
ConectaReport frmRecibo1.rpt1, "rptRecibo.rpt", "{Recibo.numero}=" & frmRecibo1.dbgLoc.Columns(0), crptMaximized
Else
MsgBox " NÃO EXISTE RECIBO PARA SER IMPRESSO", vbInformation
End If

End Sub

ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'ÂÂ'
espero q isso o ajude, caso alguem souber como resolver o problema do Relatorio.Connect =, tambem agradeço















Sub ConectaReport(Relatorio As CrystalReport, NomeDoArquivo As String, Optional Formula As String, Optional EstadoDaJanela As WindowStateConstants, Optional Numero As String, Optional Valor As String, Optional recebi_de As String, Optional endereco As String, Optional a_quantia_de As String, Optional Referente_a As String, Optional locau As String, Optional data As String, Optional emitente As String, Optional RG As String, Optional enderec As String)
        On Error GoTo ERRO
        Relatorio.Reset
        Relatorio.Connect = Bd.ConnectionString
        'Relatorio.Connect = "PWD=f2@#&n1s[]()="
        Relatorio.ReportFileName = NomeDoArquivo
        If Numero <> "" Then Relatorio.Formulas(3) = "numero =" & "'" & Trim(Numero) & "'"
       
        If Valor <> "" Then Relatorio.Formulas(0) = "valor =" & "'" & UCase(Valor) & "'"
        If recebi_de <> "" Then Relatorio.Formulas(1) = "recebi_de =" & "'" & UCase(recebi_de) & "'"
        If endereco <> "" Then Relatorio.Formulas(2) = "endereco=" & "'" & UCase(endereco) & "'"
        If a_quantia_de <> "" Then Relatorio.Formulas(4) = "a_quantia_de =" & "'" & UCase(a_quantia_de) & "'"
        If Referente_a <> "" Then Relatorio.Formulas(5) = "referente_a =" & "'" & UCase(Referente_a) & "'"
        If locau <> "" Then Relatorio.Formulas(6) = "locau =" & "'" & UCase(locau) & "'"
        If data <> "" Then Relatorio.Formulas(7) = "data =" & "'" & Trim(data) & "'"
        If emitente <> "" Then Relatorio.Formulas(8) = "emitente =" & "'" & Trim(emitente) & "'"
        If RG <> "" Then Relatorio.Formulas(9) = "rg=" & "'" & Trim(RG) & "'"
        If enderec <> "" Then Relatorio.Formulas(9) = "endereco =" & "'" & Trim(endereco) & "'"
        If IsMissing(Formula) = False Then Relatorio.SelectionFormula = Formula
        If Not IsMissing(EstadoDaJanela) Then Relatorio.WindowState = EstadoDaJanela
        If TITULOJANELA <> "" Then Relatorio.WindowTitle = TITULOJANELA
        'If IMPRIMEOBS = True Then
            'Relatorio.Formulas(0) = "OBS =" & "'" & UCase(FORMULA1) & "'"
           ' Relatorio.Formulas(1) = "TEXTOOBS =" & "'" & UCase(FORMULA2) & "'"
        'End If
'        If ORDEM = 1 Then Relatorio.SortFields(0) = "+{COMARCA.NOME}"
        Relatorio.WindowShowRefreshBtn = True
        Relatorio.WindowMinButton = True
        Relatorio.WindowMaxButton = True
        Relatorio.BoundReportFooter = True
        Relatorio.WindowShowExportBtn = True
        Relatorio.WindowHeight = "9000"
        Relatorio.WindowWidth = "15000"
        Relatorio.WindowShowCloseBtn = True
        Relatorio.WindowShowExportBtn = True
        Relatorio.WindowShowPrintSetupBtn = True
        
        'Relatorio.Destination = crptToPrinter ' manda o relatori p/ impressora
        
    
        'If Not UCase(Right(Relatorio.ReportFileName, 11)) = "SEPPROC.RPT" Then If Not IsMissing(AReceber) Then If Not AReceber = 0 Then Relatorio.Formulas(0) = "DIFERENCA =" & "'" & Format(AReceber, "R$ ###,###.00") & "'"
        'If Not IsMissing(PARAMETRO) Then Relatorio.ParameterFields(0) = "PM-CREDITO.CLIENTE = " & "'" & PARAMETRO & "'"
       
        ' If Not IsMissing(Andamento) Then Relatorio.Formulas(0) = "And =" & "'" & UCase(Trim(Andamento)) & "'"
        'If IMPRIMIR = False Then Relatorio.Destination = crptToWindow Else: Relatorio.Destination = crptToPrinter
        'Relatorio.FetchSelectionFormula
        'If MsgBox("DESEJA IMPRIMIR.?", vbYesNo + vbQuestion, AJUDA) = vbYes Then
        'Relatorio.RetrieveDataFiles
        P = MsgBox("DESEJA CONTINUAR", vbYesNo + vbQuestion, AJUDA): If P = vbYes Then Relatorio.Action = 1
        Exit Sub
        
ERRO:  If err.Number = 20507 Then MsgBox "RELATÓRIO AINDA NÃO CONSTRUÍDO.", vbCritical + vbOKOnly, TITLEAJUDA Else: erros err
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar