请教，如何用获取一个窗体中子数据表中另一个关系子表光标定位处的数据

无法上传附件,所以给代码如下:

Private Sub 获取ID_Click()
 On Error Resume Next '如果子数据表不展开,会出现错误,所以...
 '把两个子表均做成实体对象窗体,并命名为:货品销售表子窗体;货品销售明细表子窗体
 '货品销售表子窗体和主窗体的链接字段设为空,主窗体的数据源设为空
 '货品销售表子窗体/货品销售明细表子窗体的链接主子字段均设为"销售id"
 
 Dim frm As Form
        Set frm = Me.货品销售表子窗体.Controls("货品销售明细表子窗体").Form
        CurrentId = Nz(frm.货品销售明细ID, 0)
    MsgBox CurrentId
End Sub