definieren " AutoWert "-Feld in Ihrer Microsoft Access -Datenbank -Tabellen können Ihnen helfen, Ihre Daten in der Zukunft, wenn Sie , um es abzurufen unter Verwendung von Abfragen benötigen . Ein " AutoWert "-Feld wird automatisch durch eine für jede neue Zeile erhöhen und kann nicht verändert werden. Dieses Feld hält jede Reihe eindeutig in einer Datenbanktabelle. Normalerweise wird ein " AutoWert "-Feld wird mit der Nummer eins standardmäßig starten. Wenn Sie das Feld mit einem Jahr wie 2000 starten wollen , müssen Sie ein paar Abfragen ausführen, bevor Sie das Hinzufügen von Daten auf den Tisch zu starten. Anleitung
1

Starten Sie Microsoft Access, klicken Sie auf " Erstellen " und klicken Sie auf " Tabelle ". Klicken Sie auf die erste Zeile , ändern "ID " auf " YearColumn " und setzen Sie den "Data Type" als " AutoWert . " Klicken Sie auf die nächste Zeile und geben Sie" TextField Enter ", um ein zweites Feld , und drücken Sie erstellen " . " Schließen Sie die Tabelle , indem Sie auf das" x " in der rechten Ecke. Type " myYearTable ", wenn Sie aufgefordert werden, geben Sie Ihren Tisch einen Namen .
2

Klicken Sie auf " Database Tools " und klicken Sie auf " Visual Basic ", um den VB -Editor zu starten. Klicken Sie auf " Einfügen> Modul " , um einen neuen Code-Modul hinzufügen
3

Fügen Sie den folgenden Code , um eine neue Sub-Prozedur zu erstellen : .

Private Sub createYearTable ()
4

Kopieren Sie den folgenden Code, um eine Variable, um die SQL-Anweisung und die andere zu speichern, um das Startjahr für Ihre Tabelle definiert werden:

Dim strSQL Wie StringDim startingYear As String
5

Kopieren Sie den folgenden Code, um das Startjahr als "2000" definieren für Ihre " AutoWert "-Feld und führen Sie eine "INSERT INTO " query :

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

6

Fügen Sie den folgenden Code, um die Daten, die Sie im vorherigen Schritt eingefügt entfernen:

strSQL = "Delete" strSQL = strSQL & "FROM myYearTable " strSQL = strSQL & "WHERE YearColumn = '" & ( startingYear ) & " '; " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) MsgBox ("Fertig !")
7

Press "F5 ", um die Prozedur ausführen und wechseln Sie zurück zu Microsoft Access. Doppelklicken Sie auf " myYearTable ", um die Tabelle zu öffnen. Typ "Data" unten " Textfeld " und "Enter" drücken , um die erste " AutoWert " Jahr sehen " 2001 . " Geben Sie mehr Text in den folgenden Zeilen , um das Jahr um eins erhöht für jede neue Zeile .
< Br >