Solved

Access Querry--Combine Records

Posted on 2014-10-10
7
149 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
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 
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

Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

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

It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…

809 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