ACCESS不用主键,如何防止追加重复记录

旺仔秋秋糖

Option Compare Database
Private Sub Command0_Click()
Set Conn = CurrentProject.AccessConnection
Set rs = New ADODB.Recordset
rs.Open "SELECT FROM 表1 LEFT JOIN 表2 ON (表1.手机 = 表2.手机) AND (表1.地址 = 表2.地址) AND (表1.姓名 = 表2.姓名) AND (表1.单位 = 表2.单位)", Conn, 1, 1
If rs.EOF Then
Conn.Execute "INSERT INTO 表2 ( 单位, 姓名, 地址, 手机 ) SELECT 表1.单位, 表1.姓名, 表1.地址, 表1.手机 FROM 表1;"
Else
MsgBox "用户已存在！"
End If
rs.Close
End Sub

请问大神我这个代码可以实现吗, 如果表2有相同的记录在则不追加,如果没有就追加,但是试了很久,都不对. 代码在网上查了一部分,东拼西凑的,希望大神指点~

ly

如果是所有记录则：
SELECT 表1.*,表2.* FROM 表1 LEFT JOIN 表2......
如果是某些字段则：
SELECT 表1.字段名1...表1.字段名n,表2.字段名1... 表2.字段名n FROM 表1 LEFT JOIN 表2......