Ejecutar base de datos de Access 2003
Publicado por Manuel Pedrero Romano (3 intervenciones) el 02/08/2007 10:48:55
A ver si alguien puede ayudarme...
Tengo este código, en Visual Basic, para ejecutar una base de datos de Access 2003:
On Error Resume Next
Dim AcApp
AcApp = CreateObject("Access.Application")
If AcApp.Version >= 11 Then
'Esto pone la seguridad de macros a nivel bajo, para que no salgan los mensajes
AcApp.AutomationSecurity = 1 'msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase(RutaBaseDatos & "\" & BaseDatos)
'Esto amplia la ventana de Access
AcApp.DoCmd.RunCommand(10)
El código esta en un boton.
En un ordenador tengo instalado el Runtime de Access 2003, pero no carga la base de datos al ejecutar el codigo.
¿A alguien le ha pasado esto alguna vez?, creo que es porque me falta alguna libreria con control ActiveX de Access 2003 aparte del Runtime, ¿Alguien podria decirme porque me sucede esto?, ¿me falta algo?
Por cierto, en otro ordenador tengo instalado el Office con Access 2003, y sin embargo si carga la base de datos correctamente, es por esto que pienso que algo me falta.
Gracias y saludos todos...
Tengo este código, en Visual Basic, para ejecutar una base de datos de Access 2003:
On Error Resume Next
Dim AcApp
AcApp = CreateObject("Access.Application")
If AcApp.Version >= 11 Then
'Esto pone la seguridad de macros a nivel bajo, para que no salgan los mensajes
AcApp.AutomationSecurity = 1 'msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase(RutaBaseDatos & "\" & BaseDatos)
'Esto amplia la ventana de Access
AcApp.DoCmd.RunCommand(10)
El código esta en un boton.
En un ordenador tengo instalado el Runtime de Access 2003, pero no carga la base de datos al ejecutar el codigo.
¿A alguien le ha pasado esto alguna vez?, creo que es porque me falta alguna libreria con control ActiveX de Access 2003 aparte del Runtime, ¿Alguien podria decirme porque me sucede esto?, ¿me falta algo?
Por cierto, en otro ordenador tengo instalado el Office con Access 2003, y sin embargo si carga la base de datos correctamente, es por esto que pienso que algo me falta.
Gracias y saludos todos...
Valora esta pregunta
0