Display content of Textfield in label

[gkick]

Hi there,

Some time ago I came across an example of how to show the contents of a text box in some sort of yellow label like a helptext whenever the column is not wide enough. Anyone knows how to do this or come across this post ? Thanks !

[Ratslinger]

Hello,

Vaguely remember something to the sort mentioned. However can’t give any link.

This is nothing more than moving the data from the field into the HelpText property of the field:

Sub GetHelpText
    Dim oForm As Object
    Dim oField As Object
    Dim sGetValue As String
    oForm = ThisComponent.Drawpage.Forms.getByName("YOUR_FORM_NAME")
    oField = oForm.getByName("YOUR_FIELD_NAME")
    sGetValue = oField.Text
    oField.HelpText = sGetValue
End Sub

Attach to the After record change and After record action events. Hovering the mouse over the field will display the text.

[gkick]

Thank you kindly !