Compact og Repair

Public Sub KomprimerAccess(DBPath As String)

Dim fso As Object
Dim engine As Object
Dim tmpFile As String
Dim tmpExt As String

If FileExist(DBPath) Then
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set engine = CreateObject("DAO.DBEngine.40")
   
    On Error Resume Next
    tmpFile = Left$(DBPath, Len(DBPath) - 4)
    tmpExt = Right$(DBPath, 4)
    tmpFile = tmpFile & " 2" & tmpExt
    engine.CompactDatabase DBPath, tmpFile
    fso.DeleteFile DBPath
    fso.MoveFile tmpFile, DBPath
   
    Set fso = Nothing
    Set engine = Nothing
Else
    'Filen eksisterer ikke og kan derfor ikke komprimeres
End If
End Sub

Hvis du gør det ovre fra Visual Basic, skal du så lige have reference til DAO biblioteket.

Læg mærke til, at man KUN kan komprimere over i en anden fil, hvorefter man så sletter den gamle og omdøber den nye til navnet på den gamle!
Så rettighederne skal lige være på plads.

Lige gyldig hvordan du end går så kan du IKKE lave compact/repair på den db du har åben uden at lukke den ned !  Gør i stedet det at du sætter din Access 2000 db til at compacte når den lukkes.

Du kan lave noget kode der kan compacte en evt. backend fil, men det kræver at du er alene bruger i det øjeblik du gør det.

Koden til det er ikke så svær - det der er opgaven er at finde ud af om du er alene på.

hi hugo
This cant be such a big problem "det der er opgaven er at finde ud af om du er alene på." If you can open exclusive then your alone!

That is why I call it 'opgaven'  It isn't a problem but it is the part that needs most line of code :-)