stLinkCriteria lukt niet

[scw]

Goedeavond,

De volgende code gebruik ik onder een button op een formulier (zie voorbeeld!) om een nieuw formulier te openen op basis van het KlantID op het subformulier:


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmKlant"

stLinkCriteria = Me.frmSubKlanten.Form.[KlantID].Value = " & Me.[frmSubKlanten].Form.[KlantID].Value & "
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog


Helaas slaat Access hier op vast :O Wat doe ik nu verkeerd in de code, of mogelijk zijn er nog andere suggesties om het zelfde doel te bereiken??

Dank u voor jullie antwoord(en) alvast!:thumb:

 

[OctaFish]

In je Criterium vergelijk je de waarde uit het formulier met zichzelf. De uitkomst daarvan is Waar, of Niet-waar, afhankelijk van wat je kiest.
Je kunt dat testen door onder de definitie van het criterium deze opdracht te zetten: Msgbox stLinkCriteria. Dan zie je niet: KlantID=92, of iets vergelijkbaars, maar Waar of Niet waar.

Verander je Criteriumregel naar dit:
stLinkCriteria = "[KlantID] = " & Me.[frmSubKlanten].Form.[KlantID].Value

 

[scw]

Het werkt!

Hé Michel,

Hartelijk dank voor je erg duidelijke uitleg en uiteindelijke oplossing! Het werkt eindelijk naar behoren!

Nogmaals mijn dank!