Fjerne poster som er dubletter via VBA

DELETE DinTabel.*, DinTabel.ID
FROM DinTabel
WHERE (((DinTabel.ID)<>(SELECT Min(DT.ID) AS MinOfID
FROM DinTabel AS DT
GROUP BY DT.navn, DT.udtryk1, DT.udtryk2
HAVING (((DT.navn)=DinTabel.navn) AND ((DT.udtryk1)=DinTabel.udtryk1) AND ((DT.udtryk2)=DinTabel.udtryk2)))));

Hej SPG

1000 tak for hjælpen. Gemmer dit script.

Fik dog ikke brug for det alligevel, da jeg fik ændret min forespørgsel, så den ikke viste dubletter.

Du fortjener alle point...

Mvh

!~)

tak