Removing Extra Space (with a twist)

[Guest]

I know how to handle leading and trailing spaces. But how would you remove an
extra space (if there is an extra space) in a field that contains First Name
and Last Name, so that only 1 space is left? Thanks for your help on this one.

 

[Graham Mandeno]

Hi Richard

How about:

txtName = Trim(txtName)
Do While InStr(txtName, " ") > 0
txtName = Replace(txtName, " ", " ")
Loop

You could put this code in the AfterUpdate event procedure for your textbox
or, if you prefer, in a separate function.

I urge you to consider storing first and last name in separate fields. This
will give you all sorts of advantages such as sorting by last name and
addressing by first name (Dear Richard) to name but two.

 

[Guest]

Thank you Graham

Hi Richard

How about:

txtName = Trim(txtName)
Do While InStr(txtName, " ") > 0
txtName = Replace(txtName, " ", " ")
Loop

You could put this code in the AfterUpdate event procedure for your textbox
or, if you prefer, in a separate function.

I urge you to consider storing first and last name in separate fields. This
will give you all sorts of advantages such as sorting by last name and
addressing by first name (Dear Richard) to name but two.
--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

I know how to handle leading and trailing spaces. But how would you remove
an
extra space (if there is an extra space) in a field that contains First
Name
and Last Name, so that only 1 space is left? Thanks for your help on this
one.