Unique control # issue

[dannyocean]

Hi All,

I am needing help creating a unique id # that is never repeated. The issue is that it is needed only some of the time. The number would be needed based upon the answer from another field.

If the platform field = B, I need the new unique #. All other reponses have there own unique number from our legacy reporting system.

Thanks,

Danny

 

[WildHare]

I'm not a mathematician, but this ought to generate something random enough for you:

----------------------------------------
Public Function GenRandomNumber() As Long

Dim rnd1 As Long
Dim rnd2 As Long
Dim rnd3 As Long

rnd1 = Rnd(1024) * 1000
rnd2 = Rnd(2048) * 10000
rnd3 = Rnd(4096) * Format(Date, "#####&quot

GenRandomNumber = ((rnd1 * rnd2) / rnd3) + rnd2 * Format(Date, "#####&quot

End Function
---------------------------------------------

Me? Ambivalent? Well, yes and no....
Another free Access forum:

http://www.forumco.com/jmhare

More Access stuff at

http://www.jmhare.com/wildhare2.htm

 

[paoconnell]

Three liner, based on the date and time:

Dim daytime As Variant
daytime = Now
UniqueIndex = Year(daytime) & Month(daytime) & Day(daytime) & CStr(CDbl(daytime))