Macro para ejecutar varias consultas en Access
Publicado por LUIS H (7 intervenciones) el 13/04/2016 17:22:45
Buenos días
Tengo una base de datos en Access llamada "COMPRAS" con 78 consultas, como son tantas decidi agruparlas en botones de formulario y a cada boton le asigne un grupo de consultas para que estas se ejecuten de forma automatica sin que me salga ningun tipo de mensaje con el siguiente codigo (para cada boton):
Lo que pasa es que cada vez que cambio la base de ubicacion o equipo, me toca entrar al VBA a cambiar la ruta especificada en cada boton, lo que quiero es configurar una propiedad que me asimile la ruta en donde se encuentra el archivo o la base para que no me toque cambiarlo. Pero no se como se hace
En Excel hice algo parecido con la palabra "ThisFilePath" y el nombre del archivo pero en Access no se como configurarlo
De atemano, muchas Gracias
Tengo una base de datos en Access llamada "COMPRAS" con 78 consultas, como son tantas decidi agruparlas en botones de formulario y a cada boton le asigne un grupo de consultas para que estas se ejecuten de forma automatica sin que me salga ningun tipo de mensaje con el siguiente codigo (para cada boton):
1
2
3
4
5
6
7
Private Sub Comando106_Click()
Ruta = "D:\CLIENTES\COMPRAS.accdb"
Set appaccess = GetObject(Ruta, "Access.Application")
appaccess.DoCmd.OpenQuery "09_ACT_COD_AUTO", , acReadOnly
MsgBox "Los codigos de autorización fueron actualizados correctamente en la tabla CAPTURA."
DoCmd.OpenTable "CAPTURA", acViewNormal, acEdit
End Sub
Lo que pasa es que cada vez que cambio la base de ubicacion o equipo, me toca entrar al VBA a cambiar la ruta especificada en cada boton, lo que quiero es configurar una propiedad que me asimile la ruta en donde se encuentra el archivo o la base para que no me toque cambiarlo. Pero no se como se hace
En Excel hice algo parecido con la palabra "ThisFilePath" y el nombre del archivo pero en Access no se como configurarlo
De atemano, muchas Gracias
Valora esta pregunta
0