# 如何在新增客户时检查有否重复输入

Posted by 老邱 on August 31, 1998 at 11:54:45:

敢问各位先进, 我在新增(AddNew)客户资料时, 使用其电话来FindFirst,检查是否和己有记录相同,
发现NoMatch都是False,原因可能是Find时移动记录,新增记录己写入. 搅尽脑汁,想不出好方法,在此
请教,谢谢!
VB version: 5.0专业中文版
Win95 400.95a
程式码:
Private Sub cmdCustWrite_Click()
Dim Qrep As String
On Error Resume Next
If mskTelHome.Text = "" Then
MsgBox "电话栏不能空白!", 72, "错误"
Exit Sub
End If
If cmdCustAdd.Caption = "放弃(&G)" Then
Qrep = "电话(H)=" & mskTelHome.Text
datCust.Recordset.FindFirst Qrep
If datCust.Recordset.NoMatch = False Then
MsgBox "己经有这笔资料了!", 72, "资料重复"
datCust.Recordset.CancelUpdate
cmdCustAdd.Caption = "新增(&A)"
Exit Sub
End If
cmdCustAdd.Caption = "新增(&A)"
End If
datCust.Recordset.Update
End Sub

Follow Ups:

- Re: 如何在新增客户时检查有否重复输入 尧哥 22:37:52 9/06/98 (0)
- 加入就是了 小吴 07:21:31 9/01/98 (1)
  - Re: 加入就是了/谢谢小吴 老邱 08:47:00 9/01/98 (0)