Hall of Fame

1. angelIII983,351
2. aneeshatti...741,674
3. matthews...571,487
4. rrjegan17406,769
5. capricorn1406,214
6. mwvisa1393,008
7. ralmada334,041
8. Sharath_...326,005
9. BrandonG...272,108
10. reb73229,974
11. chapmandew221,436
12. peter57r201,096
13. mark_wills177,032
14. boag2000157,180
15. pcelba154,279
16. sdstuber140,116
17. TextReport134,666
18. acperkins132,452
19. DanielWilson125,383
20. DatabaseMX121,464
21. pivar117,472
22. mrjoltcola116,984
23. LSMCons...114,570
24. RiteshShah114,551
25. lwadwell114,353

1. angelIII3,010,791
2. capricorn11,252,886
3. matthews...1,236,223
4. aneeshatti...1,153,277
5. mwvisa1828,426
6. chapmandew710,108
7. mark_wills694,816
8. BrandonG...557,946
9. peter57r494,820
10. ee_rlee460,453
11. rrjegan17406,769
12. sdstuber398,017
13. DatabaseMX391,015
14. Sharath_...365,805
15. dqmq346,705
16. ralmada336,041
17. GRayL330,160
18. DanielWilson323,456
19. boag2000318,493
20. harfang298,054
21. LSMCons...279,439
22. jimhorn238,445
23. reb73229,974
24. acperkins227,845
25. imitchie220,374

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

6.8

How do I Export a List Box to Excel?

Asked by bobbat in SQL Query Syntax, Access Forms

In this case the list box is the lstSelected from Multipik (where you can make multiple selections in the lstAvailable box and those selected go into the lstSelected box). The query I use to generate the COMPLETE list of Serial numbers is shown below in the snippet. The command line I use to export the information in the query to Excel is: DoCmd.TransferSpreadsheet acExport, , "qry1aFromPatrick-Issued", Me.txtLastPath, True, "Breakdown", 1

What I want to do is only export the Serial Numbers (and their associated data) that appear in the lstSelected List Box. How do I connect the List Box and the Query? Add another WHERE clause?

NOTE 1: MulitPik routine as described in 'Access 2002 Desktop Developer's Handbook' by Litwin, Getz, and Gunderloy. (Sybex) Copyright 2001, Page 382.
NOTE 2: The snippet query can only be executed in SQL view. If you execute it in Access Query Design View, it wont work because Access will rewrite it before executing it.

View the Solution FREE for 30 Days

         
           
           
             SELECT DISTINCT B.[Serial Number], B.[Item Number], B.[F/W Ver], IIf([qryMaxOfConfigTable].[datMax]>[C].[datMax],[qryMaxOfConfigTable].[FieldValue],[B].[UID]) AS UID, "" AS HUB, "" AS A2sw, "" AS [Slf Test], "" AS Ntwrk, "" AS [P/F], "" AS Comments, "" AS [Final P/F]
FROM (Invoice AS A INNER JOIN ([Invoice Lineitems] AS B INNER JOIN [SELECT [Invoice Lineitems].[Item Number], 
				   [Invoice Lineitems].[Serial Number], 
				   Max([Invoice Lineitems].[Ship Date]) AS datMax FROM [Invoice Lineitems]
				GROUP BY [Invoice Lineitems].[Item Number], [Invoice Lineitems].[Serial Number]
				ORDER BY [Invoice Lineitems].[Item Number], [Invoice Lineitems].[Serial Number]]. AS C ON (B.[Item Number] = C.[Item Number]) AND (B.[Serial Number] = C.[Serial Number])) ON A.[Invoice Number] = B.[Invoice Number]) LEFT JOIN qryMaxOfConfigTable ON C.[Serial Number] = qryMaxOfConfigTable.[Serial Number]
WHERE (((B.[Serial Number]) Not In (SELECT  [Inventory Serialized Items].[Serial Number] FROM [Invoice Lineitems] LEFT JOIN [Inventory Serialized Items] ON [Invoice Lineitems].[Item Number] = [Inventory Serialized Items].[Item Number]
	WHERE ((([Invoice Lineitems].[Serial Number])=[Inventory Serialized Items].[Serial Number])))) AND ((B.[Item Number]) In ([Forms]![frmTandI2]![txtItemNumber1],[Forms]![frmTandI2]![txtItemNumber2])) AND ((A.[Invoice Type])="I") AND ((A.[Issued to User]) Like [Forms]![frmTandI2]![txtIssuedToUserCriteria]) AND ((A.[Invoice Date])>=[C].[datMax]))
ORDER BY B.[Item Number], B.[Serial Number];

           
         

20091021-EE-VQP-81 / EE_QW_2_20070628

How do I Export a List Box to Excel?

Asked by bobbat in SQL Query Syntax, Access Forms

About this solution