im looking at passing access data to word from subforms
<p>I am trying to get data from a subform into word, if there is more that 1 row of data(eg 1st row = 3 cats, 2nd row = 1 dog (Me![pets_Information]![PetType]) ) I can only get the 3 cats to copy to word, I am importing to Legacy Forms - Text Form Field.</p>
<p>What I need to achieve is :- 3 Cats, 1 Dog in the one text field</p>
<p>There seems to be very little of this that I can find on the internet, always finding just from the main form and nothing really regarding subform/childforms</p>
<p>There are 3 tables that I need to set this up for all have their own keyID's</p>
<pre><code>Function FillLetter()

    Dim appword As Word.Application
    Dim doc As Word.Document
    Dim path As String

    On Error Resume Next
    Err.Clear
    ''''''Chaange for which computer''''''''''''''
    path = &quot;F:\Access Stuff\Job for John - PSA\Homestay Provider Information.docx&quot;
    'path = &quot;G:\Access Stuff\Job for John - PSA\Homestay Provider Information.docx&quot;
    Set appword = GetObject(, &quot;word.application&quot;)
    If Err.Number &lt;&gt; 0 Then
        Set appword = New Word.Application
        appword.Visible = True
    End If
        Set doc = appword.Documents.Open(path, , True)
        With doc
            .FormFields(&quot;txtClientsFName&quot;).Result = (Me.Title) &amp; &quot; &quot; &amp; (Me!ClientFirstName) &amp; &quot; &quot; &amp; (Me!ClientFamilyName) '''works
            .FormFields(&quot;txtAddress&quot;).Result = (Me!Address) '''works
            .FormFields(&quot;txtSuburb&quot;).Result = (Me!Suburb) &amp; &quot;, WA &quot; &amp; (Me.PostCode) '''works
            

            .FormFields(&quot;txtContactType2&quot;).Result = (Me![Contact_Information]![ContactType]) &amp; &quot; &quot; &amp; (Me![Contact_Information]![ContactDetails])

            .FormFields(&quot;txtFamily&quot;).Result = (Me![Family_Information]![Relationship]) &amp; &quot; &quot; &amp; (Me![Family_Information]![Age])
            
            .FormFields(&quot;txtPolice&quot;).Result = Me!LegalCert '''works
            .FormFields(&quot;txtCosts&quot;).Result = Me!CPW '''works
            .FormFields(&quot;txtMeals&quot;).Result = Me.IEMeals '''works
            
            .FormFields(&quot;txtPets&quot;).Result = (Me![Pets_Infomation]![PetType])
    
            .FormFields(&quot;txtHobbies&quot;).Result = Me!HobbiesInterests '''works
            .FormFields(&quot;txtInstitute&quot;).Result = Me.Institution '''works
            .FormFields(&quot;txtTravel&quot;).Result = Me.ToUniCollege '''works
            .FormFields(&quot;txtOther&quot;).Result = Me!OtherInformation '''works
            .Visible = True
            .Activate
        End With
    
    Set doc = Nothing
    Set appword = Nothing

End Function
</code></pre>