如何删除access所有表中记录？

清空所有表中全部的数据

是清空所有表中数据记录,不是清空选择单个表的数据,大家慎用,一次性删除所有表中的记录，代码如下Function ClearAllData()    Dim rst As Object    DoCmd.SetWarnings False    Set rst = CreateObject("ADODB.Recordset")    rst.Source = "Select [Name] FROM MSysObjects Where Type=1 AND Not[Name] Like 'MSys%'"    rst.Open , CurrentProject.Connection    Do Until rst.EOF        DoCmd.RunSQL "Delete FROM [" & rst![Name] &"]"        rst.MoveNext    Loop    rst.Close    DoCmd.SetWarnings TrueEnd Function