WIZARD FORM auto-increment key field

[vfp5]

s-)
EXISTE ALGUN ASISTENTE QUE CREA UN FORM EN VFP CON auto-increment key field COMO LO HACE MS-ACCESS.

 

[mcollins]

If what you are asking is how to add an auto increment key field to a form created by the form wizard, this is what I have done before. Add the following to the cmdAdd.Click() method (changing the table, field, and text box names of course):

* cmdAdd.Click()
lcOldDeleted = SET("DELETED&quot
SET DELETED OFF
* Must do this before the DODEFAULT(); it must move the record pointer.
CALCULATE MAX(requestor.nrequestor) TO lnmaxid
SET DELETED &lcOldDeleted

DODEFAULT() && Runs parent class code.

* Only set if value is 0. It was getting incremented twice.
IF THISFORM.txtnRequestor.Value = 0
THISFORM.txtnRequestor.Value = lnmaxid + 1
ENDIF