Tables |
1.32 Gestire un campo autoincrementante di tipo Numerico in alternativa ad un campo di tipo Contatore |
Roberto, Alessandro Baraldi |
In alternativa ad un campo di tipo Contatore inserire in una tabella un campo di tipo Numerico Lungo e se necessario indicarlo come chiave primaria. A fronte dell'evento "Prima di inserire" della maschera generare il seguente codice VBA: Private Sub Form_BeforeInsert(Cancel As Integer) Me!NomeCampoUnico=Nz(DMax("[NomeCampoUnico]","[NomeTabella]"),0)+1 End SubLo stesso risultato lo si ottiene scrivendo nella proprietà Valore predefinito della casella di testo associata al campo di cui sopra il seguente script: = Nz(DMax("[NomeCampoUnico]"; "[NomeTabella]"); 0) +1Si opta per questa soluzione in alternativa all'uso di un campo di tipo Contatore nel caso si presenti una qualche possibilità per cui sia necessario modificare il valore del campo, cosa non possibile per un campo di tipo Contatore. |