追加并自动去除重复数据

ycxchen

6D版主高明！十分多谢大家！祝各位牛年牛气冲天！

ycxchen

按7楼的例子，单独运行“追加”查询可以达到目的，但写成VBA语句，编译时说语法错误，不知错在哪里，盼大家指教。代码如下：
Private Sub Command23_Click()
Dim sql As String
sql = "INSERT INTO 进货表 ( 商场ID, 日期, 货物 ) SELECT 进货临时表.商店ID, 进货临时表.日期, 进货临时表.货物 FROM 进货临时表 LEFT JOIN 进货表 ON (进货临时表.日期 = 进货表.日期) AND (进货临时表.商店ID = 进货表.商场ID) WHERE (((DLookUp("货物","进货表","货物 = '" & [进货临时表]![货物] & "'")) Is Null) AND ((进货表.商场ID) Is Null));"
DoCmd.RunSQL sql
End Sub

koutx

要把结尾处的 ; 去掉

ycxchen

多谢KOUTX的指教！为什么有的SQL语句结尾处有“;”也能正确运行？究竟什么样的情况SQL语句结尾处要“;”的呢？

koutx

劝你还是采用6D版主的作法，那样SQL语句容易调整。如用DLookUp代码，调改时光那些"""""""""在什么地方应该用几个就搅得人头昏脑涨。
查询视图自动生成的后面都有;。在VBA编辑视图中用时应去掉它，起码我都是这样作的。

ycxchen

谢谢热心的KOUTX！去掉SQL语句结尾处的“;”还不行，确实不知错在哪里。我按22楼的办法试用，只不过是想拓宽自己的思路。

Henry D. Sy

最简单的办法就把
INSERT INTO 进货表 ( 商场ID, 日期, 货物 )
SELECT 进货临时表.商店ID, 进货临时表.日期, 进货临时表.货物
FROM 进货临时表 LEFT JOIN 进货表 ON (进货临时表.日期=进货表.日期) AND (进货临时表.商店ID=进货表.商场ID)
WHERE (((DLookUp("货物","进货表","货物 = '" & 进货临时表!货物 & "'")) Is Null) And ((进货表.商场ID) Is Null))
保存为“Q”
然后
Private Sub Command0_Click()
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Q"
    DoCmd.SetWarnings True
End Sub

ycxchen

十分多谢6D指教!你真热心!

jackysu78

看了，好象未能执行

leileifan

好东西，拿下，正解我燃眉之急~~