NOTE: gibberish are control names in a foreign language. no problem there.
thanks again for your interest and support

Private Sub NameBottomSection_Format(Cancel As Integer, FormatCount As
Integer)
On Error Resume Next
[ìçééáéí].Visible = (Nz([éúøú îðäì], 0) < 0)

If [éúøú îðäì] = 0 Then
   [éúøú îðäì].Visible = False
   [úååéú131].Visible = False
Else
   [éúøú îðäì].Visible = True
   [úååéú131].Visible = True
End If

[äòøåú].RTFtext = Forms("äãôñú ãåçåú").[äòøåú].RTFtext
SetHeight
End Sub

Private Sub ëåúøú_òìéåðä_ùì_÷áåöä0_Format(Cancel As Integer, FormatCount As
Integer)
On Error Resume Next
[ìçééáéí].Visible = (Nz([éúøú îðäì], 0) < 0)
End Sub

Sub SetHeight()

' Height of the current RTF2 Control
Dim Height As Integer
' Max height to allow for multiple RTF2 controls
Dim MaxHeight As Integer

' Init MaxHeight
MaxHeight = 0

Height = Me.[äòøåú].Object.RTFheight
If Height > 0 Then
If Height < 32000 Then
Me.[äòøåú].Height = Height
'Me.Section(acDetail).Height = Me.RTFcontrol.Height + Me.RTFcontrol.Top
If MaxHeight > Me.[äòøåú].Height + Me.[äòøåú].Top Then MaxHeight =
Me.[äòøåú].Height + Me.[äòøåú].Top
End If
End If
' Now set the Detail Section's Height to the Maximum calculated value.
Me.Section("NameBottomSection").Height = MaxHeight
End Sub