ADO检测重复记录

学习者　发表于：2012-04-02 12:31:41 　

我写了一个VBA检测重复记录，但是只能检测到第一个重复的，不知道句代码错了，请帮忙找找，另外在修改的地方做个说明，谢谢。

wsl 发表于：2012-04-02 12:59:14

可以改成这样：

Private Sub cmdNew_Click()

If DCount("编号", "tbnumber", "编号='" & Me.txtNumber & "'") > 0 Or IsNull(Me.txtNumber) Then
    MsgBox "编号重复或编号为空，请确认输入内容！", vbExclamation, "提示"
    Me.txtNumber.SetFocus
    Exit Sub
End If

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tbnumber", dbOpenDynaset)
rs.AddNew
rs!编号 = Me!txtNumber
rs!编号内容 = Me!txtContent
Me!txtNumber = ""
Me!txtContent = ""
rs.Update
rs.Close
Set rs = Nothing
MsgBox " 保存成功！ ", , "提示"

End Sub

Top

学习者发表于：2012-04-02 15:54:50

你的意思我明白了，用内置的Dcount函数去返回数值判断，但如果以我上面的思想，想通过ADO打开表，通过循环来对比，找出相同的，然后Msgbox.能否指出我代码中的错误？

Top

学习者发表于：2012-04-03 08:50:51

没人响应吗？Dcount遍历整个表中的记录，如果表的记录在最后面，那么找起来效率会很低的吧。

Top

wsl 发表于：2012-04-03 10:45:26

应增加这句代码： rs.MoveNext

修改如下：

      For i = 1 To rs.RecordCount
         If rs!编号 = Me!txtNumber Or Me!txtNumber = "" Then
            bln = True
            i = rs.RecordCount + 1
          End If
          rs.MoveNext '应增加这句代码
      Next i

Top

wsl 发表于：2012-04-03 10:49:41

“ i = rs.RecordCount + 1”这句，可以改成：“ Exit For”

Top

阳阳发表于：2012-04-03 11:07:22

这样行不

点击下载此附件

Top

学习者发表于：2012-04-09 12:46:22

这个问题已经解决，附件里面其实存在两个问题，还好都解决了，我要的思路也搞定了，谢谢。

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

ADO检测重复记录