Duplikate erkennen

4
(1)
Beitrag bewerten
Ersten Kommentar schreiben
Stand: 10. November 2011

Duplikate zum Datensatz im gleichen Formular

Listiges Listenfeld

Erstellen Sie also auf dem Formular frmKunden ein Listenfeld namens lstDuplikate, löschen die Schaltfläche btnDuplikate:

Bild vergrößernDer Entwurf erhält ein neues Listenfeld

Dann ändern Sie den Code in der Prozedur SucheDuplikate() wie folgt:

Private Sub SucheDuplikate(strKontaktperson As String, strOrt As String)
    Dim lngAnzahl As Long

    m_strSuchkriterien = "[Kontaktperson] LIKE '*" & strKontaktperson & "*' AND [Ort] LIKE '*" & strOrt & "*' AND [Kunden-Code] <> '" & Me.Kunden_Code.Value & "'"

    lngAnzahl = DCount("*", "Kunden", m_strSuchkriterien)
    If lngAnzahl = 0 Then
        Me.lblDuplikate.Visible = False
        Me.lstDuplikate.Visible = False
    Else
        With Me.lblDuplikate
            .Visible = True
            .Caption = lngAnzahl & " Duplikate"
        End With
        With Me.lstDuplikate
            .Visible = True
            .RowSource = "SELECT * FROM [Kunden] WHERE " & m_strSuchkriterien
        End With

    End If
End Sub

Mit geeigneten Angaben zu deren Eigenschaften Spaltenanzahl ("6") und Spaltenbreiten ("1cm;3cm;2cm;3cm;0cm;2cm") sowie eine angepassten Gesamtbreite sollte diese Liste nun schon brauchbar funktionieren.

Bild vergrößernDas Listenfeld zeigt die Duplikate nun übersichtlich an

Mitglied werden, Vorteile nutzen!

  • Sie können alles lesen und herunterladen: Beiträge, PDF-Dateien und Zusatzdateien (Checklisten, Vorlagen, Musterbriefe, Excel-Rechner u.v.a.m.)
  • Unsere Autoren beantworten Ihre Fragen

Downloads zu diesem Beitrag

Newsletter abonnieren