通过表2的no字段在表1中查询，若有重复的数据就将表2的S字段标注为Y。否则标注为N

iico

Private Sub Command0_Click()

Dim prs As New ADODB.Recordset
Dim qrs As New ADODB.Recordset

prs.Open "Select * FROM tb2 ", CurrentProject.Connection, 3, 3
    If Not prs.EOF Then
    prs.MoveFirst
    Do While Not prs.EOF
    qrs.Open "select * from tb1 where no='" & prs.Fields("no").Value & "'", CurrentProject.Connection, 3, 3
        
    If qrs.RecordCount < 1 Then
   
               prs.Fields("s").Value = "n"
               Else
               prs.Fields("s").Value = "y"
               End If
               prs.Update
    prs.MoveNext
    qrs.Close
    Loop
   
    End If
    prs.Close
    MsgBox "执行完成"

End Sub
可以运行，但是就是表2的no字段的数据在表1的no字段中存在重复也会标注为N。帮查看一下代码。错在哪里了。谢谢各位大神

roych

太复杂了。设置唯一索引用更新查询就可以完成的事情，不知道为什么写VBA。

iico

谢谢Roych大神，只是学一下VBA.测试后，OK了。实现了效果，证明思路是正确的。但是因为数据量太大，执行要很久。败笔。再丰富一下知识先。