用Dlookup来试试。例如:
If Not IsNull(Me.Text0) Then
If Not Isnull(Dlookup("字段1","表1","字段1='" & Me.Text0 &"'")) Then
Docmd.RunSQL "Insert Into 表1(字段1) values('" & Me.Text0&"')"
End If
End If作者: Henry D. Sy 时间: 2012-1-2 22:42
roych版的简单,易懂!
当然了,也可以用记录集!作者: Henry D. Sy 时间: 2012-1-2 22:43
好像多了个not。{:soso_e100:}