[RESUELTO] Consulta con parámetros

[Joan Terrassa]

Hola amigos, soy un principiante en esto de las DB, mi problema es el siguiente : desde un formulario de entrada de datos abro informes que utilizan consultas con parámetros, utilizo una macro, que encontré buscanco por el foro, que abre cualquier formulario, eso sí poniendo el nombre del informe que tiene que abrir, en el campo "nombre" de las propierades del botón a pulsar, el problema es que si se pulsa el botón de "cancelar" en la solicitud de los parámetros, me da error y me remite a la macro para su correción. Podríais indicarme que es lo que estoy haciendo mal, adjunto la macro. Muchas gracias por vuestra ayuda

Sub ObreInforme(Event As Object)
Dim INFOR As Object
Dim INFOROPEN as string
Dim DBDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
DIM BUTTON AS OBJECT

BUTTON=EVENT.SOURCE.MODEL
REPORT=BUTTON.PARENT
INFOROPEN=BUTTON.NAME
DBDoc=REPORT.PARENT.PARENT.PARENT

Args(0).Name="ActiveConnection"
Args(0).Value=Report.ActiveConnection
Args(1).Name="OpenMode"
Args(1).Value="open"


DBDoc.ReportDocuments.loadComponentFromURL(INFOROPEN,"_blank",0,Args())

End Sub

[RMG]

Hola,

Dos opciones más simples para abrir un informe, que posiblemente no te den error. Si aún así te lo da, al inicio de la macro puedes poner On Error Resume Next.

ABRIR POR EL NOMBRE DEL INFORME DIRECTAMENTE

Sub AbrirInforme()
ThisDatabaseDocument.ReportDocuments.GetByName("NombreInforme").Open
End Sub

ABRIR POR EL NOMBRE EN EL TAG DEL BOTON (TAG = Propiedades->Informacion adicional botón)

Sub AbrirInforme(Evento)
ThisDatabaseDocument.ReportDocuments.GetByName(Evento.Source.Model.Tag).Open
End Sub

[Joan Terrassa]

Resuelto. Muchas gracias