This example shows you how to clean up tables in MS Access 2000. Please note: This only functions from within Access, since it uses the DoCmd function.

Option Compare Database

Private Sub Form_Activate()
    DoCmd.Restore
    [boxTables].RowSourceType = "Value List"
    For Each Item In Application.CurrentDb.tabledefs
        [boxTables].RowSource = [boxTables].RowSource & ";" & Item.Name
    Next
End Sub

Create an empty form with two controls, a combobox named "boxTables" and a button named "btnClearTable", then add the next code:

Option Compare Database

Private Sub btnClearTable_Click()
    Dim strSQL As String
    For Each Item In Application.CurrentDb.tabledefs
        DoCmd.SetWarnings warningsoff
        If Item.Name = [boxTables].Value Then
            strSQL = "DELETE " & [boxTables].Value & ".* FROM " & _
                [boxTables].Value & ";"
            DoCmd.RunSQL strSQL
        End If
        DoCmd.SetWarnings warningson
    Next
End Sub