Waarde doorgeven

[jan13]

Hallo,

ik wil een rapport afdrukken vanuit een formulier. In dit rapport de adresgegevens van 1 ploeg. De naam van die ploeg moet doorgegeven. Daarvoor heb ik dit stukje code geschreven maar de procedure blijft me vragen om een parameter (ploegnaam) op te geven. Wanneer ik een ploegnaam invul wordt het rapport goed afgedrukt. Ook wanneer ik bijvoorbeeld de Where-voorwaarde vervang door "ploegen = 'junioren'" wordt het rapport goed afgedrukt. Wat gaat er fout?

Dim ploegnaam As String

ploegnaam = Me![ploegen]
MsgBox (ploegnaam)
stDocName = "rap_adressen_ploeg"
DoCmd.OpenReport stDocName, , , "ploegen =" & ploegnaam

 

[Tardis]

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "rap_adressen_ploeg"
stLinkCriteria = "[ploegen]= '" & Me.[ploegen] & "'
DoCmd.OpenReport stDocName, , , stLinkCriteria

Tardis

 

[jan13]

Bedankt Tardis

dit werkt.