Exportación a Excel
Publicado por King (1 intervención) el 06/07/2018 17:44:09
Buenas tardes,
Os comento. Actualmente tengo una base de datos en Access en la cual tengo un formulario de búsqueda.
Dicho formulario esta compuesto por dos cuadros de lista (Uno de ellos sirve para marcar el campo a buscar y el otro muestra la información), un cuadro de texto en el cual introduzco los valores a buscar y otras opciones como un contador de registros.
Estoy buscando la forma de implementar un botón de exportado a Excel donde solo exporte los datos que estoy buscando en ese momento. Es decir, si selecciono Oficina y busco Madrid, una vez que me muestre todas las oficinas con ese nombre, pueda darle a exportar y me extraiga esos datos en concreto.
He estado dando varias vueltas al código pero debido a mis pocos conocimientos en programación no consigo estructurarlo.
Case Is = "1"
Select Case ListaT
Case Is = "Delegación"
Me.Lista0.DoCmd.TransferSpreadsheet acExport = "SELECT * FROM Oficinas_Cliente WHERE Oficina LIKE '*" & Busca.Text & "*' ORDER BY [Oficina]ASC;"
End Select
Espero que me puedan ayudar.
Muchas gracias de antemano.
Os comento. Actualmente tengo una base de datos en Access en la cual tengo un formulario de búsqueda.
Dicho formulario esta compuesto por dos cuadros de lista (Uno de ellos sirve para marcar el campo a buscar y el otro muestra la información), un cuadro de texto en el cual introduzco los valores a buscar y otras opciones como un contador de registros.
Estoy buscando la forma de implementar un botón de exportado a Excel donde solo exporte los datos que estoy buscando en ese momento. Es decir, si selecciono Oficina y busco Madrid, una vez que me muestre todas las oficinas con ese nombre, pueda darle a exportar y me extraiga esos datos en concreto.
He estado dando varias vueltas al código pero debido a mis pocos conocimientos en programación no consigo estructurarlo.
Case Is = "1"
Select Case ListaT
Case Is = "Delegación"
Me.Lista0.DoCmd.TransferSpreadsheet acExport = "SELECT * FROM Oficinas_Cliente WHERE Oficina LIKE '*" & Busca.Text & "*' ORDER BY [Oficina]ASC;"
End Select
Espero que me puedan ayudar.
Muchas gracias de antemano.
Valora esta pregunta
0