Come utilizzare un contatore con Anno in Microsoft Access

Definizione di un campo " contatore " nelle tabelle di database di Microsoft Access può aiutare a gestire i dati in futuro, quando hai bisogno di recuperarlo utilizzando query . Un campo " Contatore " viene incrementato automaticamente di uno per ogni nuova riga e non può essere cambiato . Questo campo si mantiene ogni riga univoco in una tabella di database . Normalmente un campo " contatore " partirà 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 . Istruzioni
1

lancio di Microsoft Access , fare clic sulla scheda "Crea " e cliccare su " Tabella ". Clic sulla prima riga , sostituire "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 ". Chiudi il tuo tavolo cliccando sulla" x " in alto a destra . Tipo " myYearTable " quando viene richiesto di dare il vostro tavolo un nome .

2 Fare clic sulla scheda "Database Tools " e cliccare su " Visual Basic " per lanciare il VB Editor. Fare clic su "Inserisci> Modulo " per aggiungere un nuovo modulo di codice
3

Aggiungere il seguente codice per creare una nuova procedura secondaria : .

CreateYearTable Private Sub ( )

4

Copia e incolla 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 Come StringDim startingYear As String

5

Copia e incolla il seguente codice per definire l' anno a partire da "2000" per il campo " contatore " ed eseguire un "INSERT INTO " ricerca:

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

Aggiungere il seguente codice per rimuovere i dati che hai inserito nel passaggio precedente :

strSQL = " Elimina" strSQL = strSQL & "FROM myYearTable " strSQL = strSQL & " DOVE YearColumn = ' " & ( startingYear ) & " '; " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) MsgBox (" Fatto ! " ) economici 7

Press "F5" per eseguire la procedura e tornare a 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 .