[RESUELTO] AVISO ASOCIADO A UN BOTÓN
Publicado: Mar Dic 28, 2021 5:50 pm
Hola, quisiera poner un mensaje que se visualizara una vez se acciona un botón ( todo ello para advertir de una serie de pautas que hay que seguir) y que al darle a aceptar al mensaje del aviso se ejecutara la macro de ese botón para generar el informe definitivamente. Estoy pensando en un botón que ejecuta un informe como este código
Sub ImprimirInforme( Evento )
Dim oReporte As Object
Dim oConsulta As Object
Dim oCampoID As Object
Dim oForm As Object
'El formulario activo
oForm = Evento.Source.Model.Parent
'El campo con el Id
oCampoID = oForm.GetByName("Campoformateado")
'Debe ser mayor a cero
If oCampoID.BoundField.Int > 0 Then
'La consulta en la que se basa el reporte
oConsulta = ThisDatabaseDocument.DataSource.QueryDefinitions.getByName ("ConsultaSelectiva")
'Modificamos la consulta de modo que tome le registro actual
oConsulta.Command = "SELECT ""ID"",""NOMBRE"",""DOMICILIO"",""FECHA"",""TELEFONO"" FROM ""BASEDEDATOS"" WHERE ""ID"" = " & oCampoID.BoundField.Int
'El informe a mostrar
oReporte = ThisDatabaseDocument.ReportDocuments.getByName ("INFORME")
'Mostramos el reporte
oReporte.Open
End If
End Sub
Gracias por vuestra ayuda.
Un saludo.
Sub ImprimirInforme( Evento )
Dim oReporte As Object
Dim oConsulta As Object
Dim oCampoID As Object
Dim oForm As Object
'El formulario activo
oForm = Evento.Source.Model.Parent
'El campo con el Id
oCampoID = oForm.GetByName("Campoformateado")
'Debe ser mayor a cero
If oCampoID.BoundField.Int > 0 Then
'La consulta en la que se basa el reporte
oConsulta = ThisDatabaseDocument.DataSource.QueryDefinitions.getByName ("ConsultaSelectiva")
'Modificamos la consulta de modo que tome le registro actual
oConsulta.Command = "SELECT ""ID"",""NOMBRE"",""DOMICILIO"",""FECHA"",""TELEFONO"" FROM ""BASEDEDATOS"" WHERE ""ID"" = " & oCampoID.BoundField.Int
'El informe a mostrar
oReporte = ThisDatabaseDocument.ReportDocuments.getByName ("INFORME")
'Mostramos el reporte
oReporte.Open
End If
End Sub
Gracias por vuestra ayuda.
Un saludo.