Método Application.OpenCurrentDatabase (Access)
Use el método OpenCurrentDatabase para abrir una base de datos de Microsoft Access existente como base de datos actual.
Sintaxis
expresión. 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 controla Microsoft Access a través de Automation, anteriormente denominada Automatización OLE. Por ejemplo, puede usar el método OpenCurrentDatabase de Microsoft Excel para abrir la base de datos de ejemplo Northwind.mdb en la ventana de Access. Después de crear una instancia de Access desde otra aplicación, también debe crear una base de datos nueva o especificar una base de datos determinada para abrirla. Esta base de datos se abre en la ventana De acceso.
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 Open de Objetos de datos ActiveX (ADO) o el método OpenDatabase del objeto de acceso a datos (DAO). El método OpenCurrentDatabase abre una base de datos en la ventana Access. El método OpenDatabase de DAO devuelve una variable de objeto Database , que representa una base de datos determinada, pero no abre realmente 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 a través de Automation 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, también se cierra la instancia de Access que representa. 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.