Komprimering af åben database

Er det inde i selve access du vil gøre det? eller er det fra et program?

Det hele foregår i Access

CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction

Dette kode virker fint... Det komprimere databasen(Det kan dog være at Navnet på controls'ne skal ændres hvis du bruger en dansk access

glemte at skrive at denne kode kun fungere fra access 2000 og frem efter

Det er jo en fornøjelse ... :o)

Takker

Det var så lidt

Var måske en anelse hurtig på aftrækkeren ... den kan godt nok afvikles selvstændigt, men ikke sammen med den øvrige modulkode ...

Øhhhh ... har du en metode hvormed den kan afvikles indeni en eksisterende modulkode ??

Løsningen som den er nu, er uanvendelig

Mens man kører VBA/makro kan man ikke compacte den samme database.

Se det vidste jeg jo i forvejen ... :o) ...
Det er jo derfor løsningen er uanvendelig ...

Jeg havde nok valgt at skrive kode til at indsætte data i databasen via en VB applikation, syntaxen er næsten lige som VBA og der kan man netop anvende alle mulighederne for komprimere databasen.

Men arbejdsgiver accepterer ikke andre udviklingsapplikationer :o(

Så bør du prøve at lave en løsning, hvor alt data og tabler ligger i 1 fil, mens alt kode ligger i en anden access-fil.

Og så bør du kigge på funktionen compactRepair i VBA

You can use this to compact another dBFunction CompactDb(strDbPath As String) As Boolean

    ' This procedure creates a backup copy of a database
    ' and then compacts it.
    '
    ' Arguments:
    '  strDbPath: The path to the database to be compacted.
    '
    ' Returns:
    '  A Boolean value indicating success or failure.
   
    Dim dbs As Database
    Dim intLength As Integer
    Dim varPosition As Variant
    Dim strDbTemp As String, strDbCompacted As String
    Dim strDbBackup As String
    Dim strMsg As String
    Const conPermissionDenied As Integer = 70
   
    On Error GoTo Err_CompactDb
    ' Initialize string for message.
    strMsg = "Database " & strDbPath & " cannot be opened exclusively. " _
        & "The database may have already been opened by you or another user."

    ' Compact the database to a temporary file.
    intLength = Len(strDbPath)
    varPosition = InStr(strDbPath, ".mdb")
    If varPosition > 0 Then
        strDbTemp = Left(strDbPath, varPosition - 1)
       
        ' Create backup file before compacting.
        strDbBackup = strDbTemp & ".bak"
        FileCopy strDbPath, strDbBackup
       
        ' Check whether database can be opened exclusively.
        ' This line calls a function defined in Chapter 2.
        If Not CanOpenDbExclusively(strDbPath) Then
            MsgBox strMsg
            GoTo Exit_CompactDb
        End If
       
        ' Compact to new file.
        strDbCompacted = strDbTemp & "Compacted.mdb"
        DBEngine.CompactDatabase strDbPath, strDbCompacted
       
        ' Delete uncompacted database.
        Kill strDbPath
       
        ' Rename compacted database to original name.
        Name strDbCompacted As strDbPath
    End If
    CompactDb = True
   
Exit_CompactDb:
    On Error Resume Next
    dbs.Close
    Set dbs = Nothing
    Exit Function
   
Err_CompactDb:
    If Err = conPermissionDenied Then
        MsgBox strMsg
    Else
        MsgBox "Error " & Err & ": " & vbCrLf & Err.Description
    End If
    CompactDb = False
    Resume Exit_CompactDb
End Function

Virker den funktion også hvis man kører kode fra den samme Database?

I dont think so

http://www.mvps.org/access/modules/mdl0030.htm

Godt link der, Terry :-)  Det burde få løst jensens problemer.
Det er dog træls at microsoft har været så usmarte at man ikke kan kompimere en åben DB