How to query and display a list of items in a single text box.

I am currently working on an ID Badge project for my organization.

I have a number of  table, the primary is the employee details, and a secondary table tbl_emp_endorsements which contaings all the departments each employee is trained to work in as well as any special skills they have been trained on.

I've enclosed a sample database to give an idea of what I"m working with.

My basic issue is that I can get single field data onto the badge, however when an employee has been authorized tyo work in multiple departments, however do I get this information to populate on one badge?  to complicate matters, I have to do this twice as Skills are listed on another line.

Example

Endoresement Section of the badge

      DEPARTMENTS
FIP  REC  SHP <----multiple department records by employee
            SKILLS
A  C  D  G  J  <------multiple skill records by employee

So esentially, I want the Badge grouped by employee with a detail section for Departments and one for Skills.  Then I need all the data concantenated into a text box.

I hope I was able to explain my intentions well enough.  Thanks for any input.
Badge-Sample.accdb
MCaliebeAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Jeffrey CoachmanMIS LiasonCommented:
First, you have inconsistent data in your tables...

As I try to link the appropriate fields in the relationship screen, I get referential integrity errors and "Indeterminate" Relationship types.

So this need to be fixed first...
0
Jeffrey CoachmanMIS LiasonCommented:
You are also using oddly named Keys...
in tblEndoresments, the key is "skill"?

In the Customer table the Pk should be CustomerID
In the Order table the PK should be OrderID
In the Products table the PK should be ProductID
In the BT6reDs243Sw782 table the PK should be BT6reDs243Sw782ID
....Make sense...?
0
Jeffrey CoachmanMIS LiasonCommented:
...and you really need not store the Department in the Employes table, ...

If one Emp can have many Departments, then you need a "Junction" table...
0
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

Dale FyeOwner, Developing Solutions LLCCommented:
unable to download your app due to corporate policies.

However, what you are looking for is the ability to concatenate data from a one-to-many relationship into a single result.

To do this, you would create a query and then a recordset based upon that query.  Then loop through the recordset, building a string that contains the values you are looking for.  Something like:

Dim strSQL as string
Dim rs as DAO.Recordset
Dim strDept as string

strSQL = "SELECT tblEmpDepts.Dept FROM tblEmployees INNER JOIN tblEmpDepts " _
            & "ON tblEmployees.EmpID = tblEmpDepts.EmpID " _
           & "WHERE tblEmployees.EmpID = 25"
set rs = currentdb.openrecordset(strsql,,dbfailonerror)
While not rs.eof
    strDept = strDept & "," & rs!Dept
    rs.movenext
Wend
strDept = mid(strDept, 2)

rs.close
set rs = nothing


Then, in order to concatenate several items for display in a single multi-line textbox you would do something like:

me.txtDeptAndSkills = "Departments:" & vbcrlf & strDepartments & vbcrlf & vbcrlf _
                                  & "Skills:" & vbcrlf & strSkills
0
MCaliebeAuthor Commented:
Thanks everyone.

I see a number of good suggestions here.  I will be looking at them all.  I pulled this data from another database so I might have disturbed some of the relationships.  Let me look at it all and see what I come up with.

Thanks again!
0
Dale FyeOwner, Developing Solutions LLCCommented:
See fnConcat in the accepted response to this thread
0
Jeffrey CoachmanMIS LiasonCommented:
...On your basic "Design"...
Here is a sample DB.

In the Report, I left the Departments and Skills in "Tabular" format, just so that you can see that if the "design" is correct then this is fairly straightforward...

I will tweak a sample up with the "concatenation a bit later...
Access--report-Employee-Badges-M.mdb
0
Jeffrey CoachmanMIS LiasonCommented:
Practically all done for you...
BadgesI am sure you can take this and adapt it for your uses
(Page Breaks, Columns, headings, ...etc)

;-)

JeffCoachman
Access--report-Employee-Badges-M.mdb
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Dale FyeOwner, Developing Solutions LLCCommented:
Over achiever!

Have a nice weekend, Jeff!

Dale
0
Jeffrey CoachmanMIS LiasonCommented:
Lol

Happy Gesticulating...

Jeff
0
MCaliebeAuthor Commented:
Haha...you guys are great.

Thank you so much for your work Jeff.  The examples will help me tremendously.  As I'm not "clasically" trained, my databases are pretty much fly by night.  I'm certain I am at a loss for some of the simpler pricipals in DB design.

I'll look to apply the structures detailed.

Have a great weekend.

Michael
0
Jeffrey CoachmanMIS LiasonCommented:
Than as I stated, you might want to get *really* comfortable with the basic database theories...
Normalizarion
Keys
Relationships
...ect
*Before* you ever start  worrying about custom reports...

As I stated, if your DB was originally normalized, this would all be easy...

See this book as a start:
http://www.amazon.com/Database-Design-Mere-Mortals-Relational/dp/0201752840/ref=dp_ob_title_bk


Keep us posted on your progress...


JeffCoachman
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.