如何在MS Access表单中用组合框为不同字段填入对应默认值？

核心问题排查 #

原代码存在两处关键逻辑错误：

• DLookup条件逻辑倒置：错误地用DefID匹配DefaultName字段，实际应该用组合框选中的字段名（如Ques1Comment）匹配TblDefault的DefaultName，同时用DefID关联两张表。
• 冗余的Requery操作：Me![cboDefault].Requery会清空组合框的选中状态，完全没必要保留。

修正后的代码 #

Private Sub cboDefault_AfterUpdate()
    Dim defaultID As Variant
    Dim selectedField As String
    Dim targetValue As Variant
    
    ' 获取当前记录关联的DefID
    defaultID = Me![DefID].Value
    ' 获取组合框选中的目标字段名称
    selectedField = Me![cboDefault].Value
    
    ' 从TblDefault查询对应DefID和字段名的默认值
    ' 注意：如果DefID是文本类型，需要给defaultID添加单引号：'" & defaultID & "'"
    targetValue = DLookup("DefaultValue", "TblDefault", "DefID = " & defaultID & " AND DefaultName = '" & selectedField & "'")
    
    ' 仅在查询到有效值时赋值，避免空值异常
    If Not IsNull(targetValue) Then
        Me(selectedField).Value = targetValue
    End If
End Sub

优化建议 #

1. 限制组合框选项范围：将cboDefault的行来源设置为SELECT DefaultName FROM TblDefault WHERE DefID = Forms![你的表单名称]!DefID，确保只显示当前DefID下的可用字段选项，避免无效选择。
2. 批量填充所有字段：若需要一次性填充所有5个评论字段，可改用按钮触发循环赋值，省去逐个选择的步骤：

Private Sub btnFillAllDefaults_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT DefaultName, DefaultValue FROM TblDefault WHERE DefID = " & Me![DefID].Value)
    
    Do While Not rs.EOF
        Me(rs!DefaultName).Value = rs!DefaultValue
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
End Sub

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