Print only portion of field

[tdejournett]

I have a database with social security numbers on it. I want to print lables with only the last 6 digits of each employees social security number to print out on the label. Can some one please help me.

Thanks,
T.D.

 

[gusbrunston]

[tt]
Hi:

Convert the social security number to a string. Use the Right() function to return the characters you want from the right side of the string.

Dim ssnString As String
Dim prtString As String
'converts number to string
ssnString = Str(Me.SSN)
'returns right 6 characters of the new string
prtString = Right(ssnString,6)

Hope this works for you.

Cheers, [tt] Gus Brunston - Access2000(DAO)[/tt] Intermediate skills.

 

[gusbrunston]

[tt]
Ha!

I guess you could divide the social security number by 100,000, and print only the decimal from the result. Not sure of the functions to do that... [tt] Gus Brunston - Access2000(DAO)[/tt] Intermediate skills.

 

[shannonp]

As long as there are no spaces in between numbers you can use the following code:

RptSocSec = Right([SocialSec#],6)

Of course you'll have to replace 'RptSocSec' with your own report field name and '[SocialSec#]' with your own source.

It can still be done if you have spaces between numbers but the code will obviously be slightly more complicated ;-)

 

[gusbrunston]

[tt]
Hi, Shannon:

I didn't know that!

Thanks, [tt] Gus Brunston - Access2000(DAO)[/tt] Intermediate skills.