| Pregunta: | 21088 - ABRIR FORMULARIO ACCESS DESDE WORD |
| Autor: | emilio botella |
| El resultado es sólo un mensaje de base de datos ya está abierta, al segundo clic sobre la macro. Pero no se visualiza el formulario access.
Pretendo usar el siguiente código para ello: Dim applicAccess As New Access.Application Sub macabrirform() Const cadDB = "c:\WINNT\Profiles\Emilio\Escritorio\mic\pec\pec2\Saica_pec2.mdb" applicAccess.OpenCurrentDatabase cadDB applicAccess.DoCmd.OpenForm "Principal" End Sub | |
| Respuesta: | Miguel Arguedas |
| Excelente colega. No creo que tengas nada malo... lo que sucede es que te hace falta un tantito para que funcione. Y te dice que ya esta abierta pues si que lo esta. Entonces puedes crear otro Sub que la cierre: applicAccess.CloseCurrentDatabase...
Dim applicAccess As New Access.Application Sub macabrirform() ' Indicar la ruta de la Base de datos. Const CadDB = "c:\WINNT\Profiles\Emilio\Escritorio\mic\pec\pec2\Saica_pec2.mdb" ' Abrir Ms Access y la base de datos. applicAccess.OpenCurrentDatabase CadDB ' Hacer visible la base de datos. applicAccess.Visible = True ' Abrir el formulario. applicAccess.DoCmd.OpenForm "Principal" End Sub Mucha suerte. | |