Access 2016 VBA Sub - RecordsetClone 上的“在此集合中找不到项目”错误

Question

我有一个显示以下查询结果的表单：

SELECT Database.Contact_ID, Database.[Full Name], Database.[Job Title], 
Institution.Institution, Database.Email, Database.[Email 2], Database.[Work 
phone], Database.[Work phone 2], Database.Mobile, Database.Notes, Database. 
[Date created], [Keyword Junction].Keywords, Database.[Record Type]

FROM Institution INNER JOIN (Keywords INNER JOIN ([Database] INNER JOIN 
[Keyword Junction] ON Database.[Contact_ID] = [Keyword Junction].Contact_ID) 
ON Keywords.Keyword_ID = [Keyword Junction].Keywords.Value) ON Institution.ID 
= Database.InstitutionLookup

WHERE (((Keywords.Keyword) Like [Enter Keyword] & "*"))

ORDER BY Database.[Record Type] DESC , Database.Surname;

在我创建了一个链接到按钮的子窗体上，这是 VBA：

Private Sub Send_Email_Click()    
Dim rs As DAO.Recordset
Dim bcc As String
Dim Name As String
Call fOSUserName
Name = LCase(fOSUserName) & "insertdomainhere"

     Set rs = Forms!KeywordSearch.RecordsetClone
      If rs.RecordCount > 0 Then
          rs.MoveFirst
          Do
              If Not IsNull(rs!Email) Then
                  bcc = bcc & rs!Email & ";"
                  rs.MoveNext
             Else
                  rs.MoveNext                            
               End If                   
         Loop Until rs.EOFa                          
    DoCmd.SendObject acSendNoObject, , , Name, , bcc, , , True

    End If
    Set rs = Nothing   
    End Sub

当我单击按钮时，我得到“错误 3265：在集合中找不到项目”。调试器显示问题出在“If Not IsNull(rs!Email) Then”行上，显然 Email 字段不在记录集中。我能想到的唯一问题是查询正在使用具有多值字段的表。

感谢有关如何修复此错误的任何建议。

Answer 1

我认为错误出现在 Set rs = Forms!KeywordSearch.RecordsetClone 行

我假设 keywordSearch 不是子表单，因此它不能具有 (recordsetclone) 属性，这是一个表单属性，即使这样，如果 KeywordSearch 确实是某种子表单，那么它应该是 Set rs = Forms!KeywordSearch.form .RecordsetClone