Método Application.OpenCurrentDatabase (Access)

Use el método OpenCurrentDatabase para abrir una base de datos existente de Microsoft Access como la base de datos actual.

Sintaxis

más sencilla.OpenCurrentDatabase (filepath, Exclusive, bstrPassword)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
filepath	Obligatorio	String	Nombre de un archivo de base de datos existente, incluidos el nombre de la ruta de acceso y la extensión del nombre de archivo.
Exclusive	Opcional	Boolean	Especifica si quiere abrir la base de datos en modo exclusivo. El valor predeterminado es False, que especifica que la base de datos se debe abrir en modo compartido.
bstrPassword	Opcional	String	Contraseña para abrir la base de datos especificada.

Valor devuelto

Nothing

Comentarios

Use este método para abrir una base de datos desde otra aplicación que controle Microsoft Access a través de la automatización, anteriormente denominada automatización OLE. Por ejemplo, puede utilizar el método OpenCurrentDatabase de Microsoft Excel para abrir la Northwind.mdb base de datos de ejemplo en la ventana de Access. Después de crear una instancia de Access desde otra aplicación, también debe crear una nueva base de datos o especificar una base de datos determinada para abrir. Esta base de datos se abre en la ventana de Access.

Si ya ha abierto una base de datos y desea abrir otra en la ventana de Access, puede usar el método CloseCurrentDatabase para cerrar la primera base de datos antes de abrir otra.

Nota:

Use el método OpenAccessProject para abrir un proyecto de Access existente (.adp) como base de datos actual.

Nota:

No confunda el método OpenCurrentDatabase con el método abierto de ActiveX Data Objects (ADO) o el método OpenDatabase de objetos de acceso a datos (DAO). El método OpenCurrentDatabase abre una base de datos en la ventana de Access. El método OpenDatabase de DAO devuelve una variable de objeto Database , que representa una base de datos determinada, pero que en realidad no abre esa base de datos en la ventana de Access.

Ejemplo

En el ejemplo siguiente se abre una base de datos de Access desde otra aplicación mediante la automatización y, a continuación, se abre un formulario en esa base de datos.

Se puede especificar este código en un módulo Visual Basic en cualquier aplicación que pueda actuar como componente COM. Por ejemplo, puede ejecutar el código siguiente desde Excel, Visual Basic o Access.

Cuando la variable que apunta al objeto Application sale del ámbito, la instancia de Access que representa también se cierra. Por tanto, esta variable se debe declarar en el nivel de módulo.

' Include the following in Declarations section of module. 
Dim appAccess As Access.Application 
 
Sub DisplayForm() 
 
 Dim strDB as String 
 
 ' Initialize string to database path. 
 Const strConPathToSamples = "C:\Program " _ 
 & "Files\Microsoft Office\Office11\Samples\" 
 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = _ 
 CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Open Orders form. 
 appAccess.DoCmd.OpenForm "Orders" 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.