Solved

Access Querry--Combine Records

Posted on 2014-10-10
7
145 Views
Last Modified: 2014-10-12
I have an Access Query in which I would like to combine fields within the same data-record so that multiple rows are not produced.  This happens because there is one field that could have more than one input and thus creates a new row for each of those inputs (with mostly duplicate information).

I've attached a spreadsheet that should give you an idea of exactly what I'm talking about.  Note that Client 3 has multiple License Numbers and thus creates multiple Rows in the report.  Can I combine this so that only one row is produced per client (with commas separating each License Number)?

If anyone could walk me through the steps on how to do this, it would be most appreciated.
Example.xls
0
Comment
Question by:mdstalla
  • 3
  • 3
7 Comments
 
LVL 39

Expert Comment

by:als315
ID: 40374513
You can use DConcat function from Patrick Mattews article Domain Aggregate for Concatenating Values by Group in Microsoft Access
0
 

Author Comment

by:mdstalla
ID: 40375322
I used his codes-- and while it does merge License No.'s it does not delete duplicate Clients (see attached).

Do you happen to have a code that I can pair with this one that will automatically delete all duplicate records after the merge is complete?

I've also included the database—it's under Query:  Table1 Query

Thanks.
Example.xls
0
 

Author Comment

by:mdstalla
ID: 40375324
Forget the last sentence--my database is too big to share.
0
Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

 
LVL 39

Expert Comment

by:als315
ID: 40375349
Add Group By all fields to your query
0
 
LVL 39

Accepted Solution

by:
als315 earned 500 total points
ID: 40375353
Look at sample
DBConcat.accdb
0
 

Author Closing Comment

by:mdstalla
ID: 40375729
Duh... I knew I was forgetting to do something really simple.

This worked perfectly.  Thanks for all of your help.
0
 
LVL 30

Expert Comment

by:hnasr
ID: 40375774
Building on database uploaded by als315 (with thanks), as an example

Check Query2 as cross tab from Table1.
TRANSFORM Table1.[License No#]
SELECT Table1.Client, Table1.Name, Table1.DOB
FROM Table1
GROUP BY Table1.Client, Table1.Name, Table1.DOB
PIVOT Table1.[License No#];

Open in new window


Query3 produces the required output, using function newClient(Client As Variant) in Module1.
SELECT Query2.Client, newClient([Client]) AS licenses, Query2.Name, Query2.DOB
FROM Query2;

Open in new window

Function newClient(client As Variant) As String
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Query2 WHERE Client ='" & client & "'")
    Dim i As Integer
    Dim s As String
    s = ""
    For i = 3 To rs.Fields.Count - 1
        If Not IsNull(rs.Fields(i)) Then
            If s = "" Then
                s = rs.Fields(i)
            Else
                s = s & "," & rs.Fields(i)
            End If 's not empty
        End If ' field not null
    Next
    newClient = s
End Function

Open in new window

DBConcat-2.accdb
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

It took me quite some time to sort out all the different properties of combo and list boxes available from Visual Basic at run-time. Not that the documentation is lacking: the help pages are quite thorough and well written. The problem was rather wh…
In the article entitled Working with Objects – Part 1 (http://www.experts-exchange.com/Microsoft/Development/MS_Access/A_4942-Working-with-Objects-Part-1.html), you learned the basics of working with objects, properties, methods, and events. In Work…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now