Delete all records

[DavidRock]

Can someone give me an example piece of VBA code that will simply delete all of the records in an Access table (empty it)?

Thanks,
David

 

[DougP]

Dim Conn2 As ADODB.Connection
Dim Rs1 As ADODB.Recordset

Dim SQLCode As String

Set Conn2 = CurrentProject.Connection ' <<<<Note same as CurrentDb

Set Rs1 = New ADODB.Recordset

SQLCode = &quot;Delete * From yourTablename&quot;
Rs1.Open SQLCode, Conn2, adOpenStatic, adLockOptimistic

' close it this way
Set rs1 = nothing
Set Conn2 = nothing
DougP, MCP

 

[DavidRock]

Thank you - exactly what I needed.