I use DAO 3.6 object library and want to compact the MDB by using the following codes, but the "Type mismatch" error message occurs.. anybody can help me please ..
Private Sub CompactMDB()
Dim mApp as String
Dim mCompactApp as String
mApp = "C:\TeCS.MDB"
mCompactApp = "C:\MyCompact.MDB"
Dim errLoop As Error
Dim IsFile As Boolean
On Error GoTo Err_Compact
DBEngine.CompactDatabase mApp, mCompactApp, , dbEncrypt + dbVersion70
On Error GoTo 0
Exit Sub
Err_Compact:
For Each errLoop In DBEngine.Errors
mErr = True
Message "Compact unsuccessful!" & vbCr & _
"Error number: " & errLoop.Number & _
vbCr & errLoop.Description
Next errLoop
End Sub
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement