Compartir a través de

Método Application.CloseCurrentDatabase (Access)

  • Artículo

Use el método CloseCurrentDatabase para cerrar la base de datos actual, ya sea una base de datos de Microsoft Access o un proyecto de Access (.adp) desde otra aplicación que haya abierto una base de datos a través de Automation.

Sintaxis

expresión. CloseCurrentDatabase

expresión Variable que representa un objeto Application.

Valor devuelto

Nothing

Comentarios

Por ejemplo, podría utilizar este método desde Microsoft Excel para cerrar la base de datos actualmente abierta en la ventana Microsoft Access antes de abrir otra base de datos.

El método CloseCurrentDatabase es útil cuando se ha abierto una base de datos Microsoft Access desde otra aplicación mediante automatización. Después de crear una instancia de Microsoft Access desde otra aplicación, también debe crear una base de datos nueva o especificar una base de datos existente para abrirla. Esta base de datos se abre en la ventana de Microsoft Access.

Si utiliza el método CloseCurrentDatabase para cerrar la base de datos que está abierta en la instancia activa de Microsoft Access, puede abrir una base de datos diferente sin tener que crear otra instancia de Microsoft Access.

Ejemplo:

En el ejemplo siguiente se abre una base de datos de Microsoft Access desde otra aplicación a través de Automation, se crea un nuevo formulario y se guarda y, a continuación, se cierra la base de datos.

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

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

' Enter the following in the Declarations section of the module. 
Dim appAccess As Access.Application 

Sub CreateForm() 
 Const strConPathToSamples = "C:\Program Files\Microsoft Office\Office12\Samples\" 
 
 Dim frm As Form, strDB As String 
 
 ' Initialize string to database path. 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Create new form. 
 Set frm = appAccess.CreateForm 
 ' Save new form. 
 appAccess.DoCmd.Save , "NewForm1" 
 ' Close currently open database. 
 appAccess.CloseCurrentDatabase 
 Set AppAccess = Nothing 
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.