Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
selecting text
Posted on 2000-04-03
another one that has slipped by me please.
after an error is determined and I have setfocus back into the box I want to select all the text in that box so the user can renter it.
TIA
Craig
after an error is determined and I have setfocus back into the box I want to select all the text in that box so the user can renter it.
TIA
Craig
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2
2-
2
- +3
10 Comments
Try this:
Private Sub Text1_GotFocus()
' Select all text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Regards,
Grant.
Private Sub Text1_GotFocus()
' Select all text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Regards,
Grant.
Private Sub Text1_LostFocus()
If Not (IsNumeric(Text1.Text)) Then
MsgBox "Please enter only a number"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
If Not (IsNumeric(Text1.Text)) Then
MsgBox "Please enter only a number"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
Skip99
I do not see how your code is any different than the other comments. If the question has already been answered as a comment, the questioner can accept a comment as answer. Since your "answer" is not unique, you have the option to "withdraw" your proposed answer.
I do not see how your code is any different than the other comments. If the question has already been answered as a comment, the questioner can accept a comment as answer. Since your "answer" is not unique, you have the option to "withdraw" your proposed answer.
Friends. Skip99 and Erick37. Both of u gave correct answers but correct me if i am wrong. The set focus should come last in the line of coding.Right?
Like This:
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.Setfocus
<Smiling> csindorf. To whom u r gonna award points. <Smile>
Like This:
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.Setfocus
<Smiling> csindorf. To whom u r gonna award points. <Smile>
csindorf stated that he already set focus back to the box, so all that was left was to select the string
text.sellength = len(text.text)
text.sellength = len(text.text)
Featured Post
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Introduction
While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library. This article will introduce you to the SC library a…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month6 days, 1 hour left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
626 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.