Delete records in a query by referencing another

[Robin]

I have a main table that I need to delete records that arn't referenced in
another. Query says I cannot delete.
If I remove the reference query all deletes ok.
Hope there is a way around this ?
Query as follows:
DELETE Items.*, Items.SupplierC ode, Items.UpdatedDa teTime, [Check if
Existing Quote Number exists before delete].ItemNumber
FROM [Check if Existing Quote Number exists before delete] RIGHT JOIN Items
ON [Check if Existing Quote Number exists before delete].ItemNumber =
Items.ItemNumbe r
WHERE (((Items.Suppli erCode)=[Forms]![frmImport]![cmbSuppliers]) AND
((Items.Updated DateTime)<>[Forms]![frmImport]![DTNOW1]) AND (([Check if
Existing Quote Number exists before delete].ItemNumber) Is Null));

Are using this below query in a form and works fine except deletes all
records. I need to reference the other query so some items are not deleted.
Hope someone can help ?

DoCmd.RunSQL " DELETE Items.*, Items.SupplierC ode, Items.UpdatedDa teTime
FROM Suppliers INNER JOIN Items ON Suppliers.Suppl ierCode =
Items.SupplierC ode WHERE
(((Items.Suppli erCode)=[Forms]![frmImport]![cmbSuppliers]) AND
((Items.Updated DateTime)<>[Forms]![frmImport]![DTNOW1]));"

Many thanks
Rob

[kaniest]

Robin schreef:

I have a main table that I need to delete records that arn't
referenced in another. Query says I cannot delete.
If I remove the reference query all deletes ok.
Hope there is a way around this ?
Query as follows:
DELETE Items.*, Items.SupplierC ode, Items.UpdatedDa teTime, [Check if

Try DELETE DISTINCTROW Items.* FROM ....

[Robin]

Thankyou Kaniest ... for your help .. all works ok now..
Rob

"kaniest" <ka*****@invali d.invalid> wrote in message
news:44******** *************** @news.xs4all.nl ...

Robin schreef:

I have a main table that I need to delete records that arn't
referenced in another. Query says I cannot delete.
If I remove the reference query all deletes ok.
Hope there is a way around this ?
Query as follows:
DELETE Items.*, Items.SupplierC ode, Items.UpdatedDa teTime, [Check if

Try DELETE DISTINCTROW Items.* FROM ....