Funktion til at slette linie i tabel

Skal den checke om hele linien er ens eller blot et enkelt felt går igen?

hele linien

Er det en funktion, som skal kører flere gange, eller skal du blot have ryddet op i tabellen én gang for alle? (I så fald, kan jeg hurtigt beskrive en manuel måde at gøre det på, men hvis det skal være en generel funktion, så kræver det lidt mere...)

en hurtig oprydning

ok:
1) stil dig i databasevinduet og marker din tabel!
2) Tryk Ctrl+C efterfulgt af Ctrl+V
3) Kald den ny tabel f.eks. Temp (vælg "Kun struktur")
4) Lav en ny forespørgsel (uden tabeller) og vælg menuen Vis->SQL visning
5) Skriv: INSERT INTO [Temp] SELECT DISTINCT * FROM [DinGamleTabel]
6) Kør forespørgslen
7) Slet den gamle tabel og omdøb Temp-tabellen til det oprindelige.

NB: Hvis der er ralationer mellem den gamle tabel og andre tabeller i systemet, skal du være opmærksom på at få lavet disse igen med den nye tabel. Det er dog nok ikke tilfældet hvis der er dubletter.

/Thomas

Her får du den automatiseret i VBA:

Public Function SletDubletter(Tabel As String)
    Dim db As Database
    Set db = CurrentDb
    DoCmd.CopyObject , "tmp" & Tabel, acTable, Tabel
    db.Execute "Delete From [" & Tabel & "]"
    db.Execute "INSERT INTO [" & Tabel & "] SELECT DISTINCT * FROM [tmp" & Tabel & "]"
    DoCmd.SetWarnings False
    DoCmd.DeleteObject acTable, "tmp" & Tabel
    DoCmd.SetWarnings True
End Function

Læg ovenstående kode i et modul.
Herefter kan du kalde funktionen på mange måder.
Du kan f.eks.:
-trykke Ctrl+G og taste: Call SletDubletter("Navn på din tabel")
-lave en makro, med handlingen "Afspil kode" og handlingsargumentet: SletDubletter("Navn på din tabel")

Fortsat...

Her er den i en mere versions-uafhængig udgave:

Public Function SletDubletter(Tabel As String)
    DoCmd.SetWarnings False
    DoCmd.CopyObject , "tmp" & Tabel, acTable, Tabel
    DoCmd.RunSQL "Delete From [" & Tabel & "]"
    DoCmd.RunSQL "INSERT INTO [" & Tabel & "] SELECT DISTINCT * FROM [tmp" & Tabel & "]"
    DoCmd.DeleteObject acTable, "tmp" & Tabel
    DoCmd.SetWarnings True
End Function

Kan du få det til at virke?

Hvad er foreskellen på 'DoCmd.RunSQL "SQL String"' og 'CurrentDb.Execute "SQL String"'

blandt andet kræver currentdb, at der er en referene til DAO.

Samtidig skal man ikke beskræfte 'CurrentDb.Execute "SQL String"' som man skal med DoCmd.

beskræfte Hvad mener du med det? Hvis det betyder bekræfte ved jeg stadig ikke hvad du mener

Sorry jeg ikke svarede men internettet gik ned her oppe i Grønland!!! :)

Men det virker, jeg har brugt det første svar.

Tak, Jelle :o)

Skov-> Ja, jeg mener 'bekræfte' :o)
Hvis du kører en handlingsforespørgsel vha Docmd (f.eks. DoCmd.RunSQL "Delete From Tabel"), så bliver brugeren bedt om at bekræfte at man vil slette f.eks. 500 poster. Det gør du ikke med Currentdb.execute.