Question

access窗体中文本框内输入字段不能重复

请问如何设置，在一个窗体中的文本框内输入“电话”，系统查找表“联系人信息”中的“移动电话”字段，如出现重复则提示“此号码以存在”如无重复则无提示可以继续其他操作

若以下回答无法解决问题，邀请你更新回答

Answer 1

可以参考以下代码：
Private Sub Text15_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strNbr$
Set cn = CurrentProject.Connection
strNbr = Me.Text15.Value
rs.Open "联系人信息", cn
Do Until rs.EOF = True
If rs!移动电话 = strNbr Then
MsgBox "重复", vbOKOnly, "====>"
Exit Sub
rs.MoveNext
End If
Loop
End Sub
其中要事先 引用 "Microsoft ActiveX Data Objects 2.8" 才能使用 Adodb