Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Doppelte Datensätzte rauslöschen
zurück: Daten aus Listfeldern speichern weiter: Fehlermeldung: "Undefinierte Funktion 'Left$' in Ausdru Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Sainen
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jun 2004, 19:47
Rufname:
Wohnort: Hamburg

Doppelte Datensätzte rauslöschen - Doppelte Datensätzte rauslöschen

Nach oben
       

Hallo Leute,
ich habe ein sehr dringendes PRoblem.
Ich möchte aus meine Tabelle "KUNDEN" alle Doppelte Datensätze herausfinden und einen davon löschen,d.h. wenn ich einen Kunden 2 mal in meiner Datenbank habe möchte ich den aktuelleren behalten und den älteren Löschen.
Der Aktuellere hat eine Nummer die Höher ist als der Ältere.

Die Dopplete herauszufinden ist nicht das PRoblem sondern einen der beiden zu löschen.

Hat einer von euch ein Lösungsvorschlag.
Danke!

Sianen
Helge
Moderator Trotzdem kann i. nicht alles wissen


Verfasst am:
06. Jun 2004, 14:01
Rufname:
Wohnort: Hannover / Seelze


AW: Doppelte Datensätzte rauslöschen - AW: Doppelte Datensätzte rauslöschen

Nach oben
       

Hallo Sianen,

wie gute sind den Deine VBA Kentniessee!???

Hier ein kleines Beispiel wie du es Machen kannst....

Folgende eingaben musst Du durch deine Ersetzen...

Adressen = Deine Tabelle Kunden
Suchname = Feld in Deiner Tabelle mit den Kundennamen
AdressenNr = Eindeutiges Feld in Deiner Tabelle (Nummer??)

Code:
Function DuplikateLöschen()
    Dim rsAbfrage As Recordset
    Dim rsTabelle As Recordset
    Dim DB As Database
    Dim Kunde As String
    Dim Weiter As String
   
    Weiter = True
    Set rsAbfrage = Nothing
    Set rsAbfrage = DBEngine(0)(0).OpenRecordset( _
    "SELECT Adressen.Suchname, Adressen.AdressenNr " & _
    "FROM Adressen " & _
    "WHERE (((Adressen.Suchname) In (SELECT [Suchname] FROM [Adressen] As Tmp GROUP BY [Suchname] HAVING Count(*)>1 ))) " & _
    "ORDER BY Adressen.Suchname, Adressen.AdressenNr DESC ")

    While Not rsAbfrage.EOF
        If Kunde = rsAbfrage!Suchname Then
            Set rsTabelle = Nothing
            Set rsTabelle = DBEngine(0)(0).OpenRecordset( _
            "SELECT Adressen.*, Adressen.AdressenNr " & _
            "FROM Adressen " & _
            "WHERE (Adressen.AdressenNr)= " & rsAbfrage!AdressenNr)
             rsTabelle.Delete
             Weiter = False
             Set rsTabelle = Nothing
        End If 'Suchname
        If Weiter = True Then
            Kunde = rsAbfrage!
          Else
            Weiter = True
        End If
        rsAbfrage.MoveNext
    Wend
    Set rsAbfrage = Nothing
End Function

Dran denken immer mit einer Kopie Probieren...

Gruß Helge
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: doppelte Datensätze löschen, aber mit Bedingung ? 2 TorstenVE 1302 16. Jan 2008, 19:11
rita2008 doppelte Datensätze löschen, aber mit Bedingung ?
Keine neuen Beiträge Access Tabellen & Abfragen: Problem doppelte Datensätze - Abfrageübergabe für Word 1 kevin80 592 04. Jan 2008, 19:25
steffen0815 Problem doppelte Datensätze - Abfrageübergabe für Word
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Datensätze raussuchen 2 derMischa 582 27. Nov 2007, 12:26
derMischa Doppelte Datensätze raussuchen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Tabellen vergleichen und doppelte entfernen 3 idontknow 604 14. Nov 2007, 12:51
Nouba 2 Tabellen vergleichen und doppelte entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Einträge in Abfrage vermeiden 10 Marja 1119 20. Sep 2007, 13:12
Marja Doppelte Einträge in Abfrage vermeiden
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: zählen ohne Doppelte 3 Mikla 1633 08. März 2007, 11:49
Mikla Abfrage: zählen ohne Doppelte
Keine neuen Beiträge Access Tabellen & Abfragen: doppelte Entfernen 2 dkaj 694 19. Feb 2007, 17:52
dkaj doppelte Entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Datensätze bei Abfragen 4 Ingo64 581 03. Feb 2007, 22:15
Ingo64 Doppelte Datensätze bei Abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Spalteneintraeg aus Abfrage zusammenfuegen in ein 1 Realrom 479 01. Feb 2007, 08:05
jens05 Doppelte Spalteneintraeg aus Abfrage zusammenfuegen in ein
Keine neuen Beiträge Access Tabellen & Abfragen: doppelte Einträge vergleichen 2 Juana 694 08. Jun 2006, 11:45
Gast doppelte Einträge vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Datensätze 1 JJ123 808 13. März 2006, 12:32
Gast Doppelte Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: doppelte einträge (nur von einem Feld) nicht anzeigen 1 bweinhap 1214 09. Feb 2006, 18:05
lothi doppelte einträge (nur von einem Feld) nicht anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript