Solved

Cleaning up Special Characters - Access

Posted on 2011-09-13
3
325 Views
Last Modified: 2012-05-12
I'm importing phone numbers from a web source into Access.  Can someone help me to strip out the special characters and spaces and then format as:

(###)###-####

Thanks
0
Comment
Question by:OnsiteSupport
3 Comments
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 36529942
place this function in a regular module

function cleanField(strPhone) as string
dim vChar as string, j as integer
vChar="0123456789"

if strPhone & ""="" then cleanfield="" :exit function

for j=1 to len(strPhone)
      if instr(vChar,mid(strPhone,j,1)) then
          cleanfield=cleanfield & mid(strPhone,j,1)
     end if

next

end function


to use in a query

update tableName
set [Phone]= fromat(cleanfield([Phone]),"(###)###-####")
where [Phone]<> null




post back for result
0
 
LVL 42

Accepted Solution

by:
dqmq earned 500 total points
ID: 36530138
Personally, I would store a 10-digit string without formatting and restrict it to acceptable digits. You may even need a longer string if you accept international numbers.  When collecting numbers, it's easy to validate a 10-digit number. (or a 3-digit area code and a 7-digit number).  It's very easy to apply the formatting to forms and reports if you are starting with proper numbers in your data.  It's also very important to validate inputs as close to the source as possible and avoid cleansing efforts like this, which are at best "fuzzy".


I would create a public function and then use it in VBA or in an update query as follows:

Update yourtable
  set phone = phonecleanup(phone)


Cannot give you too many specifics for the function as it depends so much on the diversity and patterns found in your phone number inputs. However, here is a simplistic function that should give you the idea.


Puplic Function PhoneCleanup(Phone as String) as String
Dim I As Integer
'remove all but digits
For I = 1 To Len(phone)
  If Not IsNumeric(Mid(phone, I, 1)) Then Mid(phone, I, 1) = "X"
Next
phone = Replace(phone, "X", "")
'truncate to 10 digits
phone = Left(phone, 10)
'extend to 10 digits
phone = Right(Space(10) & phone, 10)
End Sub



0
 

Author Closing Comment

by:OnsiteSupport
ID: 36530257
Thank you.  Unfortunately, I have no control over the code that's generating the inputs. (Need an application that zaps the people who are sending me the data) :)
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

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

In Debugging – Part 1, you learned the basics of the debugging process. You learned how to avoid bugs, as well as how to utilize the Immediate window in the debugging process. This article takes things to the next level by showing you how you can us…
QuickBooks® has a great invoice interface that we were happy with for a while but that changed in 2001 through no fault of Intuit®. Our industry's unit names are dictated by RUS: the Rural Utilities Services division of USDA. Contracts contain un…
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…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…

937 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

Need Help in Real-Time?

Connect with top rated Experts

6 Experts available now in Live!

Get 1:1 Help Now