Bijschift hoogt gelijk aan veld hoogte

[fmeca]

Hoi mede forummers;

In een rapport heb ik omkaderde velden inclusief hun bijschrift.
De datavelden passen hun hoogte automatisch aan door de variabele 'te vergroten' = 'ja' te zetten. Dit is goed.
De hoogte van het bijschrift wordt echter niet aangepast!

Hoe doe ik dit?

Met onderstaande code kan ik de bijschrift hoogte varieren.

Dim VeldHoogte As Integer

    Me.Bijschrift49.Height = VeldHoogte

Als ik voor veldcode een getal invul kan ik het bijschrift vergroten.
Wat voor code moet ik invullen voor 'VeldHoogte' = de hoogte van het gegroeide dataveld?
Of hoe krijg ik de hoogte van het gegroeide dataveld?

Gegroet Eric

 

[OctaFish]

Om de hoogte van het tekstveld op te vragen, zet je de hoogte van het tekstveld in een variabele.
iTekstHoogte=Me.txtVeld1.Height.
Wat je er mee opschiet weet ik niet, omdat er in een label niet veel meer tekst bijkomt. Beter is het om de positie van het label te synchroniseren met het tekstvak.
Dit is een voorbeeldje waarbij ik een wisselend aantal tekstvakken en labels op de goede hoogte zet:

Const iTop = 5050
Const iParamLinks = 690
Const iOpmLinks = 4260
Const iAfstand = 340
Const iLblBesluit = 5780
Const iAutoBesluit = 6290
Const iBesluit = 6800

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer, iVerSchuif As Long

    For i = 1 To 5
        If Me("Parameters" & i).value = "" Then
            Me("Parameters" & i).Visible = False
            Me("Analyse" & i).Visible = False
        Else
            iVerSchuif = i * iAfstand
            Me("Parameters" & i).Visible = True
            Me("Analyse" & i).Visible = True
            Me("Parameters" & i).Top = iTop + iVerSchuif
            Me("Parameters" & i).Left = iParamLinks
            Me("Analyse" & i).Top = iTop + iVerSchuif
            Me("Analyse" & i).Left = iOpmLinks
        End If
    Next i

    If iBesluit + iVerSchuif + Me.txtBesluit.Height > Me.Detail.Height Then
        Me.Detail.Height = iBesluit + iVerSchuif + Me.txtBesluit.Height + 10
    End If
    Me.lblBesluit.Top = iLblBesluit + iVerSchuif
    Me.txtAutobesluit.Top = iAutoBesluit + iVerSchuif
    Me.txtBesluit.Top = iBesluit + iVerSchuif

End Sub

Als inspiratie...

 

[fmeca]

iTekstHoogte=Me.txtVeld1.Height.

Dat dacht ik ook, echter dit werkt alleen als txtveld 1 een vaste hoogte heeft. Als txtVeld1 op automatisch vergroten staat werkt dit niet meer.
En dat is nu net de hoogte die ik wil weten.

PS bedankt voor jouw andere code soortgelijk kan ik wel grbruiken maar helaaas niet voor dit probleem.