Cerrar base datos access

¿Podrias dar mas detalles?

Utiliza este codigo en un modulo estandar:

Option Explicit
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal
hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As
Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long

Public Const WM_CLOSE = &H10
Dim Handle As Double
Public Sub CloseProgram(ByVal Caption As String)
Handle = FindWindow(vbNullString, Caption)
If Handle = 0 Then Exit Sub
SendMessage Handle, WM_CLOSE, 0&, 0&
End Sub

y ejecutas este procedimiento en el mismo modulo:

Sub CerrarAcces()
Call CloseProgram("Microsoft Access")
End Sub


Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/




"Sonia" escribió en el mensaje
news:

Hola!!!

Al abrir un documento quiero que me cierre una base de datos de access,

como

puedo hacerlo???

Gracias.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.796 / Virus Database: 540 - Release Date: 13/11/2004