Generating Unique Customer Number 1

[jcarmody]

I need to generate a unique customer number for our clients. (If someone has 3 records the customer number must be the same for all 3 records.) I have a table with all the basic customer information including Social Security number. Does anyone have some code that would encrypt the Social Security number the same way each time to generate a number I can use for my customer number?

Thanks -

Jcarmody

 

[ideafixer]

I don't know how to do a mathmatically formula. You may be better off just storing the SSN and an ID as autonumber in a table. Use the ID generated as your customer number and you can allways refer back to the primary key.

I am sure you database has some basic customer table. Make that another value in the table but make the primary key auto number. This would be a bit easier and allow for people who may not have an SSN... like people new to the US.

 

[Zion7]

There would be a variety of ways to encrypt an alphanumeric string.

Simply try the Asc(), or Chr()

so maybe on the AfterInsert Event of form

Dim varSIN As Variant, varEncrypt As Variant

varSIN = DLookUp("txtSIN","tblCustomer","pkID = " & Me.ID)

For x = 1 To Len(varSin)

VarEncrypt = VarEncrypt & Chr(Mid(VarSin,x,1))
Next x

this will turn each number to it's corresponding ANSII character.

The encryption ideas are endless.
If you want to keep it numeric Then something like

VarEncrypt = VarEncrypt & (Mid(VarSin,x,1) * x)