Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub DeleteALL()
Set db = CurrentDb
With db
For Each tbl In .TableDefs
If Not Mid(tbl.Name, 1, 4) = "MSYS" Then
DoCmd.RunSQl "Delete * from " & tbl.Name & ";'
Next tbl
End With
Set db = Nothing
End Sub