Access中利用DLookUp从其他表获取默认值并允许编辑字段的方法

针对你的需求，这里提供几种实用的实现方式，都能满足「选择学生后自动填充默认时长，同时支持手动编辑」的要求：

方法一：利用组合框的AfterUpdate事件（推荐，实时响应） #

这种方式会在用户选择学生后立即触发填充，后续可自由修改时长，是最灵活的方案。

步骤： #

1. 打开LessonF表单的设计视图，找到绑定StudentID的组合框（假设控件名为cboStudentID）。
2. 右键点击组合框 → 选择「事件生成器」，进入VBA编辑器。
3. 粘贴以下代码（根据你的字段类型调整细节）：

Private Sub cboStudentID_AfterUpdate()
    ' 当组合框选中有效学生时
    If Not IsNull(Me.cboStudentID.Value) Then
        ' 如果StudentID是数字类型，用下面的语句
        Me.LessonDuration.Value = DLookup("DefaultLessonDuration", "StudentT", "StudentID = " & Me.cboStudentID.Value)
        
        ' 如果StudentID是文本类型，替换为：
        ' Me.LessonDuration.Value = DLookup("DefaultLessonDuration", "StudentT", "StudentID = '" & Me.cboStudentID.Value & "'")
    Else
        ' 清空组合框时，可选清空时长字段
        Me.LessonDuration.Value = Null
    End If
End Sub

4. 保存并关闭VBA编辑器，切换到表单视图测试即可。

方法二：优化版——直接读取组合框列值（效率更高） #

如果你的组合框行来源已经包含DefaultLessonDuration字段（比如行来源设为SELECT StudentID, StudentName, DefaultLessonDuration FROM StudentT;），可以不用DLookUp，直接读取组合框对应列的值，避免额外的数据库查询：

修改上述VBA代码为：

Private Sub cboStudentID_AfterUpdate()
    If Not IsNull(Me.cboStudentID) Then
        ' Column(2)对应组合框中第3列（Access列索引从0开始），根据你的实际列位置调整
        Me.LessonDuration = Me.cboStudentID.Column(2)
    Else
        Me.LessonDuration = Null
    End If
End Sub

注：如果不想让用户看到DefaultLessonDuration列，可在组合框的「格式」属性里设置列宽，比如0cm;2cm;0cm，只显示学生名称列。

方法三：设置文本框默认值（仅适用于新建记录） #

如果只需要在新建记录时自动填充默认值，可直接设置LessonDuration文本框的「默认值」属性：

1. 在设计视图选中LessonDuration文本框，打开属性表的「数据」选项卡。
2. 在「默认值」中输入：

DLookUp("DefaultLessonDuration", "StudentT", "StudentID = Forms!LessonF!cboStudentID")

缺点：切换已有记录的学生时，不会自动更新时长，仅适合新建场景。

注意事项 #

• 确保StudentT的DefaultLessonDuration字段与LessonT的LessonDuration字段数据类型一致（比如都是数字/时长类型）。
• 手动编辑时长时，直接输入新值即可，不会被代码强制覆盖。

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