如何判断表中是否存在相同的重复一条记录?
程序计算五个数字,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是表单上的五个文本框,分别存储临时计算的五个随机数
0条评论