เขียนคิวรี่ ลบข้อมูลที่ซ้ำกับอีกตาราง

[Kxess]

ผมมี 2 ตาราง
1. ตารางรายชื่อลูกค้าและ email
2. ตาราง email ที่ถูกตีกลับ

ผมอยากจะลบ email ของลูกค้าที่ตีกลับ ลบเฉพาะข้อมูล email ไม่ลบระเบียนครับ
ผมควรจะเขียนคิวรี่อย่างไรดีครับ
ขอบคุณครับ

[PNR]

ผมมี 2 ตาราง
1. ตารางรายชื่อลูกค้าและ email
2. ตาราง email ที่ถูกตีกลับ
ผมอยากจะลบ email ของลูกค้าที่ตีกลับ ลบเฉพาะข้อมูล email ไม่ลบระเบียนครับ
ผมควรจะเขียนคิวรี่อย่างไรดีครับ
ขอบคุณครับ

คือถ้าเจอว่า ในตาราง email มีemailไหน ที่ถูกตีกลับมา ให้ลบ email ออกจาก ตารางรายชื่อลูกค้า ใช่ไหมครับ?

[Kxess]

ใช่ครับ

ตาราง rejected_email คือเมลที่ตีกลับ

เอามาเทียบกับ email ในตาราง personal

แล้วลบข้อมูลในช่อง email ในตาราง personal

ตัวอย่างในภาพ ผมอาจจะใช้คิวรี่ผิด คือผม join ด้วย email แต่มันก็จะลบ email ไม่ได้

ขอบคุณครับ

[PNR]

น่าจะประมาณนี้ครับ

Private Sub CmbDeleteFromRejected_Click()
Dim sql As String
sql = "UPDATE Personal_Contacts SET Personal_Contacts.PC_EMAIL = Null WHERE (((Personal_Contacts.PC_EMAIL) In (select EMAIL from [Rejected_Emails])));"
DoCmd.SetWarnings False
DoCmd.RunSQL sql
DoCmd.SetWarnings True
End Sub

[Kxess]

ใช้งานได้ครับอย่างดีครับ ขอบคุณมากครับ

ตอนแรก error ติดอยู่นาน ที่ไหนได้ ประเภทข้อมูลไม่ตรงกัน อีกอัน short text อีกกัน memo