如何判断表中是否存在相同的重复一条记录?

程序计算五个数字，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

Ffff是你的表一
fa\fb\fc\fd\fe是五个字段
me.text0是表单上的五个文本框，分别存储临时计算的五个随机数