如何判斷表中是否存在相同的重複一條記錄?

程序計算五個數字，A，B，C，D，e。

表1有五個字段。如果表1中的一條記錄是A、B、C、D、E，則不插入該記錄；否則，將這五個數字插入表1。

private Sub command 10 _ 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(Rndtext 0 = a
我。text 2 = b
我Text4 = c
Me。text 6 = d
我Text8 = e
Dim rec As DAO。記錄集
Set rec = CurrentDb。OpenRecordset("ffff"，打開動態集)
rec . movefirst
doutil rec . eof
ifrec(" fa")= a和rec ("FB") = b和rec ("fc") = c和rec ("FD") = d和rec ("Fe請重新計算！"，vbOKOnly
Exit Do
Else
rec。如果rec，則MoveNext
。EOF = True Then
rec。add new
rec(" fa")= a
rec(" FB")= b
rec(" fc")= c
rec(" FD")= d
rec(" Fe")= e
rec。更新
End If
End If
循環
End Sub