Programación General > Visual Basic 6.0 e inferiores

 Ayuda Para Trasferir Datso De Un Xls A Un Mdb

<< < (2/2)

cpmario:
En el evento Unload de la forma coloca las llamadas a subrutinas


--- Código: Text ---Private Sub Form_Unload(Cancel As Integer)    Call CloseAllDatabases    Call UnloadAllForms    EndEnd Sub  
Lo siguiente lo colocas en un módulo BAS.  Esta rutina CloseAllDatabases es para DAO


--- 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    NextEnd Sub 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   LoopEnd Sub  
 :hola:

Makko:
Gracias... lo de cerrar todo... me sirvio a mi tb.
Saludos amigo.

Navegación

[0] Índice de Mensajes

[*] Página Anterior