Library code snippets

Clearing tables in Access

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

Comments

  1. 01 Jan 1999 at 00:00

    This thread is for discussions of Clearing tables in Access.

Leave a comment

Sign in or Join us (it's free).

 tlosekoot I was born in a small town in Holland, and currently live in Poland. I'm fluent in English, German, Polish and Dutch, speak a bit of French and Russian. After finishing Information Technologies in ...

We'd love to hear what you think! Submit ideas or give us feedback