J
Jesse
I just went through Google groups to try to find some help for the
aforementioned eror code. Sometime ago I read that if I installed the
FMS rich text control tryout after installing Lebans RichText control
it will mess the Lebans installation. I didn't remember at the time,
so I have trouble now. I unistalled the FMA tryout but that didn't
seem to solve the problem. The problem only occurs with the reports
(using Access 2k2). The code I got from the Lebans Site.
Dim Height As Integer
' Max height to allow for multiple RTF2 controls
Dim MaxHeight As Integer
' Init MaxHeight
MaxHeight = 0
Height = Me.RTF_Description.Object.RTFheight
If Height > 0 Then
If Height < 32000 Then
Me.RTF_Description.Height = Height
'Me.Section(acDetail).Height =
Me.RTF_Description.Height + Me.RTF_Description.Top
If MaxHeight > Me.RTF_Description.Height +
Me.RTF_Description.Top Then
MaxHeight = Me.RTF_Description.Height +
Me.RTF_Description.Top
End If
End If
End If
How can I fix the RTF2 mess up? Do I just install it over again?
Thanks
aforementioned eror code. Sometime ago I read that if I installed the
FMS rich text control tryout after installing Lebans RichText control
it will mess the Lebans installation. I didn't remember at the time,
so I have trouble now. I unistalled the FMA tryout but that didn't
seem to solve the problem. The problem only occurs with the reports
(using Access 2k2). The code I got from the Lebans Site.
Dim Height As Integer
' Max height to allow for multiple RTF2 controls
Dim MaxHeight As Integer
' Init MaxHeight
MaxHeight = 0
Height = Me.RTF_Description.Object.RTFheight
If Height > 0 Then
If Height < 32000 Then
Me.RTF_Description.Height = Height
'Me.Section(acDetail).Height =
Me.RTF_Description.Height + Me.RTF_Description.Top
If MaxHeight > Me.RTF_Description.Height +
Me.RTF_Description.Top Then
MaxHeight = Me.RTF_Description.Height +
Me.RTF_Description.Top
End If
End If
End If
How can I fix the RTF2 mess up? Do I just install it over again?
Thanks