ROBBYWUYTACK
Gebruiker
- Lid geworden
- 30 mei 2016
- Berichten
- 9
Hoi,
ik heb een database waarin ik het vormingsdossier van mijn kandidaten in kan opvolgen.
Van hieruit zou ik een mail merge willen maken met de beoordelingsdocumenten die zich bevinden in word. Het liefst met een simpele druk op een knop.
Na zoeken op het web ben ik tot deze code gekomen maar ik krijg steeds een foutmelding (Compile error: User Defined-Type not defined) en weet niet waardoor kan er iemand helpen??
Private Sub NL_Click()
Dim strFilePath As String
Dim objWord As Word.Document
DoCmd.Runquery "qryContacts"
strFilePath = "N:\STX\VMG-COMDO\C&O\LOO\MASTERS\MAILINGS\NL\5. NAAM KANDIDAAT - TOT-VAN - 1° GPV-Kar - NS.docx"
Set objWord = GetObject(strFilePath, "5. NAAM KANDIDAAT - TOT-VAN - 1° GPV-Kar - NS.docx")
objWord.Application.Visible = True
objWord.MailMerge.OpenDataSource _
Name:="N:\STX\VMG-COMDO\C&O\LOO\MASTERS\LOO ADMINISTRATIE.accdb", _
LinkToSource:=True, _
Connection:="TABLE Contacts", _
SQLStatement:="SELECT * FROM [Contacts] WHERE [ID]=[IDN°]"
Set objWord = Nothing
End Sub
ik heb een database waarin ik het vormingsdossier van mijn kandidaten in kan opvolgen.
Van hieruit zou ik een mail merge willen maken met de beoordelingsdocumenten die zich bevinden in word. Het liefst met een simpele druk op een knop.
Na zoeken op het web ben ik tot deze code gekomen maar ik krijg steeds een foutmelding (Compile error: User Defined-Type not defined) en weet niet waardoor kan er iemand helpen??
Private Sub NL_Click()
Dim strFilePath As String
Dim objWord As Word.Document
DoCmd.Runquery "qryContacts"
strFilePath = "N:\STX\VMG-COMDO\C&O\LOO\MASTERS\MAILINGS\NL\5. NAAM KANDIDAAT - TOT-VAN - 1° GPV-Kar - NS.docx"
Set objWord = GetObject(strFilePath, "5. NAAM KANDIDAAT - TOT-VAN - 1° GPV-Kar - NS.docx")
objWord.Application.Visible = True
objWord.MailMerge.OpenDataSource _
Name:="N:\STX\VMG-COMDO\C&O\LOO\MASTERS\LOO ADMINISTRATIE.accdb", _
LinkToSource:=True, _
Connection:="TABLE Contacts", _
SQLStatement:="SELECT * FROM [Contacts] WHERE [ID]=[IDN°]"
Set objWord = Nothing
End Sub