How does one link fields in Access to text boxes in Word

[Pedigreeman]

I have various text boxes in a Microsoft Word database, which I would like to be linked to different fields in an Access database.

Ultimately, I would like a situation in which clicking on a button in my Access form, brings up this Word document with the details for that specific Access record, already filled in.

Any suggestions? I am a novice so kindly assume I know very little about Access.

Many thanks

 

[DCrake]

What do you mean Microsoft Word Database?

 

[Pedigreeman]

What do you mean Microsoft Word Database?

by that I mean Microsoft Word Document. Any suggestions?

 

[Pedigreeman]

tough crowd...

For those trying to do this - You can use something called mail merge wizard, in which the word 'recipients' can be assumed to mean rows. However this brings up an SQL warning every time you want to open up the word document from Access, which is a little annoying.

I used a clumsy work-around in the end. Go to the word document - zoom in, and press print screen and copy and paste onto MS paint. Put the pieces of the puzzle together and save the complete Jpeg of your document. Load it onto Access as a background image on a form, and populate that form with text boxes containing your data in the relevant places on the background...you are welcome.

 

[Adi]

On my system, I create a Word Template from my Word Document and within that template, I insert "bookmarks" where I want database data to be input.

I've then coded a CommandButton on my database form, which using the code below grabs the data from my database form, opens up a new Word document based on the template and copies data from my database form fields into the bookmarks in the new Word document.

The code behind the command button I use is:-

Private Sub cmdNewReport_Click()

Const conTEMPLATE_NAME = "X:\Templates\Asbestos Survey.dot"

   Set mobjWordApp = New Word.Application
   
   With mobjWordApp
      .Visible = True
      .WindowState = wdWindowStateMaximize
      .Documents.Add Template:=(conTEMPLATE_NAME)
      .ActiveDocument.Bookmarks("bmkProjName1").Range.Text = Me.strProjectName
      .ActiveDocument.Bookmarks("bmkProjName2").Range.Text = Me.strProjectName
      .ActiveDocument.Bookmarks("bmkProjCity1").Range.Text = Me.City
      .ActiveDocument.Bookmarks("bmkProjCity2").Range.Text = Me.City
      .ActiveDocument.Bookmarks("bmkProjPC1").Range.Text = Me.PostCode
      .ActiveDocument.Bookmarks("bmkProjPC2").Range.Text = Me.PostCode
      .ActiveDocument.Bookmarks("bmkClientName").Range.Text = Me.Client
      .ActiveDocument.Bookmarks("bmkClientAdd").Range.Text = Me!sub_Clients.Form.ClientAdd
      .ActiveDocument.Bookmarks("bmkSurveyDate").Range.Text = Me.Asb_SurveyDate
      .ActiveDocument.Bookmarks("bmkSurveyDate2").Range.Text = Me.Asb_SurveyDate
      .ActiveDocument.Bookmarks("bmkProjRef").Range.Text = Me.cbxProject
      .ActiveDocument.Bookmarks("bmkSurveyRef").Range.Text = Me.Asb_SurveyRef

      If IsNull(Me.Address) Then
      Else
      .ActiveDocument.Bookmarks("bmkProjAdd1").Range.Text = Me.Address
      .ActiveDocument.Bookmarks("bmkProjAdd1b").Range.Text = Me.Address
      End If
      If IsNull(Me.Address2) Then
      Else
      .ActiveDocument.Bookmarks("bmkProjAdd2").Range.Text = Me.Address2
      .ActiveDocument.Bookmarks("bmkProjAdd2b").Range.Text = Me.Address2
      End If

End With
DoEvents
Set mobjWordApp = Nothing
On Error GoTo Err_Enveloppe2_Click

Exit_Enveloppe2_Click:
Exit Sub

Err_Enveloppe2_Click:
MsgBox Err.Description
Resume Exit_Enveloppe2_Click

End Sub

Hope this helps

 

[Pedigreeman]

Adi, that sounds like a much better approach.

Many thanks for your help.