CISA FotoGallery

Statistiche

Tot. visite contenuti : 928218
Home Articoli tecnici Tabelle AutoNumbers(sostituisce COUNTER)

AutoNumbers(sostituisce COUNTER)

IL SEGUENTE CODICE IMPLEMENTA UN CAMPO AUTOINCREMENTANTE IN SOSTITUZIONE
DEL COUNTER DI ACCESS


Creare un Campo UNICO PRIMARY KEY tipo Numerico Lungo nella Tabella.

La Funzione va chiamata nell'EVENTO "BeforeInsert":


Private Sub Form_BeforeInsert(Cancel As Integer)
    Me!NomeCampoUnico=Nz(DMax("[NomeCampoUnico]","[NomeTabella]"),0)+1
End Sub


Alessandro Baraldi