none
Erro Visual Basic RRS feed

  • Pergunta

  • Pessoal quando tento executar uma função aparece o seguinte erro:

    Error detected by database DLL  

    Debugando o código percebi que o erro acontece na seguinte linha :

     MDIGL.crpMKT.Action = 1

    PAra ficar mais fácil segue o código completo :

      If optImpressora.Value Then
                        Set Printer = Printers(cmbImpressoras.ListIndex)
                        MDIGL.crpMKT.PrinterDriver = Printer.DriverName
                        MDIGL.crpMKT.PrinterName = Printer.DeviceName
                        MDIGL.crpMKT.PrinterPort = Printer.Port
                        MDIGL.crpMKT.Destination = crptToPrinter
                    Else
                        MDIGL.crpMKT.WindowState = crptMaximized
                        MDIGL.crpMKT.Destination = crptToWindow
                    End If
                   
                    Call Grava_Log_Impressao(MDIGL.crpMKT.ReportFileName, MDIGL.crpMKT.Destination)
     
                    MDIGL.crpMKT.Action = 1

    Quando fui procurar no form MDIGL a variável crpMKT o único trecho que achei foi esse :

          crpMKT.Reset
           crpMKT.LogOnServer "P2SSQL.DLL", pServidor, Conn.DefaultDatabase, "programador", SENHA_CONECT
           crpMKT.Connect = "dsn=" & pServidor & ";uid=" & "Programador" & ";pwd=" & SENHA_CONECT & ";dsq=" & Conn.DefaultDatabase
          
           'Caminho do arquivo de relatório.
           crpMKT.ReportFileName = App.Path & "\Relatorios\TodasEmpresasCompletas.rpt"
          
           crpMKT.StoredProcParam(0) = "C"
           crpMKT.Destination = crptToPrinter
          
            Call Grava_Log_Impressao(crpMKT.ReportFileName, crpMKT.Destination)
     

           crpMKT.Action = 1

    Não entendi muito bem pois em nenhum momento no código ele declarou a variável, e além disso para quer serve essa action ?
    Obrigado desde já





    Seu nome

    quarta-feira, 18 de setembro de 2013 03:11

Todas as Respostas