Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 560 fois - Téléchargée 49 fois
Function Compactdatabase(dbpfad As String, dbname As String) As Boolean Dim fs As New FileSystemObject Dim testcopy As Boolean Dim db1 As String Dim db2 As String On Error GoTo compactdb_error If Dir(dbpfad & "\dbtemp.mdb") <> "" Then Kill dbpfad & "\dbtemp.mdb" 'compression db1 = UCase(dbpfad & "\" & dbname) db2 = UCase(dbpfad & "\dbtemp.mdb") DBEngine.Compactdatabase db1, db2, , dbEncrypt + dbVersion40 'Jet version 'renome fs.CopyFile db2, db1 Compactdatabase = True GoTo ende compactdb_error: Compactdatabase = False MsgBox (Err.Description) ende: End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.