Compact Backend

Skal prøve at finde noget kode til komprimering - vender tilbage...

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

Because the backend is linked into the frontend it will very likely NOT be possible to compact the backend because it is in use. So its an idea to set a scheduler job up to compact the backend when it is not in use.

Her et eksempel anvendt i Word-VBA:

Sub Start()
Dim ts As String
    xsti = Tools.xsti
    testOmMappeFindes xsti + SikKopDB
   
    kilde1 = xsti + "db_løn.mdb"                    'p.t. database
    kilde2 = xsti + "ny_db_løn.mdb"                'arbejdskopi
   
    lukDB
   
    ts = Format(Now, "dd-mm-yy hhmmss")
    FileCopy kilde1, xsti + SikKopDB + "Kopi_" + ts + "_" + "DB_Løn.mdb" 'Skab en sikkerhedskopi
   
    ShowSize kilde1, "Før komprimering"
   
    If Dir(kilde2) <> "" Then _
      Kill kilde2                                  'slet arbejdsDB hvis eksisterer
     
    DBEngine.CompactDatabase kilde1, kilde2, , , ";pwd=" & Tools.xpw
   
    ShowSize kilde2, "Efter komprimering"
   
    Kill kilde1                                    'slet oprindelige db
    FileCopy kilde2, xsti + "DB_Løn.mdb"            'kopi ny til oprindeligt navn
    Kill kilde2                                    'slet arbejdsDB
End Sub

Supertekst > med nogle minimale tilrettelser, virker det i Access :-)

Takker ... giv lige et svar

Fint - og selv tak