[求助]怎样来查找？

Question

我用dao控件做了个通讯录，在access2000中我设置姓名为主键，当“添加”－＞“保存”时，怎样来判断输入的姓名与以前的数据是否重复？
我用查找：
Data1.Recordset.FindFirst "Name='" & Text1.Text & "'"
If Form1.Data1.Recordset.NoMatch Then
......endif
可是不行，请高手指点！谢谢！

Answer 1

引用dao,没有问题
Dim mrec As Recordset
  Dim lsstr, sqlstr As String
    Set mrec = ClassData.Recordset
    lsstr = ClassDBCombo.Text
    If lsstr = "" Then GoTo mend
    mrec.MoveFirst
    mrec.FindFirst ("班级 = '" & lsstr & "'")
    If mrec.NoMatch Then GoTo mend
mend:

Answer 2

在Access中将姓名字段的索引属性设置为“有（无重复）”。这样，当你试图向表内插入一个已经存在的姓名时，就会出现一个错误。捕捉这个错误并判断即可，完全不必要自己手工判断是否存在重复的姓名。