bartprins999
Gebruiker
- Lid geworden
- 11 jul 2011
- Berichten
- 11
Hallo,
Ik heb een stukje code waar ik de afgelopen jaren een mailmerge mee uitvoer naar een Word-sjabloon. Op deze manier kan ik een brief naar 1 geselecteerd persoon samenvoegen en vervolgens een status meegeven.
Nu zou ik een zelfde mailmerge moeten uitvoeren maar nu naar een aantal geselecteerde mensen die een bepaalde status hebben. Dit betreft natuurlijk iedere keer een wisselende groep mensen.
Heeft een van jullie een idee hoe ik dit het beste kan oplossen? Alvast enorm bedankt voor het meedenken !
Dit is de code die ik voor de enkel geselecteerde klant gebruik :
Private Sub Intake_Click()
'Het geselecteerde record opzoeken en dan het dialoogvenster sluiten
Dim rst As DAO.Recordset
Dim strVoorletters As String
Dim strAchternaam As String
Dim strStraat As String
Dim strHuisnr As String
Dim strPostcode As String
Dim strWoonplaats As String
Dim strAanhef As String
Dim strRegioTelNr As String
Dim strRegios As String
Dim appword As New Word.Application
'De recordset van het formulier Subsribers opslaan
Set rst = Forms!Klanteninvoer.RecordsetClone
'Het record van de geselecteerde client zoeken
rst.FindFirst "Klanteninvoer.ID = " & Keuzelijst7
'Stel de eigenschap bookmark in om naar het gekozen record toe te gaan
Forms!Klanteninvoer.Bookmark = rst.Bookmark
strVoorletters = rst!Voorletters
strAchternaam = rst!Achternaam
strStraat = rst!Straat
strHuisnr = rst!Huisnr
strPostcode = rst!Postcode
strWoonplaats = rst!Woonplaats
strAanhef = rst!Achternaam
strRegios = rst![Regio's]
If strRegios = "1" Then
With appword
.Documents.Add "\\DATA\Brief.dotx"
.ActiveDocument.ShowSpellingErrors = False
.Selection.Goto wdgotobookmark, Name:="Naam"
.Visible = True
End With
With appword
.Selection.TypeText strVoorletters & " " & strAchternaam 'Achternaam vullen
.Selection.Goto wdgotobookmark, Name:="Adres" 'naar de bookmark adres gaan
.Selection.TypeText strStraat & " " & strHuisnr 'adres vullen
.Selection.Goto wdgotobookmark, Name:="PCWoonplaats" 'naar pc en woonplaats gaan
.Selection.TypeText strPostcode & " " & strWoonplaats 'pcwoonplaats vullen
.Selection.Goto wdgotobookmark, Name:="Aanhef" 'naar de aanhef gaan
.Selection.TypeText strAanhef
End With
End If
En vervolgens nog code om een statusupdate te geven in de tabel klanten
Ik heb een stukje code waar ik de afgelopen jaren een mailmerge mee uitvoer naar een Word-sjabloon. Op deze manier kan ik een brief naar 1 geselecteerd persoon samenvoegen en vervolgens een status meegeven.
Nu zou ik een zelfde mailmerge moeten uitvoeren maar nu naar een aantal geselecteerde mensen die een bepaalde status hebben. Dit betreft natuurlijk iedere keer een wisselende groep mensen.
Heeft een van jullie een idee hoe ik dit het beste kan oplossen? Alvast enorm bedankt voor het meedenken !
Dit is de code die ik voor de enkel geselecteerde klant gebruik :
Private Sub Intake_Click()
'Het geselecteerde record opzoeken en dan het dialoogvenster sluiten
Dim rst As DAO.Recordset
Dim strVoorletters As String
Dim strAchternaam As String
Dim strStraat As String
Dim strHuisnr As String
Dim strPostcode As String
Dim strWoonplaats As String
Dim strAanhef As String
Dim strRegioTelNr As String
Dim strRegios As String
Dim appword As New Word.Application
'De recordset van het formulier Subsribers opslaan
Set rst = Forms!Klanteninvoer.RecordsetClone
'Het record van de geselecteerde client zoeken
rst.FindFirst "Klanteninvoer.ID = " & Keuzelijst7
'Stel de eigenschap bookmark in om naar het gekozen record toe te gaan
Forms!Klanteninvoer.Bookmark = rst.Bookmark
strVoorletters = rst!Voorletters
strAchternaam = rst!Achternaam
strStraat = rst!Straat
strHuisnr = rst!Huisnr
strPostcode = rst!Postcode
strWoonplaats = rst!Woonplaats
strAanhef = rst!Achternaam
strRegios = rst![Regio's]
If strRegios = "1" Then
With appword
.Documents.Add "\\DATA\Brief.dotx"
.ActiveDocument.ShowSpellingErrors = False
.Selection.Goto wdgotobookmark, Name:="Naam"
.Visible = True
End With
With appword
.Selection.TypeText strVoorletters & " " & strAchternaam 'Achternaam vullen
.Selection.Goto wdgotobookmark, Name:="Adres" 'naar de bookmark adres gaan
.Selection.TypeText strStraat & " " & strHuisnr 'adres vullen
.Selection.Goto wdgotobookmark, Name:="PCWoonplaats" 'naar pc en woonplaats gaan
.Selection.TypeText strPostcode & " " & strWoonplaats 'pcwoonplaats vullen
.Selection.Goto wdgotobookmark, Name:="Aanhef" 'naar de aanhef gaan
.Selection.TypeText strAanhef
End With
End If
En vervolgens nog code om een statusupdate te geven in de tabel klanten