|
General |
| 6.190 Compattatore MDB esterno tramite Command(/cmd) |
| Alessandro Baraldi |
|
Sfrutta il passaggio del parametro Command che viene letto all'apertura dell'applicativo tramite l'esecuzione della Macro AUTOEXEC ----> =Compatta() Per utilizzarlo mettere la seguente funzione nel proprio applicativo e richiamarla così: Riapre l'applicativo chiamante dopo il COMPACT
Call DoCompact ("C:\Programmi\DB_Compact.mdb",True)
Non riapre l'applicativo chiamante dopo il COMPACT
Call DoCompact ("C:\Programmi\DB_Compact.mdb",false)
Public Function DoCompact(PathCompact as string, ReStart As Boolean)
Dim strCompacter As String
Dim strExePath As String
strExePath = SysCmd(acSysCmdAccessDir) & "msAccess.Exe"
strCompacter = Chr$(34) & PathCompact & Chr$(34) _
& " /cmd" & " " & CurrentDb.Name
If ReStart = True Then
strCompacter = strCompacter & ";True"
Else
strCompacter = strCompacter & ";False"
End If
Call Shell(strExePath & " " & strCompacter, vbNormalFocus)
End Function
Download: |
