MS Access VBA：如何匹配子窗体选中行ID从查询获取故障数

兄弟，我看了你的代码，一眼就揪出了几个导致错误的关键问题，尤其是EqIDqry的用法和DLookup的条件写法，这正是你遇到类型不匹配、运行时错误的根源。咱们一步步来把问题解决掉：

核心错误分析 #

1. 多余且错误的Recordset使用：你打开了qryFaultTotal的记录集，但rs![Equipment_ID]只会取到记录集第一条的ID，根本不是你子窗体选中行对应的ID，这个变量完全没用，反而把你带偏了。
2. DLookup条件语法错误：你在DLookup里写了"[EqIDqry] = " & [EqIDfrm]，这里的[EqIDqry]是你定义的变量名，但DLookup的第三个参数需要的是查询里的实际字段名，应该用查询中存在的Equipment_ID才对。
3. 数据类型匹配问题：如果Equipment_ID是文本类型，直接拼接字符串会导致语法错误；如果是数字类型写法没问题，但你遇到的类型不匹配大概率是文本类型没加引号导致的。

修复后的代码 #

我帮你重写了代码，去掉了冗余部分，修正了DLookup的逻辑，还加了一些更可靠的细节：

Private Sub Button_Click()
    Dim EqIDfrm As Variant ' 用Variant兼容数字/文本类型，后续可根据实际类型细化
    Dim SelectYear As Variant
    Dim Fault As Variant
    
    ' 先判断子窗体是否有选中的有效记录
    If Not [Forms]![Form1]![tblAsset Subform].[Form].NewRecord Then
        ' 简化子窗体数据获取的写法，更清晰
        Dim subForm As Form
        Set subForm = [Forms]![Form1]![tblAsset Subform].[Form]
        
        SelectYear = subForm![Year]
        EqIDfrm = subForm![Equipment_ID]
        
        ' 打开第二窗体
        DoCmd.OpenForm "SecondForm"
        
        ' 给第二窗体的Year文本框赋值
        [Forms]![SecondForm]![txtYear] = SelectYear
        
        ' 关键：用正确的DLookup逻辑获取故障数
        ' 注意：如果Equipment_ID是数字类型，去掉单引号；如果是文本类型，保留单引号
        ' 这里默认按文本类型处理，你可以根据实际字段类型调整
        Fault = DLookup("[TotalFault]", "qryFaultTotal", "[Equipment_ID] = '" & EqIDfrm & "'")
        
        ' 处理无匹配结果的情况，避免显示空值
        If IsNull(Fault) Then
            Fault = 0
        End If
        
        ' 把故障数赋值到第二窗体的对应文本框（假设你有这个控件，可自行修改名称）
        [Forms]![SecondForm]![txtFaultTotal] = Fault
    Else
        MsgBox "请先选中子窗体中的一条有效记录！"
    End If
End Sub

额外优化建议 #

• 明确变量类型：如果你确定Equipment_ID是数字类型，就把EqIDfrm定义为Long；如果是文本，定义为String，这样能提前发现类型不匹配的问题。
• 添加错误处理：可以加上On Error GoTo块捕获运行时错误，方便调试，比如：

  On Error GoTo ErrorHandler
  ' 你的代码
  Exit Sub
  

ErrorHandler:
MsgBox "出现错误：" & Err.Description, vbExclamation

- **避免硬编码窗体名**：如果后续窗体名称修改，代码会报错，你可以用`Me.Parent`之类的相对引用，让代码更健壮。

## 为什么之前的代码会失败？
你之前的`EqIDqry = rs![Equipment_ID]`完全是多余的操作，因为DLookup本身就会遍历`qryFaultTotal`的所有记录，自动匹配和子窗体选中ID一致的条目。再加上你写错了DLookup的条件字段名，Access找不到对应的匹配逻辑，自然就抛出了类型不匹配的错误。

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