Access: Delete all records in a Table

[gheyman]

I have a situation where I want to delete all records in a table - I don't want to delete the table - just the records.

Is there a way to do this in VBA (click button event)

My table name is "ModelGeneral_vluItem1"

Thanks! I really appreciate the help.

 

[xenou]

Running a delete query in the button code is a simple option:

Either:

Sub Foo()

    DoCmd.SetWarnings False
    DoCmd.RunSQL "delete * From [Table2];"
    DoCmd.SetWarnings True

End Sub

Or:

Sub Bar()

On Error GoTo ErrHandler:
CurrentDb.Execute "delete * From [Table2];", dbFailOnError

MyExit:
    Exit Sub

ErrHandler:
MsgBox "An error occurred."

End Sub

I usually use the former because I maintain and use my own databases so the chances of error are very low (meaning, I've never had a problem deleting rows from a table). The latter might be better if you require absolute certainty about the reliability of the code or have other users that are working with the database.