1. GrahamSkan796,582
2. JOrzech787,864
3. dlc110...164,644
4. EricFletcher137,758
5. irudyk134,100
6. redrumkev124,525
7. chris_bot...94,792
8. matthews...78,210
9. dopyiii74,025
10. finalword65,908
11. tbsgadi60,476
12. wobbled45,168
13. jkunrein44,129
14. Antagony...38,375
15. MaduKp34,228
16. geneus32,650
17. rorya30,244
18. RapidDelp28,714
19. war127,471
20. bhwithun26,600
21. bob_the...25,496
22. Flyster19,200
23. dmang19,175
24. BlueDevilF...17,850
25. Helen_Fe...17,541

1. GrahamSkan4,623,207
2. JOrzech2,260,460
3. EricFletcher647,147
4. dopyiii632,563
5. Dreamboat494,526
6. dlc110...410,770
7. R_Rajesh366,789
8. irudyk358,153
9. matthews...278,353
10. byundt271,940
11. redrumkev269,260
12. geneus244,987
13. bruintje174,015
14. KCTS172,461
15. Sheharya...170,506
16. chris_bot...164,288
17. war1158,153
18. wobbled157,075
19. gilbar144,686
20. Glenn_M...132,839
21. Flyster126,405
22. gbahri103,211
23. rorya97,874
24. cquinn91,580
25. TonyJollans91,207

	[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.

03/19/2008 at 09:28PM PDT, ID: 23255950

	[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!

7.7

Transfer Access data to Word

Asked by billcute in Microsoft Word, Microsoft Excel Spreadsheet Software, Access Forms

I am not too sure if the experimentation below is possible, I just want to try it.

User fills an Access form and clicks the Export button to fill the Word Template. I am able to fill on the first two lines of the form successfully.

What I will like to do now, is to add the following functionalities such as:
a checkmark or a Yes / No entry on the form and:
a circling a word on the Word Template.

Any assistance will be appreciated.

(a). If Access table stores main form's combo value as either "TA", "TP", "WC", PL, WP, RR, and RP
...that is:....cboGroup.column (0).value stored as a four character text value in
the table as "TA", "TP", "WC", PL, WP, RR, and RP
...eg tblMain.GroupID = TA, tblMain.GroupID = TP, tblMain.GroupID = PL, tblMain.GroupID = WC
etc.....

In populating this to FrmTest, how can I change this stored text to a checkbox as required
on the form assuming that the checkboses are named:
"chkTA", "chkTP", "chkWC", chkPL, chkWC, chkWP, chkRR, and chkRP
Note: Only one checkbox can be set to True at any given time.

(b). Assuming that I have also other checkboxes in the table stored as checkboxes or "Yes" / "No" how can I print it in the Word template form as either a check mark "X" or as "Yes" or "No"

If tblMain.Checkbox = Yes then place an X value in the Word Form
with a bookmark Cross Connection Control Approval Notice fields

(In my example, I only showed one checkbox, there are in fact four checkboxes
in my original db which I will bookmark in the Word Form)

Note: Only one type can be checked "X" at any given time

*** Please see the attached Word template form for the "Cross Connection Control Approval Notice fields..

Finally.
(c). Finally, how can I place circle around the corresponding word in the Word Form if
tbMain.TypeID = DM ( circle Domestic); or tbMain.TypeID = FR (circle Fire);
or tbMain.TypeID = SP (cirdle Sprinkler) or tbMain.TypeID = SD (Standpipe) or tbMain.TypeID = CM (Combined)

Note: Only one type can be circled at any given time
***************
Please find attached a sample db with a table and form. Also find attached a Word template Form to provide visuals of the experimentation.

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

           
           
             Here is my current test code for exporting Access data to Word Template Form.
 
Private Sub btnExport_Click()
    Dim objWord As Word.Application
 
    'Start Microsoft Word .
    Set objWord = CreateObject("Word.Application")
 
    With objWord
        'Make the application visible.
        .Visible = True
 
        'Open the document.
        .Documents.Open ("C:\Word\frmTest.dot")
 
      'Move to each bookmark and insert text from the form.
        
        .ActiveDocument.Bookmarks("BlokNo").Select
        .Selection.Text = (CStr(Forms!frmorders!txtBlockNo))
        .ActiveDocument.Bookmarks("LotNo").Select
        .Selection.Text = (CStr(Forms!frmorders!txtLotNo))
        .ActiveDocument.Bookmarks("Address").Select
        .Selection.Text = (CStr(Forms!frmorders!txtAddress))
        .......................................
        '...................etc...
       
    End With
'**************************** Not Needed **************** so delete it******
    'Print the document in the foreground so Microsoft Word will not close
    'until the document finishes printing.
    ' objWord.ActiveDocument.PrintOut Background:=False
 
    'Close the document without saving changes.
    'objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
'**************************** Not Needed **************** so delete it******
 
    'Quit Microsoft Word and release the object variable.
    objWord.Quit
    Set objWord = Nothing
    Exit Sub
End Sub
           
         

Attachments:

frmTest.doc (31 KB) (File Type Details)

Open and rename with .dot extension

AccessToWord.txt (1.2 MB) (File Type Details)

Download and rename to .mdb extension

20091111-EE-VQP-91 / EE_QW_2_20070628

Transfer Access data to Word

Asked by billcute in Microsoft Word, Microsoft Excel Spreadsheet Software, Access Forms

About this solution