Definizione di un campo "Contatore" nelle tabelle del database di Microsoft Access può aiutare a gestire i dati in futuro, quando è necessario recuperare utilizzando query. Un campo "contatore" viene automaticamente incrementato di uno per ogni nuova riga e non possono essere cambiati. Questo campo non mancherà di tenere ogni riga unica in una tabella del database. Normalmente un campo "contatore" inizierà con il numero uno di default. Se si desidera avviare il campo con un anno come il 2000, è necessario eseguire un paio di domande prima di iniziare ad aggiungere i dati al vostro tavolo.

istruzione

1 Avviare Microsoft Access, fare clic sulla scheda "Crea" e cliccare su "Tabella". Fare clic sulla prima fila, il cambiamento "ID" a "YearColumn" e impostare il "Tipo di dati" come "contatore". Fare clic sulla riga successiva e digitare "TextField" per creare un secondo campo e premere "Invio". Chiudere il tavolo facendo clic sulla "x" nell'angolo destro. Tipo "myYearTable" quando viene richiesto di dare il vostro tavolo un nome.

2 Fare clic sulla scheda "Database Tools" e fare clic su "Visual Basic" per avviare l'editor di VB. Fai clic su "Inserisci> Modulo" per aggiungere un nuovo modulo di codice.

3 Aggiungere il seguente codice per creare una nuova routine Sub:

Private Sub createYearTable ()

4 Copiare e incollare il seguente codice per creare una variabile per memorizzare l'istruzione SQL e l'altro per definire l'anno di inizio per la vostra tavola:

Dim strSQL As String
Dim startingYear As String

5 Copiare e incollare il seguente codice per definire l'anno a partire da "2000" per il campo "contatore" ed eseguire un "INSERT INTO" query:

startingYear = "2000"
strSQL = "INSERT INTO myYearTable (YearColumn)"
strSQL = strSQL & "SELECT '" & (startingYear) & "' AS Expr1"
DoCmd.SetWarnings False
DoCmd.RunSQL (strSQL)

6 Aggiungere il seguente codice per rimuovere i dati è stato inserito nel passaggio precedente:

strSQL = "Cancella"
strSQL = strSQL & "DA myYearTable"
strSQL = strSQL & "DOVE YearColumn = '" & (startingYear) & "';"
DoCmd.SetWarnings False
DoCmd.RunSQL (strSQL)
MsgBox ( "Fatto!")

7 Premere il tasto "F5" per eseguire la procedura e tornare al Microsoft Access. Fare doppio clic su "myYearTable" per aprire la tabella. Tipo "dati" sotto "Campo di testo" e premere "Invio" per visualizzare il primo anno "Contatore" come "2001" Inserire più testo nelle seguenti righe per incrementare l'anno di uno per ogni nuova riga.