access添加数据时重复

set r=server.CreateObject("adodb.recordset")

sql="select * from booklist where subcontent='"&content&"' or subtitle='"&title&"'"

r.open sql,connstr,1,3

'先判断一下是否有记录，没有记录时才插入。

if not r.eof then

response.Write ("抱歉，您所要用户或标题已经使用！。<br><a href='javascript:window.history.back()'>点击此处返回上一页</a>")

response.end

connstr.close

set connstr=nothing

end if

r.AddNew

r("title")=title

r("content")=content

r("username")=username

r.update

r.close()

set r=nothing

response.write "<script>window.opener.location.reload()window.close()</script>"

%>

点击“新建查询”选择“查找重复项查询向导”选择表1，则建立一个查询，这里叫做 1' ,执行它，只包含重复项！！！ 再新建一个查询,在设计视图中建立查询,选择 1' ,点击"添加",然后关闭"显示表"对话框,双击A,B两个字段,在工具栏中找到"总计"工具,点击,在设计视图中A,B下面看见了"分组"字样,保存这个查询就行了.

1先导出文件为Excel如果不想做更新查询的话，还可以删除之前的记录，然后右击粘贴，也可以这样做，同样可以达到目的。甚至如果不想导入，直接复制Excel的数据行（必须是整行），只要字段一模一样的话。修改完毕后再导入到Access，在Excel里修改应该很方便（下拉或者双击复制单元格就好了）。

2在设计视图里设置输入掩码，默认输入，输入目标字眼。

3按着ctrl一直向下拖动也可以。

---