Delete all records from a work table in an Access Project

[databaser]

I need to truncate all records from a work table that reside in an Access Project database. This works but there has to be a faster way.

Strsql = "select * From DataWork"
tblVendorSalesRpt.Open Strsql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If Not tblVendorSalesRpt.EOF Then
Do
tblVendorSalesRpt.Delete
tblVendorSalesRpt.MoveNext
Loop Until tblVendorSalesRpt.EOF
End If
Set tblVendorSalesRpt = Nothing

 

[PWise]

Dim cnnstr As String
Dim mycmd As ADODB.Command
Dim mycnn As ADODB.Connection
Set mycmd = New ADODB.Command
Set mycnn = New ADODB.Connection
mycnn.Open CurrentProject.Connection
mycmd.ActiveConnection = mycnn
mycmd.CommandType = adCmdText
mycmd.CommandText = "truncate table DataWork"
mycmd.Execute

 

[PHV]

And what about this ?
CurrentProject.Connection.Execute "DELETE FROM DataWork"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886