Nulstille alle tabeller

Jeg går ud fra, at de 78 tabeller er samtlige tabeller i databasen?

Du kan lægge denne funktion i et modul og blot trykke F5, når du har markøren i funktionen.

Public Function Tømtabeller()
    On Error Resume Next
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "SELECT msysobjects.Name, msysobjects.Type FROM msysobjects WHERE msysobjects.Type In (1,4,6) AND Left([Name],4)<>'Msys'", CurrentProject.Connection, adOpenStatic
    DoCmd.SetWarnings False
    Do Until rs.EOF
        DoCmd.RunSQL "Delete From [" & rs!Name & "]"
        rs.MoveNext
    Loop
    DoCmd.SetWarnings True
    rs.Close
    Set rs = Nothing
    MsgBox "Færdig!", vbInformation
End Function

Du skal muligvis køre funktionen et par gange, der kan være problemer med at slette alle tabeller, hvis der er defineret relationer mellem tabellerne. Men ved at køre den flere gange skulle den til sidst få slettet dem alle.

/Thomas

Din kode virker som den skal, man skal bare huske undere referencer at tilføje Microsoft ActiveX Data Objects recordset 2.8 library

okay, jeg havde først lavet den i DAO, men da du brugte Access 2002, så plejer Microsoft ActiveX Data Objects at være markeret (undtagen hvis du har konverteret den fra Access 97 i sin tid)

Funkytoget, lukker du ikke spm, hvis du fik løst dit problem?

pfh tak :o)

Hej. Sorry. Tak for hjælpen det var det jeg skulle bruge..

takker :o)