Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Extract part of information from a text field on Access 2003 form

Posted on 2013-01-28
17
Medium Priority
?
532 Views
Last Modified: 2013-02-08
I have a field on a form (text1)that displays the complete smtp email address for a cell phone.I am using  a command button on click event to try to extract the actual phone number up to the “at” sign and place it in text2 . Is this doable?

Text1= 3345552654@vtext.com
Text2=3345552654
0
Comment
Question by:mickeyshelley1
[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
  • 6
  • 4
  • 3
  • +2
17 Comments
 
LVL 26

Expert Comment

by:jerryb30
ID: 38827859
me.text2 = left(me.text1, instr(me.text1, "@")-1)
0
 
LVL 75
ID: 38827860
Val("3345552654@vtext.com")

 returns 3345552654

mx
0
 
LVL 22

Expert Comment

by:Kelvin Sparks
ID: 38827873
Use a function such as
Left(me.Text1,Instr(1,Me.text1,"@")-1) in a query or VBA to return the number

Kelvin
0
Does Your Cloud Backup Use Blockchain Technology?

Blockchain technology has already revolutionized finance thanks to Bitcoin. Now it's disrupting other areas, including the realm of data protection. Learn how blockchain is now being used to authenticate backup files and keep them safe from hackers.

 
LVL 48

Expert Comment

by:Dale Fye
ID: 38827883
you could set the control source of text2 to:

=Left([Text1], instr([Text1] & "@", "@")-1)

If there is no @ symbol in the [Text1] it will return the entire string
0
 
LVL 48

Expert Comment

by:Dale Fye
ID: 38827894
Joe,

I keep forgetting about that option.
0
 
LVL 75
ID: 38827910
Val() ... too simple !
0
 
LVL 75
ID: 38827929
Private Sub btnSomeButtonName_Click()
    Dim x
    x =  Val(Me.YourTextBoxName)
 End Sub
0
 

Author Comment

by:mickeyshelley1
ID: 38828226
Thanks this works great...
0
 
LVL 75

Accepted Solution

by:
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 2000 total points
ID: 38828250
:-)

Let's see.  Two functions vs one ... hummm.

valCapture1.gif
0
 

Author Comment

by:mickeyshelley1
ID: 38828294
“Every man is my superior in that I may learn from him.”


¿ Thomas Carlyle
0
 

Author Comment

by:mickeyshelley1
ID: 38828359
I apologize for not evaluating post by DatabaseMX on 2013-01-28 at 18:37:02ID: 38827929 after trying this approach it did work equally as well with less clutter. It's simplicity caused me me to overlook it fearing I didn't completely understand it. I will not make this mistake again.
0
 
LVL 75
ID: 38828368
:-(

" It's simplicity caused me me to overlook it fearing I didn't completely understand it"
Really ?  In general, Less is always More ...
0
 

Author Comment

by:mickeyshelley1
ID: 38828392
lol i understand, i requested that the moderator review my awarding of points, you have provided me with sound advice over the years, i acted in haste...
0
 
LVL 75
ID: 38828413
no worries ...
0
 
LVL 26

Expert Comment

by:jerryb30
ID: 38828623
Here lies Lester Moore
Shot dead by a .44
No les
No more
0
 
LVL 48

Expert Comment

by:Dale Fye
ID: 38828994
Redistribute away!  I was wondering why you selected mine, after MX posted his elegant solution.  For some reason, I always forget about that option.
0

Featured Post

Simplifying Server Workload Migrations

This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

721 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question