Me ajudem resolver o ERROR 5800: Scripting

[Flaavio (Flavio)]

Olá,

Estou tendo um erro de scripting na consulta do meu relatório ao clicar no botão, a seguir, coloca a data inicial e final pra consultar o relatório de correntes:

Sub Grupo3_Click()
'Referencia os SetPoints
DataIni = Screen.Item(“spDataInicial”).Value
DataFim = Screen.Item(“spDataFinal”).Value

'Referencia a consulta do relatório
set Report = Application.LoadReport(“Relatorio_Correntes”)
Set consulta = Report.Item(“Consulta1”)

'Configura as variáveis da consulta
consulta.SetVariableValue “DataInicial”, DataIni
consulta.SetVariableValue “DataFinal”, DataFim

'Visualizar a impressão
Report.PrintPreview()
End Sub

Como faço pra resolver? Qual o Script certo?

[nivaldonicolau]

Bom dia @Flaavio,

Pela mensagem de erro trata-se de um script do próprio relatório.

O ícone da folha com engrenagem abre o Script Editor do Relatório.

[Flaavio (Flavio)]

Não tenho nada no Script do relatorio, nem sei qual script devo digitar pra fazer a consulta, o que devo fazer?

[Flaavio (Flavio)]

Consegui resolver aqui, obrigado ;D