Syntax 将报表链接到子窗体

我有一个主报告（项目概述），我正在尝试创建一个

OnClick

事件，它将把我从报告带到表单（LiveJobs）中输入该信息的字段

我的问题是，有一个子表单（估价项目子表单）在其中输入订单项目。然后在该子窗体（生产子窗体）上有一个子窗体，在该子窗体中输入组成“项”的组件。因此，在“项目”下订购“桌子”，然后桌子抽屉盒、顶部、隐私面板的组件都输入到生产子窗体中，以便在生产过程中对它们进行跟踪和监控。在制作过程中，每个项目都有一个对应于特定周的时间段

在报告中，我希望能够单击任何组件的计划时间，并链接回表单和相应的计划周，并在订单中移动小时数。我的代码当前将带我到正确的作业，但它不会让我到第一个子表单的正确“层”，然后到组件的正确层。例如，让我们假设订单中的第三个项目，然后是该项目的2个组件

下面是我当前的代码，它只会尝试获取第一个子窗体上的正确项。我想如果我能弄明白，我可以用同样的逻辑来找到正确的组件。这段代码导致“运行时错误'13'类型不匹配”…我已经反复讨论了好几天了。。。提前感谢您的帮助

Private Sub Estimated_hours_for_current_week_Click()

    Dim strWhere As String
    Dim DocName As String
    DocName = "LiveJobs"
    strWhere = "[Job Number]=" & "'" & Me![Job Number] & "'"
    DoCmd.OpenForm DocName, acNormal, , strWhere
    Forms![LiveJobs].[Estimate Items Subform].SetFocus

    'find the Item in the item subform

    Dim dbs As DAO.Database
    Dim RstItem As DAO.Recordset
    Dim strItemCriteria As Integer

    Set dbs = CurrentDb
    Set RstItem = dbs.OpenRecordset("Estimate Items Subform table", dbOpenDynaset)
    strItemCriteria = "[Estimate Item subform table ID] = '" & Me.Estimate_Item_subform_table_ID & "'"
    With RstItem
            RstItem.MoveLast
            DoEvents
            RstItem.FindFirst strItemCriteria
            Debug.Print (strItemCriteria)
            If .NoMatch Then
            MsgBox "No Match Found"
            End If
           End With

   Set rs = Nothing

End Sub

---

我算出了密码。这是供参考的

Private Sub Estimated_hours_for_current_week_Click()
Dim frm1 As Form
Dim frm2 As Form
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
DoCmd.OpenForm "LiveJobs", _
WhereCondition:="[Job Number]=" & "'" & Me![Job Number] & "'"
Set frm1 = Forms!LiveJobs.Estimate_Items_Subform.Form
Set frm2 = Forms!LiveJobs.Estimate_Items_Subform!ProductionComponentSubform.Form
Set rst1 = frm1.Recordset.Clone
Set rst2 = frm2.Recordset.Clone
With rst1
.FindFirst "[Estimate Item subform table ID] =" & Me.Estimate_Item_subform_table_ID
If .NoMatch Then
MsgBox "Item not found"
Else
frm1.Bookmark = rst1.Bookmark
End If
End With
With rst2
.FindFirst "[Estimate details ID]=" & Me.Estimate_details_ID
If .NoMatch Then
MsgBox "project not found"
Else
frm2.Bookmark = rst2.Bookmark
Forms![LiveJobs].SetFocus
Forms![LiveJobs]![Estimate Items Subform].SetFocus
Forms![LiveJobs]![Estimate Items Subform]![ProductionComponentSubform].Form![Estimated 
hours for current week].SetFocus
End If
End With
End Sub