Access data naar word documenten

[JohanError]

Hallo,
Wie kan mij helpen met het volgende access (2007) vraagstuk.
Ik heb verschillende data staan in een tabel (naam, klant, projectnummer..) ik wil nu die data gaan gebruiken om een word document in te vullen dit doe ik via docpropertys.
Maar er zijn verschillende documenten in verschillende talen(EN,NL,FR) naar gelang de keuze die ik aanvink met een checkbox'en wil ik die documenten open in word.
voorbeeld: ik check 3 verschillende documenten aan in het NL --> dus er gaan 3 documenten ingevuld open in word.
ik heb een form aangemaakt met tekst velden (naam, klant....) en een CMD knop voor een keuze tabel met check op te roepen. nu zou er nog een knop moeten komen de opdracht naar word uitvoert.

Wie kan mij daarbij helpen?

 

[OctaFish]

Ik zou zeggen: doe er een voorbeeldje bij, want dit is vrij specifiek, en dat heb ik zo niet liggen. En ik heb mijn typecursus al een tijdje geleden gehad .

 

[JohanError]

Zie bijlage voor de layout

 

[jwaque]

ik gebruik meestal de samenvoeg functie in word en gebruik dan als data de gegevens uit mijn access query.

Ik weet niet of je iets hebt aan deze code. waarbij een word doc wordt gevuld met acces gegevens.

Private Sub Knop16_Click()
Refresh
'medingen uitzetten
    DoCmd.SetWarnings False

'tabel maken met de brief gegevens
    DoCmd.OpenQuery "QryVerzendBrief"

 
'testhuisstijl2 openen
    Dim WordApp As Object
        Set WordApp = CreateObject("word.Application")
        WordApp.Documents.Open "G:\TestHuisstijl2.doc"
        WordApp.Visible = True

'MailMerge selected records from table to Word document
    With WordApp
        .ActiveDocument.MailMerge.OpenDataSource _
            Name:="G:\brieven\Adressen3.mdb", _
            LinkToSource:=True, Connection:="TblVerzendPostnr", _
            SQLStatement:="SELECT * FROM [TblVerzendPostnr]"          'in query tbverzendpostnr zitten de gegevens die ik wil verzenden
        .ActiveDocument.MailMerge.Execute
       ' .Close 0 hiermee wordt de opslag niet uitgevoerd.
    End With
'Name:="G:\Adressen3.mdb", _
'nieuwe bestand opslaan
'brief gegevens ophalen om in titel te bewaren

    Dim rs As Recordset
    'Dim sql As String
    Dim Referentie As String
    Dim db As Database
    Dim OmschrijvingPost As String
    Dim filenaam As String

    Set db = CurrentDb()

    With CurrentDb.OpenRecordset("TblVerzendPostnr")
            Referentie = !OnzeReferentie
            OmschrijvingPost = !OmschrijvingPost
            filenaam = Referentie & "_" & OmschrijvingPost
            
    End With
    DoCmd.Echo False, "Bezig met opslaan van adressenlijst"

      WordApp.Application.ActiveDocument.SaveAs ("G:\\" & filenaam & ".doc")
      WordApp.Quit SaveChanges:=False

     
        Set WordApp = Nothing
        DoEvents
        DoCmd.Echo True

 
'nieuwe document openen

Dim WordApp2 As Object
Set WordApp2 = CreateObject("word.Application")
WordApp2.Documents.Open "G:\" & filenaam & ".doc"
WordApp2.Visible = True
Set WordApp2 = Nothing

DoCmd.DeleteObject acTable, "tblverzendpostnr"