用于在主表单上搜索记录的子表单

Question

我有一个这样的子窗体：

当我单击“选择”按钮时，我希望主窗体上的记录导航到相应的记录（该记录具有相同的职员ID）。

到目前为止，我一直在尝试按下按钮以运行以下vba：

Private Sub Command6_Click()
Dim rs As Object
Dim strLinkValue As String
strLinkValue = Forms![navigation form]![NavigationSubform]![teacher search qry subform]![Staff ID].Value
Set rs = Forms![navigation form]![NavigationSubform]![teacher search qry subform].Form.RecordsetClone
rs.FindFirst "[Staff ID] = '" & strLinkValue & "'"
Forms![navigation form]![NavigationSubform].Bookmark = rs.Bookmark
End Sub

但是，当我这样做时，我得到运行时错误438（对象不支持此属性或方法）。

有任何想法吗？ 我觉得事情太复杂了。

Answer 1

您首先在此行收到错误438（ “对象不支持此属性或方法。” ）。

Set rs = Forms![navigation form]![NavigationSubform].Recordset.Clone

从Recordset.Clone更改为Form.RecordsetClone错误（在该行）。

不幸的是，当您尝试在此行上设置Bookmark时，您再次遇到错误438。

Forms![navigation form]![NavigationSubform].Bookmark = rs.Bookmark

此时出现错误的原因是因为[NavigationSubform]是子窗体控件，并且该控件没有Bookmark属性。 您需要在该控件中包含的Form上设置Bookmark 。

这段代码可以满足您的要求。 我在Access 2010中使用数据库副本对其进行了测试。

Dim rs As DAO.Recordset
Dim strLinkValue As String

strLinkValue = Me![Staff ID].Value
With Me.Parent.Form
    Set rs = .RecordsetClone
    rs.FindFirst "[Staff ID] = '" & strLinkValue & "'"
    .Bookmark = rs.Bookmark
End With