Generating Random Number/ID

[ajames420]

I am wondering if someone can lend me a hand. I am trying to create a random Id using letters, dates and random letters/numbers to look like this:

B = Random Letter
20051103 = Current Year, Month, Day
1T4SZ = Random Letters and Numbers

B200511031T4SZ is how it would look when it is entered into my table.


I am struggling on how to do this.

Can someone lend me a hand on how to create this?

Basically I will update this field up my update to my table from a form.

I am writing this back to an Access Database. I need help generating the Id and the concanation.

Thanks for any help that can be provided.

[mstraf]

to generate a random letter "A" to "Z"

chr(65+fix(rnd*26))

a random number "0" to "9"

chr(48+fix(rnd*10))

to format the date:

format(date,"yyyymmdd")

Marco

[ajames420]

While I am looking at this I see you ended this with the word Macro.

Why Macro? I have not seen that before? I have tried writing this and I seem to be having some issues.

Basically when I put this in my form load to populate my text box I am not getting any thing to work.

I thank you for your help.

[mstraf]

Read it again: it is MARCO, and that is my name. I like to sign my posts

You are welcome.

Marco

[ajames420]

Thanks and my apologies. I am at work early and guess my reading is not all that great. Here is what I ended up doing to create my number:

Public Function GenPrimaryValue() as String

CrntDate = Now
upperbound = 89
lowerbound = 65
intChar = CInt((upperbound - lowerbound + 1) * Rnd + lowerbound)

strStart = Chr(intChar)

strDate = DatePart("YYYY", CrntDate)
strDate = strDate & Format(DatePart("m", CrntDate), "00")
strDate = strDate & Format(DatePart("d", CrntDate), "00")

strEnd = ""
For X = 1 To 5
upperbound = 0
lowerbound = 2
intChar = CInt((upperbound - lowerbound + 1) * Rnd + lowerbound)
Select Case intChar
Case 1
upperbound = 89
lowerbound = 65
intChar = CInt((upperbound - lowerbound + 1) * Rnd + lowerbound)
Case Else
upperbound = 56
lowerbound = 48
intChar = CInt((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Select
strEnd = strEnd & Chr(intChar)
Next X

GenPrimaryValue = strStart & strDate & strEnd