Solved

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

Posted on 2013-01-28
17
525 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
  • 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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 47

Expert Comment

by:Dale Fye (Access MVP)
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 47

Expert Comment

by:Dale Fye (Access MVP)
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 500 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 47

Expert Comment

by:Dale Fye (Access MVP)
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

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering 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

Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

749 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