MS Access：实现表单提交时验证员工ID存在于员工表

嘿，我来帮你搞定这个员工ID验证的问题！在MS Access里要实现「不存在的员工ID不让提交表单」，有几种靠谱的方法，我给你拆解清楚：

这种方法适合允许用户手动输入ID，但提交前做校验的场景：

• 打开你的上报表单的设计视图，右键点击表单空白处选择「事件生成器」，或者直接在属性表的「事件」标签里找到「更新前」（BeforeUpdate），点击「代码生成器」。
• 在弹出的VBA编辑器里，粘贴以下代码（记得把控件名改成你实际用的！）：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim empID As Variant
    Dim rs As Recordset
    
    ' 获取表单中输入的员工ID，这里假设控件名叫txtEmpID
    empID = Me.txtEmpID.Value
    
    ' 检查Employees表是否存在该ID，自动适配文本/数字类型的ID
    Set rs = CurrentDb.OpenRecordset("SELECT EmployeeID FROM Employees WHERE EmployeeID = " & _
        IIf(IsNumeric(empID), empID, "'" & empID & "'"))
    
    If rs.EOF And rs.BOF Then
        ' 未找到匹配ID，阻止提交
        MsgBox "该员工ID不存在，请核对后重新输入！", vbExclamation, "验证失败"
        Cancel = True ' 取消表单更新操作
        Me.txtEmpID.SetFocus ' 光标定位回输入框，方便修改
    End If
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
End Sub

要是不想让用户手动敲ID（毕竟容易输错），直接用下拉列表选就更省心：

• 把表单里的员工ID文本框替换成组合框控件。
• 在组合框的属性表中设置：
  • 「行来源类型」选择「表/查询」
  • 「行来源」输入SELECT EmployeeID FROM Employees ORDER BY EmployeeID;
  • 「限于列表」设为「是」
    这样用户只能从下拉列表里选已有的员工ID，要是选了不在列表里的内容，Access会直接提示无法离开该控件，从根源上杜绝无效ID提交。

如果担心有人直接修改上报表的数据绕过表单验证，可以在表层面再加一层兜底：

• 打开上报信息表的设计视图，找到员工ID字段。
• 在「验证规则」里输入：DLookup("EmployeeID", "Employees", "EmployeeID = [你的上报表员工ID字段名]") Is Not Null
• 在「验证文本」里填写提示语，比如“该员工ID不存在于员工表中，请核对后再输入”
  这样哪怕直接在表中输入无效ID，Access也会立刻阻止并弹出提示。

内容的提问来源于stack exchange，提问作者B.D