Autor Tema: Como Elimianr Culquier Objeto Activo, (Leído 1547 veces)

seba_m · « **en:** Miércoles 25 de Enero de 2006, 19:21 »

Hola a todos, alguien sabria decirme como puedo saber que objetos estan aun activos para poder eliminarlos antes de salir de la aplicación, o lo que seria mejor como eliminar cualquier objerto que este actuvo sin importar cual.

Gracias

cpmario

Usa este código

Código: Text

Sub UnloadAllForms()
   Dim Frm As Integer
   Frm = Forms.Count
 
   Do While Frm &#62; 0
      Unload Forms(Frm - 1)
      If Frm = Forms.Count Then Exit Do
      Frm = Frm - 1
   Loop
End Sub
 
 

seba_m

Joya, pero pregunto, si algun recordset de algun formulario estaba activo o abierto, lo elimina también P?

GRacias

cpmario

Cierra todo, pero si te quieres asegurar de cerrar todas bases de datos antes de cerrar ventanas usa esto:

Código: Text

Sub CloseAllDatabases()
    ' Close out db objects
    ' and release all memory    '
    On Error Resume Next
    Dim wsObject As Workspace
    Dim dbObject As Database
    Dim rsObject As Recordset
    
    For Each wsObject In Workspaces
        For Each dbObject In wsObject.Databases
            For Each rsObject In dbObject.Recordsets
                rsObject.Close
                Set rsObject = Nothing
            Next
            dbObject.Close
            Set dbObject = Nothing
        Next
        wsObject.Close
        Set wsObject = Nothing
    Next
 End Sub
 
 

Lo uso con DAO, no sé si funciona con ADO.

seba_m

Gracias, lo voy a probar con ADO

SoloCodigo

Autor Tema: Como Elimianr Culquier Objeto Activo, (Leído 1547 veces)

seba_m

Como Elimianr Culquier Objeto Activo,

cpmario

Re: Como Elimianr Culquier Objeto Activo,

seba_m

Re: Como Elimianr Culquier Objeto Activo,

cpmario

Re: Como Elimianr Culquier Objeto Activo,

seba_m

Re: Como Elimianr Culquier Objeto Activo,