Slet data i db

You can delete records using something like this

DELETE FROM YourTable WHERE dato <= DateAdd("d",-30,Date())

You could use this in the form open even of the first form you open

DoCmd.RunSQL "DELETE FROM YourTable WHERE dato <= DateAdd('d',-30,Date())"

Det alene gør bare ikke databasen mindre - det kræver at du også komprimerer den og det er straks mere drilsk at gøre via kode.

Jeg har en overvågningsrutine der holder øje med størrelsen på nogle databaser og komprimerer dem hvis de overskrider en bestemt størrelse. Du får lige koden her:

Public Function Komprimer(ByVal vsFil As String, ByVal vlThreshold As Long)
' Formål    : Foretager en komprimering af den angivne fil, hvis den har overskredet størrelsen
'            angivet ved vlThreshold
' Parametre :
'  vsFil                : Navnet på filen der skal komprimeres
'  vlThreshold          : Den maksimale størrelse. Er filen mindre end Threshold skal der
'                          ikke gøres noget
' Dato      : 9. juli 2001
Dim oFS As FileSystemObject
Dim oFile As File
Dim lOrgSize As Long
Dim lNewSize As Long

  On Error GoTo errHandle

  Set oFS = New FileSystemObject
 
  Set oFile = oFS.GetFile(vsFil)
  lOrgSize = oFile.Size
 
  Set oFile = Nothing ' For at sikre at filen ikke er åben
 
  If lOrgSize > vlThreshold Then
    If Dir(vsFil & "_cmp") <> "" Then
      Kill vsFil & "_cmp" ' Denne oprydning er nødvendig hvis komprimeringen gik galt sidst
    End If
    DBEngine.CompactDatabase vsFil, vsFil & "_cmp"  ' Selve komprimeringen
    oFS.MoveFile vsFil, vsFil & "_tmp" ' Den oprindelige fil flyttes til en tmp-fil
    oFS.MoveFile vsFil & "_cmp", vsFil ' Den komprimerede fil ændres til at være den aktive
    Kill vsFil & "_tmp" ' Temp-filen slettes
  Else
    ' Filen skal ikke komprimeres - størrelsen er ikke overskredet. Ingen besked videre
    ' bare forlad
    Set oFS = Nothing
    Exit Function
  End If
 
  ' Komprimeringen er på plads og der skal ikke håndteres fejl. Opstår der fejl herefter
  ' gør det ikke så meget; der kommer bare ikke nogen statusmail
  On Error Resume Next
   
  Set oFile = Nothing
  Set oFS = Nothing
 
 
  Exit Function
 
errHandle:

  ' Indsæt fejlhåndtering 
End Function


Jeg har fjernet noget kode til afsendelse af adviserende mails, så koden ser lidt mishandlet ud.

Vær opmærksom på at komprimeringen skal foregå fra en anden database.

jesperthomsen: Hvor skal jeg skrive navnet på db filen der skal komprimeres og hvor skal jeg skrive maksimal størrelsen på filen?

Jeg kan se at jeg skal skrive et eller andet med vsFil og vlThreshold, spørgsmålet er bare lige hvad?

Det skal du i kaldet til rutinen. Kald den med Komprimer (<Databasenavn>, <MaxStørrelse>)

Rutinen kan ikke køre hvis databasen er åben - du skal have fuld adgang til den.

thanks