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