Ik heb twee formulieren: frmRolbeheer en frmsubBulk met frmsubBulk als subformulier van frmBulk (zie bijlage). Op het formulier frmRolbeheer zijn er in een lijst meerdere items geselecteerd (lstThemas). Ik wil nu in een loop (For each) verwijzen naar de lijst in het formulier frmRolbeheer, maar ik slaag er niet in om het object "lstThemas" correct aan te spreken. Ik doe dit nu zo:
Dit geeft de foutmelding "Deze eigenschap of methode wordt niet ondersteund door dit object". Ik weet niet goed hoe hiermee om te springen. Iemand raad!
Heb ook reeds dit geprobeerd, maar geeft dezelfde fout
Code:
[COLOR="#FF0000"][B]For Each varItem In Forms("frmRolBeheer").Controls.Item("lstThemas").itemselected[/B][/COLOR]
With rst6 'tblRolgebruikersThemas
.AddNew
!GRID = iNieuwRecht
!GTNaam = Forms("frmRolBeheer").Controls.Item("lstThemas").Column(0, varItem)
.Update
End With
Next varItem
Heb ook reeds dit geprobeerd, maar geeft dezelfde fout
Code:
' For Each varItem In Forms("frmRolbeheer").lstThemas.itemselected
' For Each varItem In Forms!frmRolbeheer!lstThemas.itemselected