Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Social Security numbers in Outlook 98  custom form

Posted on 2001-06-15
5
Medium Priority
?
171 Views
Last Modified: 2010-04-08
I have run into a road block in setting up this field.

What I want is the typical format 000-00-0000 which the form accepts w/no errors. It won't however save the information.

It would be ideal if the slashs stayed in place and after entering 3 digits jump to the area holding the next two digits and jump to the last four.

Another slight annoyance is the date of birth field after being enter as 01/01/2001 it displays as January,01, 2001.

Appreciate any assistance.
Thanks,
David
0
Comment
Question by:dpeel
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 9

Expert Comment

by:rjcpjc
ID: 6197195
1.  A couple of options.  a)Set up three separate fields.  
b)Use the instr and len functions to test the field to make sure that you have three digits then two then four with dashes in between.

2.  You should be able to go into properties of the field and go to Format and change the date field's format to 01/01/2001.  
0
 

Author Comment

by:dpeel
ID: 6202775
I'm ok with answer #2.

I need more bonehead type instructions for the first question.
Thanks
0
 
LVL 9

Expert Comment

by:rjcpjc
ID: 6202991
Here is some sample code for b:

tmpSSN = Item.UserProperties.Find("ssn").Value
SSNLength = Len(tmpSSN)

If SSNLength <> 11 then
  msgbox "Your SSN does not have enough characters.  Please reenter"
End If

'Test for a dash in the first four characters

tmpSSN1 = Left(tmpSSN,4)
fdp = Instr(tmpSSN1,"-")

If fdp <> 4 then
   msgbox "You must have a dash (-) as the fourth character"
End If

'Takes the next three characters from the string

tmpSSN2 = Mid(tmpSSN,5,3)  

fdp2 = Instr(tmpSSN2,"-")
If fdp2 <> 3 then
  msgbox "You must have a dash as the 7th character"
End If

------

Hope this helps a little.  Get the Visual Basic Help Files from Microsoft's site.  They are very helpful.  





0
 

Author Comment

by:dpeel
ID: 6203190
I don't know jack about Visual Basic. Is there an alternative method built into the Outllok 98 program?
0
 
LVL 9

Accepted Solution

by:
rjcpjc earned 800 total points
ID: 6203224
Actually its VBScript.  Sorry for the confusion.  But that's about the best alternative.  Other than just using three fields, one for the first three numbers, one for the second two numbers and one for the last four numbers.
0

Featured Post

Get your Conversational Ransomware Defense e‑book

This e-book gives you an insight into the ransomware threat and reviews the fundamentals of top-notch ransomware preparedness and recovery. To help you protect yourself and your organization. The initial infection may be inevitable, so the best protection is to be fully prepared.

Question has a verified solution.

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

This article describes how to import an Outlook PST file to Office 365 using a third party product to avoid Microsoft's Azure command line tool, saving you time.
This article describes how to import Lotus Notes Contacts into Outlook 2016, 2013, 2010 and 2007 etc. with a few manual steps. You can easily export and migrate Lotus Notes contacts into Microsoft Outlook without having to use any third party tools.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.

618 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