[解决了]用追加查询时,如何不追加重复的记录?

sunny-xie

如库的描述

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

eyewitnes

if

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

sunny-xie

[:41] 期待上传例子

huangqinyong

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

在保存记录按钮的点击事件里这样写?

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

我给你的是查询表里SQL的代码。
你要放在按钮下的代码：
dcomd.openquery"查询1"

sunny-xie

[: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