Het definiëren van een veld " AutoNummering ' in uw Microsoft Access- database tabellen kunnen u helpen uw gegevens te beheren in de toekomst wanneer je nodig hebt om het op te halen met behulp van queries . Een veld " AutoNumber " automatisch met een te verhogen voor elke nieuwe rij en kan niet worden gewijzigd . Dit veld zal elke rij uniek in een database tabel te houden . Normaal gesproken een veld " AutoNummering " zal beginnen met nummer een standaard . Als u het veld wilt beginnen met een jaar zoals 2000 , moet u een paar vragen uit te voeren voordat u begint met het toevoegen van gegevens aan uw tafel . Instructies
Lancering Microsoft Access 1 , klikt u op het tabblad "Create " en klik op "Table . " Klik op de eerste rij , veranderen "ID " aan " YearColumn " en stel de "Data Type" als " AutoNumber . " Klik op de volgende rij en typ" TextField Enter " om een tweede veld en druk creëren" . ' Sluit uw tafel door te klikken op de " x " in de rechterbovenhoek . Type " myYearTable ' wanneer wordt gevraagd om uw tafel een naam te geven . Kopen van 2 Klik op het tabblad " Database Tools " en klik op " Visual Basic "om de VB -editor te starten . Klik op ' Invoegen> Module "om een nieuwe code module toe te voegen
3 Voeg de volgende code om een nieuwe sub- procedure te maken: . Private Sub createYearTable ( ) op < br >
Kopieer 4 en plak de volgende code om een variabele om uw SQL-instructie en de andere te slaan om het startjaar definiëren voor uw tabel te maken : Dim strSQL
Zoals StringDim startingYear als Koord < br >
Kopieer 5 en plak de volgende code om het startjaar een " INSERT INTO " definiëren als " 2000 " voor uw veld " AutoNumber " en voer vraag : startingYear
= " 2000 " ; strSQL = " INSERT INTO myYearTable ( YearColumn ) " strSQL = strSQL & " SELECT ' " & ( startingYear ) & " ' AS Expr1 " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) op < br > 6 Voeg de volgende code toe aan de gegevens die u in de vorige stap ingevoegd verwijderen :
strSQL = "Verwijderen " strSQL = strSQL & " FROM myYearTable " strSQL = strSQL & "WAAR YearColumn = ' " & ( startingYear ) & " " ; " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) Msgbox ( " Klaar ! " ) op Twitter Press 7 " F5 " om de procedure te draaien en terug te schakelen naar Microsoft Access . Dubbelklik op " myYearTable " om de tafel te openen . Typ "Data " onder " Text Field" en druk op " Enter " om de eerste " AutoNumber " jaar te zien als "2001 . " Geef meer tekst in de volgende rijen op het jaar met een te verhogen voor elke nieuwe rij .
< Br >
|
