Office中国论坛/Access中国论坛

标题: [解决了]用追加查询时,如何不追加重复的记录? [打印本页]

作者: sunny-xie 时间: 2008-3-20 09:32
标题: [解决了]用追加查询时,如何不追加重复的记录?
[attach]29068[/attach]

如库的描述

[ 本帖最后由 sunny-xie 于 2008-3-20 12:14 编辑 ]

作者: eyewitnes 时间: 2008-3-20 10:18
if

可在代码中加入 if isnull(dlookup("ProducerCode",表名,"ProducerCode=" & 刚才的录入 &)) then 不追加 else 追加

作者: sunny-xie 时间: 2008-3-20 10:49
[:41] 期待上传例子

作者: huangqinyong 时间: 2008-3-20 11:00
http://www.office-cn.net/vvb/thread-59958-1-1.html
你这个示例中所需的代码我直接故你搞好了：
INSERT INTO 字段表 ( ProducerCode )
SELECT 产品.ProducerCode
FROM 产品 LEFT JOIN 字段表 ON 产品.ProducerCode = 字段表.ProducerCode
GROUP BY 产品.ProducerCode, 字段表.ProducerCode
HAVING (((字段表.ProducerCode) Is Null))
ORDER BY 产品.ProducerCode;

作者: sunny-xie 时间: 2008-3-20 11:47
在保存记录按钮的点击事件里这样写?

Private Sub 保_存_Click()
On Error GoTo Err_保_存_Click
Dim sql As String
sql = "INSERT INTO 字段表 ( ProducerCode ) SELECT 产品.ProducerCodeFROM 产品 LEFT JOIN 字段表 ON 产品.ProducerCode = 字段表.ProducerCode GROUP BY 产品.ProducerCode, 字段表.ProducerCode HAVING (((字段表.ProducerCode) Is Null)) ORDER BY 产品.ProducerCode;"

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_保_存_Click:
Exit Sub
Err_保_存_Click:
MsgBox Err.Description
Resume Exit_保_存_Click

End Sub

作者: huangqinyong 时间: 2008-3-20 11:57
我给你的是查询表里SQL的代码。
你要放在按钮下的代码：
dcomd.openquery"查询1"

作者: sunny-xie 时间: 2008-3-20 12:13
标题: 回复 6# 的帖子
[:33]
Private Sub 保_存_Click()
On Error GoTo Err_保_存_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenQuery "查询1"
Exit_保_存_Click:
Exit Sub

Err_保_存_Click:
MsgBox Err.Description
Resume Exit_保_存_Click

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)