Sub DeleteFromAllTables()
On Error GoTo Err_DeleteFromAllTables
Dim dbCurr As DAO.Database
Dim tdfCurr As DAO.TableDef
Set dbCurr = CurrentDb()
For Each tdfCurr In dbCurr.TableDefs
If (tdfCurr.Attributes And dbSystemObject) = 0 Then
dbCurr.Execute "DELETE * FROM [" & tdfCurr.Name & "]", dbFailOnError
End If
Next tdfCurr
End_DeleteFromAllTables:
Set dbCurr = Nothing
Exit Sub
Err_DeleteFromAllTables:
MsgBox Err.Number & ": " & Err.Description
Resume End_DeleteFromAllTables
End Sub
'delete one table data code: DoCmd.RunSQL "DELETE Table1.* FROM Table1;"