Access数据库中输入字段值后自动填充关联列的实现方法

阿华AIGC实验室

2026-5-29

解决Access中输入User Number自动填充User ID的问题

嘿，我来帮你搞定这个Access自动填充的问题！你已经给两张表建了关联，但数据表视图本身没法像Excel那样直接触发VLOOKUP式的自动填充，咱们得借助表单、查询或者数据宏来实现，下面是几种实用的方法，按易用性排序：

方法一：用表单的`AfterUpdate`事件实现（最常用，模拟VLOOKUP）

这是最贴近Excel操作逻辑的方式，通过表单的事件触发填充，步骤很清晰：

先创建一个基于table_2的表单，把User Number和User ID这两个字段都拖到表单上。
切换到表单的设计视图，选中User Number文本框，右键点「事件生成器」，选「代码生成器」（也就是VBA编辑器）。

在弹出的代码窗口里，找到User_Number_AfterUpdate事件（如果没有就手动输入），写入这段代码：

Private Sub User_Number_AfterUpdate()
    ' 先检查输入的User Number是不是空的
    If Not IsNull(Me.User_Number) Then
        ' DLookup就是Access版的VLOOKUP，从table_1里匹配对应的User ID
        ' 注意：如果User Number是数字类型，把单引号去掉，改成 "User_Number = " & Me.User_Number
        Me.User_ID = DLookup("User_ID", "table_1", "User_Number = '" & Me.User_Number & "'")
    Else
        ' 如果User Number被清空，对应的User ID也清空
        Me.User_ID = Null
    End If
End Sub

保存表单，切换到表单视图测试：输入一个table_1里有的User Number，按下回车或者点击其他字段，User ID就会自动填进去啦。
进阶小技巧：可以加个错误提示，要是输入的User Number不存在，就弹个框提醒：

Private Sub User_Number_AfterUpdate()
    If Not IsNull(Me.User_Number) Then
        Dim userId As Variant
        userId = DLookup("User_ID", "table_1", "User_Number = '" & Me.User_Number & "'")
        If IsNull(userId) Then
            MsgBox "这个User Number在table_1里找不到哦，请检查输入！", vbExclamation
            Me.User_ID = Null
        Else
            Me.User_ID = userId
        End If
    Else
        Me.User_ID = Null
    End If
End Sub

方法二：用查询作为输入载体（不用写代码）

要是你不想碰VBA，用查询也能实现，步骤如下：

新建一个查询，把table_2和table_1都加进去，然后通过User Number字段建立关联（选左连接或者内部连接都行，根据你是否允许输入不存在的User Number来定）。
把table_2的所有字段，再加上table_1里的User ID字段拖到查询网格里。
保存这个查询，比如叫qry_Table2_With_UserID。
以后直接在这个查询的数据表视图里输入User Number，只要这个号码在table_1里存在，对应的User ID就会自动显示出来。
额外建议：可以给查询里的User Number字段设置查阅向导，限制只能选择table_1里的User Number，这样既能避免输入错误，又能确保User ID一定会被正确填充。

方法三：用数据宏在表层面实现（高级玩法）

如果想跳过表单，直接在table_2的数据表视图里实现自动填充，可以用Access的数据宏：

打开table_2的设计视图，点击顶部「表格工具」→「字段」选项卡，找到「数据宏」按钮，选「创建数据宏」→「更新后」。
在数据宏设计器里，先添加「查找记录」操作：
- 查找位置选table_1
- 条件设为[User Number] = [table_2].[User Number]
再添加「设置字段」操作：
- 字段选table_2.User ID
- 值设为[table_1].[User ID]
保存数据宏，以后你在table_2里输入User Number，切换到其他记录或者保存时，User ID就会自动填充好了。