Create a field that auto-generates.....

[randusoleis]

I would like to know how to create a table that auto-generates a value.
IE: I want to create a table with a autonumber that I generate myself. Randusoleis.....

 

[tomschafer]

Try this...

Nz(DMax("FieldName", "TableName&quot, 0) + 1

 

[randusoleis]

Where do I place that code?
Sorry for the ignorance. Randusoleis.....

 

[LTKDBS]

Try the function below. It's worked for me to create my own random key. I've never had any dupes.

Function GetGUIDRnd ()
On Error Resume Next
Dim z As String

Randomize

If Rnd(-Timer) < .5 Then
z = &quot;-&quot;
Else
z = &quot;&quot;
End If

DoEvents
DoEvents

GetGUIDRnd = z & Format(Date, &quot;ddyymm&quot & Int(Abs(Int(Timer * 100) + (Rnd(10000000) * 100000000)))
End Function

 

[tomschafer]

If you are using a form to input data into the table. Use the code as the default value for the control (text box, combo box, etc...) of the field you want to create the number for.