It should be set as a default value for a field in a table on the database level.

You don't want to use native Auto-increment, correct?

>Suppose I use my table client DBF, buffered as 5
>I want to use Craig's auto increment funcion
>
>And then I have a buttom to save my data,
>and In click event I have:
>
>select client
> tableupdate ()
>
> Where should I use the funcion?
>
>Before or after the "client" tableupdate ()
>
>Thanks
>
>
>
>GetKey("Client")
>

>*********************************************
>FUNCTION GetKey
>LPARAMETERS tcTable
>
>LOCAL lnArea, llOpened, liRetVal
>
>* Save current work area
>lnArea = SELECT()
>llOpened = .F.
>
>IF !USED("Keys")
>  USE Keys IN 0 SHARED
>  llOpened = .T.
>ENDIF
>SELECT Keys
>SET ORDER TO TAG Table
>
>* FLOCK seems to work a bit better than RLOCK.
>* I've never had a problem with it.
>DO WHILE !FLOCK()
>ENDDO
>
>SEEK UPPER(tcTable)
>IF FOUND()
>  liRetVal = NextId
>  REPLACE NextId WITH NextId + 1
>ELSE
>  INSERT INTO Keys (Table, NextId) VALUES (tcTable, 2)
>  liRetVal = 1
>ENDIF
>
>FLUSH
>UNLOCK
>
>IF llOpened
>  USE IN Keys
>ENDIF
>
>SELECT (lnArea)
>RETURN liRetVal
>**************************************************