Verwijzing naar veld in sub-subformulier met VBA expressie

[jvandervliet]

Beste mensen,

Hoe maak ik in vba een verwijzing naar een veld in sub-su

Dit is de bestaande Code:

' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[SchemaID] = " & Str(Nz(Me![KeuzeOefening], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

[SchemaID] staat in Klanten -> SchemaPeriode -> Schema.

Dus een verwijzing van hoofdformulier Fitness via Subformulier SchemaPeriode in Sub-subformulier Schema.

Zelf had ik het volgende bedacht:

'
rs.FindFirst "Forms![Fitness]![Subformulier SchemaPeriodeID]![Subformulier Schema].[SchemaID] = " & Str(Nz(Me![KeuzeOefening], 0))

Alvast hartelijk dank.

 

[OctaFish]

Ik zou dit eens proberen:

rs.FindFirst "Forms!Fitness!Subformulier_SchemaPeriodeID.Form!Subformulier_Schema.Form.SchemaID.Value = " & Str(Nz(Me![KeuzeOefening], 0))

Overigens vind ik [Subformulier SchemaPeriodeID] een vreemde naam voor een subformulier, klinkt toch meer als een specifiek veld, maar dat terzijde...

 

[jvandervliet]

Foutje van me.

Maar in ieder geval hartelijk dank voor de reactie. Het is gelukt!