如何判斷表中是否存在相同的重復(fù)一條記錄?

程序算出5個(gè)數(shù), A,B,C,D,E
    表一有五個(gè)字段. 如果表一中有一條記錄是A,B,C,D,E, 則不插入記錄, 否則將這五個(gè)數(shù)字插入到表一中.
    Private Sub Command10_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim d As Integer
    Dim e As Integer
    a = Round(Rnd(1) * 10, 0)
    b = Round(Rnd(2) * 10, 0)
    c = Round(Rnd(3) * 10, 0)
    d = Round(Rnd(4) * 10, 0)
    e = Round(Rnd(5) * 10, 0)
    Me.Text0 = a
    Me.Text2 = b
    Me.Text4 = c
    Me.Text6 = d
    Me.Text8 = e
    Dim rec As DAO.Recordset
    Set rec = CurrentDb.OpenRecordset("ffff", dbOpenDynaset)
    rec.MoveFirst
    Do Until rec.EOF
    If rec("fa") = a And rec("fb") = b And rec("fc") = c And rec("fd") = d And rec("fe") = e Then
    MsgBox "已存在相同紀(jì)錄!請(qǐng)重新算!", vbOKOnly
    Exit Do
    Else
    rec.MoveNext
    If rec.EOF = True Then
    rec.AddNew
    rec("fa") = a
    rec("fb") = b
    rec("fc") = c
    rec("fd") = d
    rec("fe") = e
    rec.Update
    End If
    End If
    Loop
    End Sub
    ffff就是你的表一
    fa\fb\fc\fd\fe就是五個(gè)字段
    me.text0\2\4\6\8是窗體上的五個(gè)文本框，存放臨時(shí)算出的五個(gè)隨機(jī)數(shù)