Aprire Microsoft Office Access 2007 , fare clic su " Database vuoto ", quindi selezionare "Crea ". Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic ".
2
Fare clic sul campo "Inserisci" , quindi selezionare "Modulo ".
3
Copia e incollare questo codice nel nuovo modulo .
private Sub newAutoIncColumn ()
dbase = Application.CurrentDb
TableDef = dbase.TableDefs ( " MyTableName " ) < br
Set> newClmn = TableDef.CreateField ( " AutoField " , dbLong ) per
newClmn
. Attributi = dbAutoIncrField
End With
con TableDef.Fields
. Append newClmn
. Refresh
End With End Sub
4
Modifica questa linea del codice e digitare il nome della tabella .
TableDef = dbase.TableDefs ( " MyTableName " ) per
" AutoField " sarà incrementare automaticamente di "1" , quando nuovi dati sono inseriti nelle la tabella . Il " AutoField " verrà utilizzato per identificare in modo univoco ogni record della tabella .
Programmazione © www.354353.com