Slet poster i tabel 1 med opslag i tabel 2

Når jeg skriver matcher mener jeg på LAGERNUMMER OG LOKATION

Under forudsætning af at du har valgt LAGERNUMMER og LOKATION som UnikID, burde følgende lille rutine klare det:

Sub Opdater()
  ' Opdater eksisterende
  DoCmd.RunSQL "UPDATE S_STATUS INNER JOIN T_VARER ON (S_STATUS.Lokation = T_VARER.Lokation) AND (S_STATUS.Lagernummer = T_VARER.Lagernummer)" & _
        " SET T_VARER.Beholdning = [S_STATUS].[Beholdning]"
  ' Opret nye
  DoCmd.RunSQL "INSERT INTO T_VARER (Lagernummer, Lokation, Beholdning)" & _
        " SELECT S_STATUS.Lagernummer, S_STATUS.Lokation, S_STATUS.Beholdning" & _
        " FROM S_STATUS LEFT JOIN T_VARER ON (S_STATUS.Lagernummer = T_VARER.Lagernummer) AND (S_STATUS.Lokation = T_VARER.Lokation)" & _
        " WHERE T_VARER.Lagernummer Is Null"
  ' Flyt ukendte
  DoCmd.RunSQL "INSERT INTO T_VARER_STATUSFEJL (Lagernummer, Lokation, Beholdning)" & _
        " SELECT T_VARER.Lagernummer, T_VARER.Lokation, T_VARER.Beholdning" & _
        " FROM T_VARER LEFT JOIN S_STATUS ON (T_VARER.Lagernummer = S_STATUS.Lagernummer) AND (T_VARER.Lokation = S_STATUS.Lokation)" & _
        " WHERE S_STATUS.Lagernummer Is Null"
  ' Slet ukendte
  DoCmd.RunSQL "DELETE T_VARER.*, S_STATUS.Lagernummer" & _
        " FROM T_VARER LEFT JOIN S_STATUS ON (T_VARER.Lagernummer = S_STATUS.Lagernummer) AND (T_VARER.Lokation = S_STATUS.Lokation)" & _
        " WHERE S_STATUS.Lagernummer Is Null"
End Sub

Sæt evt. en <DoCmd.SetWarnings False> før kaldene - og husk <DoCmd.SetWarnings True
> til slut.

Såvel LAGERNUMMER som LOKATION kan forekomme flere gange, så dermed kan de vel ikke være UnikID (hvad mener du helt præcis med UnikId.
Eksempelvis S_STATUS:

LOKATION;LAGERNUMMER;ANTAL
10110;1000000001;12
10110;1000000002;3
12030;1000000001;4
12030;2235656767;30

Her er der to varer på lokation 10110 og to på 12030 samt lagernummer 100000001 går igen på to forskellige lokationer. Såvel LAGERNUMMER som LOKATION er tekst-strenge.

Ovenstående er langt hen ad vejen fin, men mit store problem er følgende:
' Flyt ukendte
  DoCmd.RunSQL "INSERT INTO T_VARER_STATUSFEJL (Lagernummer, Lokation, Beholdning)" & _
        " SELECT T_VARER.Lagernummer, T_VARER.Lokation, T_VARER.Beholdning" & _
        " FROM T_VARER LEFT JOIN S_STATUS ON (T_VARER.Lagernummer = S_STATUS.Lagernummer) AND (T_VARER.Lokation = S_STATUS.Lokation)" & _
        " WHERE S_STATUS.Lagernummer Is Null"

Denne flytter alle andre poster end de der er angivet i S_STATUS

Hvis S_STATUS indeholder følgende:

LOKATION;LAGERNUMMER;ANTAL
10110;1000000001;12
10110;1000000002;3
12030;1000000001;4
12030;2235656767;30

Så er det kun alle andre LAGERNUMMER på LOKATION 10110 og 12030 der skal INSERT INTO i T_VAREFEJL og DELETE i T_VARER. Alle andre lokationer skal være uberørte

Har selv fundet svaret. Har lavet en række forespørgelser, som jeg kalder i VB kode

OK. Ked af at du ikke kunne bruge min ide.