Code to delete records in a Table (1 Viewer)

wan2fly99 · Feb 10, 2005

Can somebody point me in the right direction
for some VBA code to delete all records
in a table. I know I can create a macro and call the macro,
but like to do it in VBA

Thanks for any help

daveUK · Feb 10, 2005

If you want to delete ALL the records use the following

Code:

Docmd.RunSQL "DELETE * FROM NameOfTable"

If you want to supress the warning message use

Code:

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM NameOfTable"
DoCmd.SetWarnings True

HTH

Rob.Mills · Feb 10, 2005

You can either create a delete query and then call the docmd.openquery in VBA

or you can run the Docmd.RunSql "Type the Sql in quotes"

wan2fly99 · Feb 10, 2005

Thanks guys. Here I was trying to do a recordset and some other
weird stuff

Help4Access · Oct 1, 2011

Taken another step further:
----------------------------
Function TruncateTable(sTableName As String) As String
' Purpose: Deletes all rows.
' Author: Help4Access.com
'
' Test: ?TruncateTable("USys_temp_RuleExport")

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " & sTableName & ""
DoCmd.SetWarnings True

TruncateTable = SUCCESS

End Function

warzer · Apr 18, 2017

I have same issue and test your suggest code and solved ,,

tanks for all

warzer hassan

Code to delete records in a Table (1 Viewer)

wan2fly99

Registered User.

daveUK

Registered User.

Rob.Mills

Registered User.

wan2fly99

Registered User.

Help4Access

New member

warzer

New member

Similar threads

Users who are viewing this thread