如何在Access选项卡查询中获取高亮行ID以打开详情表单

看起来你在引用子选项卡中的子窗体记录时踩了个常见的坑——混淆了查询名和子窗体控件名，而且对CurrentRecord属性的用法理解有误。咱们一步步来修正：

核心问题分析 #

你原来的代码 ID = Me!tabDetails!tabParts!qryPartsList!CurrentRecord![ID] 有两个关键错误：

• 你直接引用了查询名qryPartsList，但实际上tabParts选项卡中显示的是一个子窗体控件（这个控件的数据源是qryPartsList），你需要引用的是子窗体控件的名称，而非查询名；
• CurrentRecord是返回当前记录在记录集中的位置（行号）的属性，不是一个记录对象，所以不能用CurrentRecord![ID]来取值。

正确的实现步骤 #

1. 确认子窗体控件的名称

打开你的Customer表单设计视图，找到tabDetails选项卡的tabParts页面，查看里面显示零件列表的子窗体控件的名称（比如可能叫subPartsList，你可以在属性表的“其他”选项卡中找到“名称”）。

2. 编写正确的VBA代码

用以下代码替换你原来的逻辑，记得把你的子窗体控件名称替换成实际的控件名：

Dim selectedPartID As Variant
Dim partsSubForm As Form

' 引用tabParts页面中的子窗体控件
Set partsSubForm = Me!tabDetails.Pages("tabParts").Controls("你的子窗体控件名称")

' 检查子窗体是否有有效记录
If Not partsSubForm.Recordset.EOF And Not partsSubForm.Recordset.BOF Then
    ' 获取当前选中记录的ID
    selectedPartID = partsSubForm.Recordset!ID
    
    ' 打开详细信息表单，传递ID作为筛选条件
    DoCmd.OpenForm "你的详细表单名称", , , "ID = " & selectedPartID
Else
    MsgBox "请先选择一条零件记录！", vbInformation
End If

3. 简化版（如果子窗体是连续表单/数据表视图）

如果你的子窗体是连续表单或数据表视图，也可以直接引用子窗体中ID控件的当前值，代码更简洁：

Dim selectedPartID As Variant

If Not IsNull(Me!tabDetails.Pages("tabParts").Controls("你的子窗体控件名称")!ID) Then
    selectedPartID = Me!tabDetails.Pages("tabParts").Controls("你的子窗体控件名称")!ID
    DoCmd.OpenForm "你的详细表单名称", , , "ID = " & selectedPartID
Else
    MsgBox "请先选择一条零件记录！", vbInformation
End If

注意事项 #

• 确保子窗体控件的数据源确实绑定了qryPartsList，且该查询包含ID字段；
• 如果ID是文本类型，需要给筛选条件加上单引号："ID = '" & selectedPartID & "'"。

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