rs.addnew方法中，如何判断目标数据库不存在编号重复录入的数据

王进　发表于：2016-06-17 13:34:17 　

复制

��ش˸��

建了一个数据库，向里面添加记录，用ado做的，主要为了后期数据计算整改好导入用的，所以就不要问我为什么不用insert来导了

我想到的办法是，先用rs.find查找是不是存在重复的记录号，然后再用rs.absolutposition返回目前绝对地址，如果等于-3就代表不重复，如果不等于-3

就代表重复（不要问我是怎么测出来的，反正是自己瞎弄出来的）

但是现在碰到个问题，就是如果目标文件里（form_试试）为空时，这个判断就不管用了，有时返回-1，有时返回2810，总之千奇百怪的数字，啥都有

请高手研究一下，怎么弄。谢谢！！！

Top

王进发表于：2016-06-17 13:36:40

Option Compare Database
Private Sub Command56_Click()
Dim rs As New ADODB.Recordset

'判断数据完整性
If IsNull(Text0) Or IsNull(Text6) Or IsNull(Text49) Or IsNull(70) Then
    MsgBox ("输入信息不全，请重新输入")
    Text49.SetFocus
End If

rs.Open "select * from 测试", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'判断是否重复录入
rs.Find "收款号='" & Text49 & "'"

If rs.AbsolutePosition <> -3 Then '这条语句有问题：判断是否有重复时用这个有些不妥，当数据库里有数据时，用-3可以正确判断；但是无数据时，就不行了，请高手解决
    MsgBox "该收款号已有数据，请检查"
    Exit Sub
End If

rs.AddNew
    rs("收款号") = Text49
    rs("起始日") = Text0
    rs("终止日") = Text6
    rs("金额") = Text70
rs.Update

End Sub

Top

yuhong 发表于：2016-06-18 10:32:46

查找是不是存在重复的记录号用dlookup不行吗？

Top

朱雪玲发表于：2016-06-20 11:15:19

If IsNull(DLookup("收款号", "测试", "收款号 ='" & Form_测试.Text49 & "'")) = False Then '搞定
MsgBox "该收款号已有数据，请检查"
Exit Sub
End If

Top

王进发表于：2016-06-20 11:17:29

感谢2楼，已调试成功

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

rs.addnew方法中，如何判断目标数据库不存在编号重复录入的数据