I finally got this to work. I decided to pull all data out of the Order_Number Field that was text, change the field to number and set it as the primary key in both tables, therefore creating a key that can be joined that will link to indentical records in both tables. The code I then used is as follows:
Code:
Dim SQL As String
SQL = "DELETE Sheet1.*" & _
" FROM Sheet1 " & _
" INNER JOIN tbl_OrderInfo ON Sheet1.[Order #] = tbl_OrderInfo.fld_Order_Number "
DoCmd.RunSQL SQL
ran the code and it deleted the correct records.
Again thanks for all your help
Thanks
