VBA对象变量未被识别：关键词匹配与Mariners表更新异常排查

原代码核心问题 #

• 错误遍历记录集的字段而非记录：Keywords表有两条关键词记录（Lost、Slow），原代码循环的是表的字段（仅Key字段），未获取每条记录的关键词值。
• UPDATE操作对空表无效：Mariners表初始无记录，UPDATE无法向空表新增数据，需改用INSERT INTO。
• 未匹配Comments表的关键词：原SQL未判断Comments内容是否包含目标关键词，无法筛选有效数据。
• 字段对象直接拼接SQL错误：kk是Field对象，直接拼接会得到字段名而非实际关键词值。

修正后的代码 #

Private Sub Command0_Click()
    Dim rsKeywords As DAO.Recordset
    Dim strKeyword As String
    Dim strSQL As String
    
    ' 打开Keywords表记录集，遍历每条关键词记录
    Set rsKeywords = CurrentDb.OpenRecordset("Keywords")
    If Not rsKeywords.EOF Then
        rsKeywords.MoveFirst
        Do While Not rsKeywords.EOF
            strKeyword = rsKeywords!Key ' 获取当前记录的关键词值
            
            ' 构造INSERT语句：筛选Comments中含关键词的记录，插入到Mariners
            strSQL = "INSERT INTO Mariners (Refnum, KW) " & _
                     "SELECT Comments.RefNum, '" & Replace(strKeyword, "'", "''") & "' AS KW " & _
                     "FROM Comments " & _
                     "WHERE Comments.Comment LIKE '*" & Replace(strKeyword, "'", "''") & "*'" & _
                     " AND NOT EXISTS (SELECT 1 FROM Mariners WHERE Mariners.Refnum = Comments.RefNum AND Mariners.KW = '" & Replace(strKeyword, "'", "''") & "')"
            
            DoCmd.RunSQL strSQL
            
            rsKeywords.MoveNext ' 移动到下一条关键词记录
        Loop
    End If
    
    rsKeywords.Close
    Set rsKeywords = Nothing
    MsgBox "数据导入完成！"
End Sub

代码改进说明 #

• 遍历Keywords表的每条记录，正确提取关键词值。
• 用INSERT INTO从Comments表筛选匹配关键词的记录，直接插入Mariners表。
• 加入Replace处理关键词中的单引号，避免SQL语法错误。
• 新增NOT EXISTS判断，防止重复插入相同的Refnum+关键词组合。
• 规范记录集的关闭与对象释放，避免内存泄漏。

内容的提问来源于stack exchange，提问作者dCharles