如何将表中的ID也归零

遍历所有表，并删除所有数据

遍历表的所有字段，如果是自增长，设置为从1开始

大概的代码为：

    For i = 0 To CurrentDb.TableDefs.Count - 1
        If CurrentDb.TableDefs(i).Name Like "*Sys*" = False Then
            CurrentDb.Execute "delete * from " + CurrentDb.TableDefs(i).Name
            For j = 0 To CurrentDb.TableDefs(i).Fields.Count - 1
                If (CurrentDb.TableDefs(i).Fields(j).Type = 4) Then
                    CurrentDb.Execute "Alter TABLE " + CurrentDb.TableDefs(i).Name + " Alter COLUMN " + CurrentDb.TableDefs(i).Fields(j).Name + " COUNTER (1, 1)"
                End If
            Next j
        End If
    Next i