CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jones279 Nybegynder

14. august 2006 - 20:09 Der er 5 kommentarer og
2 løsninger

Fjerne dubletter

Hejsa,

Jeg har en access database hvori der er en masse kolonner. I en af kolonnerne er der en masse dubletter. Jeg vil gerne have fjernet alle de rækker med dubletter i den kolonne. Kan man det?

Jeg har fået det til at virke ved at filtrere - men da jeg bruger databasen i et eksternt program, er det nødvendigt, at rækkerne bliver helt fjernet - alternativt flyttet til en anden tabel...

Håber en kan hjælpe mig?

/JB

Synes godt om

fdata Forsker

14. august 2006 - 21:42 #1

DoCmd.RunSQL "Delete Tabel1.* FROM Tabel1 " & _
"WHERE ((ID Not In (Select First(ID) From Tabel1 Group by DubletFelt)));"

Synes godt om

jones279 Nybegynder

16. august 2006 - 13:05 #2

Hvor skal det skrives henne?

Synes godt om

fdata Forsker

16. august 2006 - 14:45 #3

I et eller andet modul. Opret evt. et nyt og skriv:

Sub FjernDubletter()
DoCmd.RunSQL "Delete Tabel1.* FROM Tabel1 " & _
"WHERE ((ID Not In (Select First(ID) From Tabel1 Group by DubletFelt)));"
End Sub

... og så skal du jo lige huske at udskifte tabel- og feltnavne med dine egne.

Kør koden med F5.

Synes godt om

jones279 Nybegynder

17. september 2006 - 17:48 #4

Hmm, har siddet og arbejdet med det netop nu - har ikke lige haft tid før. Og må indrømme, at jeg ikke LIIIGE har haft tid før nu :)

Men... Jeg kan sgu ikke rigtig få det til at spille - tror det er fordi jeg ikke har fået de rigtige tabeller smidt ind... Selve tabellen hedder TGPs, og kolonnen den skal tjekke i hedder URL.

Har du mulighed for lige at knalde det ind i det script?

/J

Synes godt om

fdata Forsker

17. september 2006 - 23:30 #5

Ja da:

Sub FjernDubletter()
DoCmd.RunSQL "Delete TGP.* FROM TGP " & _
"WHERE ((ID Not In (Select First(ID) From TGP Group by URL)));"
End Sub

... forudsætter at hver post er forsynet med et unikt ID (Autonummerering f.eks)

Play it safe: Husk lige at tage en sikkerhedskopi af dine data inden du kører ;o)

Synes godt om

jones279 Nybegynder

18. september 2006 - 17:04 #6

Smukt! :D TAK!

Synes godt om

fdata Forsker

18. september 2006 - 22:24 #7

Velbekomme og tak for point ;o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access	3	21/11/202418:03	I går 11:38
Tilpasset decimalvisning Af visto i Access	7	12/11/202417:21	13/11/202412:22
Udregning af antal måneder og år Af pouls i Access	9	11/11/202414:55	12/11/202411:42
Gantt Chart Wizard Af per2edb i Access	2	05/11/202417:57	06/11/202410:09
Me.Form.Painting = True/False ore Me.Painting = True/false Af per2edb i Access	3	03/11/202416:41	03/11/202418:05

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS