标题: 如何删除access所有表中记录？ [打印本页] 作者: 邓超群 时间: 2013-7-4 10:30 标题: 如何删除access所有表中记录？ 清空所有表中全部的数据作者: 淡写轻描 时间: 2013-7-4 12:08
是清空所有表中数据记录,不是清空选择单个表的数据,大家慎用,一次性删除所有表中的记录，代码如下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