Access如何限制表最多存100条记录 新增时自动删除最旧记录

核心思路是通过自增主键定位新旧记录，在写入新记录后自动清理超量旧数据，无需依赖查询返回限制，也不会出现容量持续增长问题。

前置准备 #

给History表新增1个字段：

• 字段名设为LogID，类型选自动编号（AutoNumber），设为表主键。该字段由Access自动维护，随新记录插入持续递增，不会重复，比时间戳更适合判断记录先后顺序，可避免同时间戳下排序错乱导致的误删问题。

方案1：嵌入现有VBA写入逻辑（轻量改造，适配你当前已写的代码） #

直接在你已有的.AddNew写入逻辑后追加清理SQL即可，改造后的完整逻辑示例：

' 原有写入逻辑，可直接复用你已写的代码
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("History", dbOpenDynaset)
With rs
    .AddNew
    !User = yourLoginUserVar ' 替换为你从登录页获取的用户名变量
    !ActionDate = Now() ' 替换为你实际存储操作时间的字段名
    ' 如果你还有其他要存储的操作字段，按原有逻辑继续赋值即可
    .Update
    .Close
End With
Set rs = Nothing

' 追加的容量控制逻辑
CurrentDb.Execute _
    "DELETE FROM History " & _
    "WHERE LogID NOT IN ( " & _
    "    SELECT TOP 100 LogID FROM History ORDER BY LogID DESC " & _
    ")", dbFailOnError

逻辑说明 #

每次插入新记录后，子查询会按自增ID倒序取出最新的100条记录ID，删除所有不在这个范围内的旧记录。由于每次仅插入1条新记录，清理操作最多只会删除1条最早的记录，执行耗时为毫秒级，无性能损耗。

方案2：表级数据宏（更高可靠性，不依赖前端VBA） #

如果你的Access版本是2010及以上，可直接将清理逻辑绑定到表的插入事件上，无论通过VBA、手动编辑、其他查询写入数据，都会自动触发清理，彻底避免漏加清理逻辑导致的容量超限问题：

1. 右键导航窗格中的History表，打开设计视图
2. 点击顶部菜单栏「设计」选项卡下的「创建数据宏」，选择「插入后」事件
3. 在宏设计界面添加「运行SQL语句」操作，SQL文本填入上述DELETE语句
4. 保存宏和表即可生效

注意事项 #

• 不要用操作时间戳作为排序依据删除旧记录：当多笔操作在同一秒内触发时，时间戳值完全一致，排序结果不稳定，可能误删最新记录。
• 该方案下History表的最大记录数永远不会超过101条（插入新记录后瞬时为101条，清理完成后回到100条），单表占用空间仅几十KB，完全不可能触达Access单表2GB的容量上限。

内容的提问来源于stack exchange，提问作者mccarthy995