VB para access
Pues tengo unas cuantas preguntas sobre VB de access. Bueno, necesito el código en VB para cargar un archivo excel pero eligiendo una de las páginas del libro excel (no se si una makro también es capaz de hacer eso, sino también me serviría). Ademas, también necesito lo mismo pero al contrario, es decir, teniendo unas tablas en access, pasarlas a un archivo excel, pero cada tabla en una hoja diferente del mismo archivo. No se si pido algo imposible.
Y por ultimo, necesito el código para poder cargar dos tablas que están en la base de datos, en otra diferente (que también esta en la misma base de datos), pero cargando la primera entera, y de la segunda solo los registros en los que una de las columnas sea igual a la de la primera tabla. Vamos, lo que se hace con una consulta normal cuando pones que aparezcan todos los registros de una tabla y solo los iguales de la segunda pero en código VB para access para hacer que se ejecute desde un botón de un formulario.
¿Tienes idea de como resolver alguno de estos problemas?
Gracias y perdón por la txapa.
Y por ultimo, necesito el código para poder cargar dos tablas que están en la base de datos, en otra diferente (que también esta en la misma base de datos), pero cargando la primera entera, y de la segunda solo los registros en los que una de las columnas sea igual a la de la primera tabla. Vamos, lo que se hace con una consulta normal cuando pones que aparezcan todos los registros de una tabla y solo los iguales de la segunda pero en código VB para access para hacer que se ejecute desde un botón de un formulario.
¿Tienes idea de como resolver alguno de estos problemas?
Gracias y perdón por la txapa.
2 respuestas
Respuesta
1
1. Escribe estas funciones en Visual Basic de MS Access en un módulo general.
Option Compare Database
'------------------------------------------------------------
' Transferir una hoja de Excel a Access
' y Ejecutar una consulta
'------------------------------------------------------------
Function Transferir1()
On Error GoTo Transferir1_Err
' Transferir un rango de una hoja de Excel a una Tabla de Access
DoCmd.TransferSpreadsheet acImport, 8, "Tabla de Excel",
"C:\Documents and Settings\r12\Mis documentos\ClusterCR", False,
"Sheet2!A1:G150"
' Ejecutar una consulta con Visual Basic
DoCmd.OpenQuery "Nueva_Tabla", acViewNormal, acEdit
Transferir1_Exit:
Exit Function
Transferir1_Err:
MsgBox Error$
Resume Transferir1_Exit
End Function
2. Luego agrega un botón a tu formulario que ejecute cualquiera de las
Funciones.
Nota: La Consulta "Nueva_Tabla" debe ser del tipo "Creación de Tabla",
Busca en la ayuda "Consultas de Acción" - "Creación de Tablas", y debe
Contener las tablas mencionadas.
Option Compare Database
'------------------------------------------------------------
' Transferir una hoja de Excel a Access
' y Ejecutar una consulta
'------------------------------------------------------------
Function Transferir1()
On Error GoTo Transferir1_Err
' Transferir un rango de una hoja de Excel a una Tabla de Access
DoCmd.TransferSpreadsheet acImport, 8, "Tabla de Excel",
"C:\Documents and Settings\r12\Mis documentos\ClusterCR", False,
"Sheet2!A1:G150"
' Ejecutar una consulta con Visual Basic
DoCmd.OpenQuery "Nueva_Tabla", acViewNormal, acEdit
Transferir1_Exit:
Exit Function
Transferir1_Err:
MsgBox Error$
Resume Transferir1_Exit
End Function
2. Luego agrega un botón a tu formulario que ejecute cualquiera de las
Funciones.
Nota: La Consulta "Nueva_Tabla" debe ser del tipo "Creación de Tabla",
Busca en la ayuda "Consultas de Acción" - "Creación de Tablas", y debe
Contener las tablas mencionadas.
Respuesta de azezino81
1
Access vs excel no tengo ni papa, no lo he usado nunca, solo copy paste... google ;)
Lo de las tablas usa una consulta de datos anexados y sus asistentes a ver que adivinas, si no te sales tu solo ya miraría de extenderme más en mi explicación si me dieras más detalles
Lo de las tablas usa una consulta de datos anexados y sus asistentes a ver que adivinas, si no te sales tu solo ya miraría de extenderme más en mi explicación si me dieras más detalles