Display Message in TextBox until it is selected to type
I want to display message in the TextBox until it is selected by the user to type in some value.
EX:
I want to display message "Enter your ID" in the Text Box until it is selected by the user to enter the ID.
How would i achieve this using Excel VBA.
EX:
I want to display message "Enter your ID" in the Text Box until it is selected by the user to enter the ID.
How would i achieve this using Excel VBA.
Who is Participating?
To force the user to enter an ID you would validate the entry as below
This test looks for a simple entry, then reflgas the message with an error title if nothing was entered
You could take it further, say to validate a 5 digit code etc
Cheers
Dave
This test looks for a simple entry, then reflgas the message with an error title if nothing was entered
You could take it further, say to validate a 5 digit code etc
Cheers
Dave
Sub GetId()
Dim strMsg As String
Dim strTitle As String
redo:
strId = InputBox("Enter your ID", strTitle)
If Len(strId) = 0 Then
strTitle = "Error: You must enter an ID to proceed!"
GoTo redo
End If
End Sub
Hey srikanthv2322,
I think I might have misunderstood the question. Do you want a textbox that has Enter your ID written on it, but when you select the textbox it goes blank?
If you have a form with a Text Box, what you want to do is set the Textbox Text control to "Enter your ID" then have the following in the vba code for the text box. It will make it go blank when the text box is selected if it has Enter your ID written on it.
Private Sub TextBox1_Enter()
If TextBox1.Value = "Enter your ID" Then
TextBox1.Value = ""
End If
End Sub
-RK
I think I might have misunderstood the question. Do you want a textbox that has Enter your ID written on it, but when you select the textbox it goes blank?
If you have a form with a Text Box, what you want to do is set the Textbox Text control to "Enter your ID" then have the following in the vba code for the text box. It will make it go blank when the text box is selected if it has Enter your ID written on it.
Private Sub TextBox1_Enter()
If TextBox1.Value = "Enter your ID" Then
TextBox1.Value = ""
End If
End Sub
-RK
As roger_karam re-interpreted his orginal comment, and it isn't completely clear what the Asker wanted, then I think a point split for
- roger_karam's comment #34957529 (250 points)
- brettdj's comment #34957483 (250 points)
would be more appropriate
Cheers
Dave
- roger_karam's comment #34957529 (250 points)
- brettdj's comment #34957483 (250 points)
would be more appropriate
Cheers
Dave
This question has been classified as abandoned and is being closed as part of the Cleanup Program. See my comment at the end of the question for more details.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
strID= InputBox(Prompt:="Enter your ID.", Title:="ID input", Default:="ID Please")
-RK