[RESUELTO]Consultar una tabla con botón en Formulario

[EMEJOTA72]

Muy buenas tardes, es la primera vez que escribo en este foro al que le debo todo lo que he aprendido y con el que he podido hacer una base de datos increíble para mi trabajo. Pues bien, igual es una tontería y la solución es mas fácil de lo que parece, pero no sé como hacerlo.... Pues lo que intento hacer es una simple consulta a través de un botón en un formulario, pero no quiero que me cree un informe porque no necesito imprimir nada, lo que pretendo es que se abra la consulta directamente con todos los registros que cumplan las condiciones de dicha consulta.

[RMG]

Hola,

Esa pregunta esta contestada en el foro, para ver ejemplos puedes hacer una búsqueda. Además te adjunto dos posibles soluciones.

1ª Solución, abrir directamente una consulta.

Código: Seleccionar todo   Expandir vistaContraer vista

Sub sBotonAbreConsulta(Evento As Object)  REM - Poner esta macro en el botón para que llame a la otra
   Dim sNombreC As String
   sNombreC=Evento.Source.Model.Tag        REM - En el Tag del boton (propiedad información adicional) poner el nombre de la Consulta
   sAbreConsulta(sNombreC,ThisDatabaseDocument.Currentcontroller.ActiveConnection)
End Sub

Sub sAbreConsulta(sNombreC As String,Con As Object)
   Dim oDes
   Dim sURL As New com.sun.star.util.URL
   Dim oDisObj
   Dim oProps(5) As New com.sun.star.beans.PropertyValue
   oDes=CreateUnoService("com.sun.star.frame.Desktop")
   sURL.Complete=".component:DB/DataSourceBrowser"
   oDisObj=oDes.QueryDispatch(sURL,"_Blank",com.sun.star.frame.FrameSearchFlag.CREATE)
   oProps(0).Name="ActiveConnection"
   oProps(0).Value=Con
   oProps(1).Name="CommandType"
   oProps(1).Value=com.sun.star.sdb.CommandType.QUERY
   oProps(2).Name="Command"
   oProps(2).Value=sNombreC
   oProps(3).Name="ShowMenu"
   oProps(3).Value=True
   oProps(4).Name="ShowTreeView"
   oProps(4).Value=FALSE
   oProps(5).Name="ShowTreeViewButton"
   oProps(5).Value=FALSE   
   oDisObj.Dispatch(sURL,oProps)
End Sub

2ª Solución, abrir un formulario basado en tu consulta en vez de una tabla, donde exista solamente un control tabla.

Código: Seleccionar todo   Expandir vistaContraer vista

Sub AbrirFormulario()'evento botón
   ThisDatabaseDocument.FormDocuments.GetByName("NombreFormulario").Open
End Sub

Saludos

[EMEJOTA72]

Muchiiiiiiisimas gracias!!! era justo lo que quería!!