Solved Placing a label behind text box

[Nampara]

Hi I don't know if what I want is possible but here goes.

I have a large form and would like to save space by placing labels behind text boxes (I know how to do this part) however it is the next part that I really need help with.

I attach an image with a test form showing what I currently get and what I would like.

I would like to be able to
1. see the label when the text box is empty
2. hide the label when the text box is not empty and I move to another field.

For information a number of my fields are fomatted as number and "0000" as per the image.

Many thanks in advance.

Eliz

 

[theDBguy]

Instead of a label, I would say try to use a Textbox.

 

[isladogs]

You could scrap the label completely and put prompt text in the textbox when it is empty (similar idea to that done on many websites).

 

[Nampara]

Many thanks for your replies. I like the idea of scrapping the label and putting a prompt in the text box. will give this a try. How do you put a prompt in a textbox. Have found out how to do that using the @: in the format field however some of my fields are already using the formatting, eg, date or number .

 

[isladogs]

See my article https://isladogs.co.uk/control-help

 

[Nampara]

Thanks will take a look at your article.

 

[NigelShaw]

Hi I don't know if what I want is possible but here goes.

I have a large form and would like to save space by placing labels behind text boxes (I know how to do this part) however it is the next part that I really need help with.

I attach an image with a test form showing what I currently get and what I would like.

I would like to be able to
1. see the label when the text box is empty
2. hide the label when the text box is not empty and I move to another field.

For information a number of my fields are fomatted as number and "0000" as per the image.

Many thanks in advance.

Eliz

i see what you're trying to do

Create a function to handle the visiblity. This is passing any TextBox into the function to get its value then retuning a True / False based on its contents

Function

Function SetVis(ByVal control As TextBox) As Boolean

'get the incoming textbox value
Dim val As String

'create an internal boolean to return
Dim res As Boolean: res = False

If IsNull(control.Value) Then
    val = ""
    res = True
Else
    val = control.Value
End If

'return the res
SetVis = res
End Function

In the forms OnLoad event, call the function like this

lblLabel.Visible = SetVis(txtText)

in the labels OnClick event, do this

lblLabel.Visible = False
txtText.SetFocus

in the Textbox Exit event, do this

lblLabel.Visible = SetVis(txtText)

The result on the form is this

 

[Nampara]

Thank you for this reply - I will take a look at this and give it a try.

I have tried this but am getting a runtime error 424 - object required on the textbox exit code


Private Sub rm_ref_no_Exit(Cancel As Integer)
lblLabel.Visible = SetVis(txtText)
End Sub

Have I done something wrong

thanks

 

[Gasman]

Dim res As Boolean: res = False

I have to ask?, why the second statement?
When Booleans are first declared/dimmed, they are automatically False?

 

[NigelShaw]

I have to ask?, why the second statement?
When Booleans are first declared/dimmed, they are automatically False?

its an assurance. I write in VB & C# now and by nature resolve every members declaration value

Dim name As String = String.Empty
Dim res As Boolean = False

string name = String.Empty;
bool res = false;