[求助＆更改版]在窗体中录入时可否设置如下功能：自动弹出重复记录？

panpan8202224

之前没有把问题表述清楚,现在更改如下：（希望版主别删我的帖子）

编号：1   客户姓名：李四

………………

编号：10   客户姓名：张三  

……………

编号：100    客户姓名：张三（我希望能弹出此类提示：客户姓名“张三”已经存在，其编号为10。因为这样方便将所有名为“张三”的信息在录入时就归类在一起）

【在表设计试图中“编号”的数据类型设置为“自动编号”，索引设置为“有（无重复）”】

下面是我的窗体



请版主或路过高人指教！！谢谢！！

[此贴子已经被作者于2006-1-16 17:09:16编辑过]

gaoqiwen

可以!

不过三言两语难说清楚,最好能上传你的文件!

一点通

只要在表的属性中某字段的索引设置成“有（无重复）”就可以了

panpan8202224

不是的，表中的索引设置成有（有重复），因为是允许输入重复记录的。

我把例子传到前面那个帖子了。假如希望在“信息录入窗体”中，输入某个客户姓名（或公司名、或电话号码）之后，希望在下面的“显示已有重复记录”文本框显示出以前的记录，要怎么操作？多谢指点！

一点通

panpan8202224

多谢一点通版主!

panpan8202224

这样在录入时会提示重复,但是不会显示是哪些编号的记录重复是吗?我只知道在查询里面有个查找重复项记录的功能，可以显示出所有的重复项。

一点通

将查询结果写到提示中去就得了，例如：

Private Sub 客户姓名_AfterUpdate()
If Nz([客户姓名]) = Nz(DLookup("[客户姓名]", "表1", "[客户姓名]=" & "'" & 客户姓名 & "'")) Then  '验证是否有数据
    MsgBox "客户姓名重复，客户名：" & Nz(DLookup("[客户姓名]", "表1", "[客户姓名]=" & "'" & 客户姓名 & "'")) _
    & "，客户所属公司：" & Nz(DLookup("[客户所属公司]", "表1", "[客户姓名]=" & "'" & 客户姓名 & "'")) _
    & "，电话号码：" & Nz(DLookup("[电话号码]", "表1", "[客户姓名]=" & "'" & 客户姓名 & "'")), , "提示"
End If
End Sub

SIUDUNG666

都是高手

panpan8202224

按照版主教我的做了，显示出来了。但又有一个问题请教（最后一个^_^）：假如还要显示编号呢？例如某客户名为张三，编号是10。当下次再录入“张三”的时候，希望不仅能显示出以前重复的姓名，还能显示出这个编号。如何操作？是要实现编号与姓名的某种关联吗？谢谢指点！