La Web del Programador: Comunidad de Programadores
 
    Pregunta:  13432 - CERRAR UNA DB JET 3.51
Autor:  DAVID LOPEZ
Hola amigos, el problema que tengo es que en algunos forms en los cuales accedo a una DB luego de salir de éstos la DB me queda bloqueada, aún cuando cierre todas las variables (la que uso para abrir la DB y las otras para los recordsets). El siguiente código también me bloquea la DB dejándola inacesible para por ejemplo compactarla. Por favor alguna ayuda. Saludos.

DAVID

Private Sub mnuInformesClientes_Click()
frmResumenCompras.CRControl.DataFiles(0) = App.Path & "\Farmacia.mdb"
frmResumenCompras.CRControl.ReportFileName = App.Path & "\rptListadoClientes.rpt"
frmResumenCompras.CRControl.WindowState = crptMaximized
frmResumenCompras.CRControl.PrintReport
End Sub

  Respuesta:  Edgard Cruz
Primero que todo mira si no tenes declarada alguna variable Global u publica de tipo Database, si es asi tendrás que cerrarla por ejemplo

NombreDeVariableTipoDataBase.Close

Esta es la unica manera con la cual me ha sucedido esto a mi, lo que yo hago es que en la rutina que compacta la base de datos cierro la variable global, compacto y la vuelo a abrir