Access - utilizando los informes de access desde visual bas

hola estoy tratando de ejecutar un informe de access, pero no me funciona al ejecutarlo saca el error

(Access no puede abrir la base de datos porque falta o esta abierta en modo exclusivo por otro usuario).

tengo el siguiente codigo:

Dim objAccess As Object

Set objAccess = CreateObject("Access.Application.9")
objAccess.OpenCurrentDatabase App.Path & "\db2.mdb"
'Aplication.DoCmd.OpenReport
objAccess.DoCmd.OpenReport "informe1", acViewPreview
objAccess.Visible = True
MsgBox "haga clic en aceptar para cerrar access"
objAccess.CloseCurrentDatabase
Set objAccess = Nothing

agradezco a quien me ayude a resolver este problema, mi correo es

[email protected]

El error que estás obteniendo indica que la base de datos está abierta en modo exclusivo por otro usuario o proceso. Para solucionarlo, puedes intentar lo siguiente:

1. Verifica que la base de datos no esté abierta en Access por otro usuario o en modo exclusivo por otro proceso.

2. Asegúrate de que la ruta y el nombre de la base de datos sean correctos y estén escritos correctamente en el código.

3. Prueba a utilizar el método "OpenCurrentDatabase" con el argumento "Exclusive" establecido en False, de esta manera se abrirá la base de datos en modo compartido y no exclusivo.

4. Asegúrate de que tienes permisos suficientes para abrir la base de datos.

El código modificado quedaría así:


Espero que esto te ayude a solucionar el problema.