Microsoft Access如何用VBA删除services列为空的整行并自动校验

你表内自动生成的ID字段（通常为AutoNumber自动编号类型）完全不会影响空值行删除、新增校验的实现逻辑。该字段仅作为行数据的唯一标识存在，不参与services字段的空值判断，也不会阻碍行删除操作；如果后续需要精准定位单行数据，这个字段反而能帮你避免批量误删问题。

不建议使用后台循环轮询的方式做自动触发，这类方案需要持续占用系统资源，还容易被误操作中断，Access原生提供的表级数据宏、窗体事件可以实现更稳定的触发效果，仅在数据写入的瞬间执行校验，无额外性能损耗。

1. 清理表内已存在的无效行 #

按Alt+F11打开VBA编辑器，插入标准模块，粘贴以下代码后运行，即可一次性清理所有services字段为空的存量数据：

Sub CleanEmptyServiceRows()
    Dim delSQL As String
    ' 替换代码中"你的实际表名"为当前存储数据的表名称
    ' 逻辑覆盖services字段为Null、空字符串两种空值场景
    delSQL = "DELETE FROM 你的实际表名 WHERE Nz(services, '') = ''"
    CurrentDb.Execute delSQL, dbFailOnError
    MsgBox "清理完成，共删除 " & CurrentDb.RecordsAffected & " 条services字段为空的无效行", vbInformation
End Sub

2. 新增数据时自动校验触发 #

根据你的数据录入场景二选一即可：

• 表级数据宏方案（推荐）：无论你是直接编辑表、通过窗体录入、还是用追加查询写入数据，都能稳定触发。
  操作步骤：打开目标表的设计视图，在顶部「设计」选项卡选择「创建数据宏」，触发时机选「插入后」，在宏设计器中添加If判断，条件填写Nz([services],"") = ""，在判断分支内添加「删除记录」操作，保存宏即可生效。
• 绑定窗体事件方案：如果所有数据都通过绑定窗体录入，可以用这个方案。
  打开录入窗体的设计视图，给窗体添加AfterInsert（插入后）事件，粘贴以下代码：

  Private Sub Form_AfterInsert()
      If Nz(Me!services, "") = "" Then
          ' 不需要提示可以直接删掉下一行MsgBox代码
          MsgBox "services字段不能为空，当前新增记录将被删除", vbExclamation
          RunCommand acCmdDeleteRecord
      End If
  End Sub
  

如果一定要做循环监控，需要在隐藏窗体里写定时器事件，每隔固定时间执行一次前面的清理SQL，但这种方案存在明显缺陷：必须保持文件打开运行定时器，时间间隔设置太长会有校验延迟，设置太短会占用过多资源，实际使用体验远不如原生的事件触发方案。

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