Hej!!

Jag tänkte kolla om det är någon som vet om man kan komprimera en Access databas med vb kod?
Om inte hur kan man annars se till att databasen då och då komprimeras?

Tack för hjälpen!!

//Kristoffer

Jag har skapat en funktion för ändamålet:

<code>
Function kompr(sokvag As String)
On Error GoTo errorrepkomp

DBEngine.RepairDatabase sokvag

If Dir(sokvag & ".bak") <> "" Then MsgBox "Filen " & sokvag & ".bak finns redan!", 16: End

DBEngine.CompactDatabase sokvag, sokvag & ".bak"

If Dir(sokvag & ".bak") = "" Then MsgBox "Något gick snett vid komprimeringen...", 16: End

Kill sokvag

FileCopy sokvag & ".bak", sokvag

Kill sokvag & ".bak"

Exit Function
errorrepkomp:
MsgBox Error$, 48: End
End Function
</code>

För att det ska fungera måste man skapa en referens till DAO

/Johan

Det verkar som om radbrytningarna inte fungerar efter code-taggen...