用於在主表單上搜索記錄的子表單

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