Docmd.Openform criteria neemt niet in subform

[xurm]

ben al 6u aan het zoeken aan dit waarschijnlijk dom geval:

unbound form Frm_Calc, met 2 bound subform's.Sub_klant & Sub_Calc alles werkt perfect, ook gegevens tussen de twee uitwisselen...
nu, 2de form: Frm_search recordsource: Tbl_Client, filtertje op, geeft maar 1 klant weer, met het veld ClientID, (nochtans zelfde controlsource als het subform), waar dus de vergelijking moet komen om Frm_Calc moet te openen...
relaties:
tussen Tbl_Client en Tbl_Calc (en dus de 2 subforms), ��n-op-veel, met referentiele integriteit , ma das meer voor andere functies....

ik druk op men commandknopje Openklant:

Private Sub cmdOpenklant_Click()
On Error GoTo Err_cmdOpenklant_Click
   Dim stDocName As String
   Dim stLinkCriteria As String

    stDocName = "Frm_Calc"
    stLinkCriteria = "[Forms]![Frm_calc]![Sub_klant]![KlantId] = " & Me![KlantId]

    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
Exit_cmdOpenklant_Click:
    Exit Sub

Err_cmdOpenklant_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenklant_Click
    

End Sub

doet ie het volgende
hij opent de form Frm_calc op de eerste record, niet op de record met de klantID die is uitgefilterd in de form Frm_search...
heb al andere zaken ook geprobeerd zoals applyfilter, dlookup , ...
als ik deze openlaat, teruggaat naar Frm_search en nog is op Command Openklant klikt,
geeft ie me:
"Deze actie of methode is ongeldig omdat het formulier of rapport niet is verbonden met een tabel of query"
Hetgeen me vermoed, dat de

[Forms]![Frm_calc]![Sub_klant]![KlantId]

part niet verwijst naar het juiste subform, maar naar de form, maar zelfs met .value erachter ed. lukt het me niet...

wat ie moet doen:
als Frm_Search, clientID 12 is, moet die sub_calc, clientID ook op 12 zetten, an natuurlijk gans de record invullen (naam, adres,...)

ik heb deze code en form al meermaals gebruikt, eerste keer om te laten werken heb ik hier ook gevraagd en opgelost (Kudos to Octafish!! :thumb
Maar zit nu al 6u op hetzelfde fout te zoeken en zie het gras niet meer tussen de bomen...

thanks in advance for all the glance

 

[OctaFish]

Allicht dat je dit nog eens kunt proberen:

stLinkCriteria = "[KlantId] = " & Me![KlantId]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Waar je (denk ik) de teil mee ingaat is dat je niet filtert op het geopende formulier, maar naar het vorige formulier. Je wilt het nieuwe formulier filteren. Dus moet je een veld uit dat nieuwe formulier gebruiken, en ik ga er maar even vanuit dat dat KlantID is...