CONVERT NUMBER IN WORDS

[Guest]

I WANT TO DISPLAY A NUMBER FIELD IN WORDS FOR EG. 23 AS TWENTY THREE

 

[Guest]

Create a new (unbound) text box on the same form and refer to your numbers
box (or field) in the data section of the properties box on the new text box.
=ConvertCurrencyToEnglish([INSERT-ORIGINAL-FIELD-NAME])
The new box will show the numbers as text

Hope this is some use

Wayne

 

[Allen Browne]

Wayne, you might need to explain where the poster can download that function
from:
http://support.microsoft.com/kb/210586/en-us

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

message

Create a new (unbound) text box on the same form and refer to your numbers
box (or field) in the data section of the properties box on the new text
box.
=ConvertCurrencyToEnglish([INSERT-ORIGINAL-FIELD-NAME])
The new box will show the numbers as text

Hope this is some use

Wayne

I WANT TO DISPLAY A NUMBER FIELD IN WORDS FOR EG. 23 AS TWENTY THREE

 

[BruceM]

I don't think it's that simple. I couldn't get it to work. I did some
checking, and found some links:
http://www.pacificdb.com.au/MVP/Code/Num2Text.htm
http://www.mvps.org/access/modules/mdl0001.htm
They are fairly long pieces of code, but from what I can tell they can be
pasted just as they appear. I don't think you need to customize the code
for specfic fields, etc., but there are parts you may choose to remove
depending on what is the highest number you would be converting.

Create a new (unbound) text box on the same form and refer to your numbers
box (or field) in the data section of the properties box on the new text
box.
=ConvertCurrencyToEnglish([INSERT-ORIGINAL-FIELD-NAME])
The new box will show the numbers as text

Hope this is some use

Wayne

I WANT TO DISPLAY A NUMBER FIELD IN WORDS FOR EG. 23 AS TWENTY THREE

 

[Tom Lake]

I don't think it's that simple. I couldn't get it to work. I did some checking,
and found some links:

It works perfectly for me in Access 2003. All I did was copy and paste. Perhaps you
didn't get all the functions in the article?

Tom Lake

 

[BruceM]

The original reply did not reference an article. For my own part, I
neglected to say that after the function is in place it can be called just
like a built-in function. Just now I tested the function, but I chose to do
so in a continuous form, and found that the following line in the function:
MyNumber = Trim(Str(MyNumber))
produced an Invalid Use of Null error (for the blank record at the end of
the continuous form) until I modified it thus:
MyNumber = Trim(Str(Nz(MyNumber)))