Private Function diretel.frm_principal.mnucompactar_Click.13.txt

Calls out:


Exit Proc
MsgBox
frm_principal.unk_18af0.0
_B_var_Str
FileLen
App
Kill

Incoming calls for diretel.frm_principal.mnucompactar_Click.13.txt


Decompiled source code follows:

On Error Resume Unknown
frm_principal.MousePointer = 11
Data1.Database.Close
Global4304912.Close
Global4306452.CompactDatabase Global4304924,App.Path & "\\temp.mdb",Default,Default,";pwd=josejoaquin"
Kill Global4304924
App.Path
Set Global4304912 = Global4306452.Workspaces.Item(0).OpenDatabase(Global4304924,False,False,";pwd=josejoaquin")
Set Global4304916 = Global4304912.OpenRecordset("varios",2)
Data1.DatabaseName = Global4304924
FormVar1 = "SELECT * FROM directorio "
frm_principal.unk_18af0.0
frm_principal.MousePointer = 0
MsgBox "Compactación realizada satisfactoriamente",VBINFORMATION
MsgBox "Tamaño anterior : " & Str(FileLen(Global4304924)) & vbCrLf & "Tamaño nuevo : " & Str(FileLen(Global4304924)),VBINFORMATION
Exit Proc
End Sub