Einmalige Records für Feld zurückgeben

Question

Wir haben eine Access-Datenbank erstellen Sie eine CSV-Liste in einer Zugriffstabelle für jede Benutzer-ID, die sich an einem Computer anmeldet. Das Problem besteht darin, dass die Benutzer-ID dupliziert wird, wenn sich eine Benutzer-ID mehrmals auf einem Computer anmeldet.

Sagen wir also, das ist, was die Tabellenstruktur wie

computer  DailyUsers 
ABC-123  ml12, rs12, ml12, ml12, ee13 
DEF-456  zx44, aa33, zx44 

schaut Und das ist, was ich will eine Abfrage

Computer  DailyUsers 
ABC-123  ml12, rs12, ee13 
DEF-456  zx44, aa33 

Ich habe versucht, unter Verwendung von sowohl Group By und Distinct aber das sieht auf zurückkehren Zeile für Zeile, keine Feldbasis

Wie kann dies in Access 2013 erreicht werden?

Answer 1

Sie können eine benutzerdefinierte Funktion in VBA erstellen, um nur die eindeutigen Benutzer zurückzugeben.

Fügen Sie diese in einer VBA-Modul:

Option Compare Database 
Option Explicit 

Public Function DistinctOnly(txt As String) 

    Dim arr, v, rv As String 
    Dim d As Object 

    arr = Split(txt, ",") 
    If UBound(arr) > 0 Then 
     Set d = CreateObject("scripting.dictionary") 
     For Each v In arr 
      d(Trim(v)) = 1 
     Next v 
     rv = Join(d.keys, ",") 
    Else 
     rv = txt 
    End If 

    DistinctOnly = rv 
End Function 

Verbrauch:

SELECT Table1.[ID], Table1.[Users], DistinctOnly(Table1.[Users]) as UsersX 
FROM Table1; 

Eingangsdaten und Abfrageergebnisse: