Mailmerge filter automatisch instellen in word

[Steentje86]

Ik maak gebruik van Word 2007.

Ik heb met behulp van de mailmerge functie binnen word een verbinding gemaakt met 1 tabel in een sql database. Nu is het mogelijk om een filter ui te voeren op de records binnen deze tabel.

Nu zou ik graag willen dat deze filter automatisch word ingevuld tijdens het openen van de template.

Hoe doe ik dit?

 

[Steentje86]

Ik heb het probleem met de volgende code kunnen oplossen:

Varusername = Environ("USERNAME")
If ActiveDocument.MailMerge.DataSource.FindRecord(FindText:=Varusername, Field:="Username") = True Then _
numRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End
ActiveDocument.MailMerge.DataSource.ActiveRecord = numRecord
offerteinvoer.Show

U ziet dat ik na het selecteren van het juiste record een form wil openen. Op een of andere manier wil hij dit niet uitvoeren. Ik heb het gevoel dat dit komt door de voorgaande code. Deze heeft invloedt op het openen van het form. Hoe moet ik dit oplossen.

 

[henkhoogerbrug]

Je begint met een If-statement, maar je beëindigt deze met "End" in plaats van "End If".

Probeer dit stukje code anders eens met F8 stap voor stap te doorlopen, dan zie je vanzelf waar het fout gaat.