Definition af en " Autonummerering " feltet i dine Microsoft Access-database tabeller kan hjælpe dig med at styre dine data i fremtiden, når du har brug for at hente det ved hjælp af forespørgsler. En " Autonummerering " feltet vil automatisk forøges med én for hver ny række og kan ikke ændres . Dette felt vil holde hver række enestående i en database tabel . Normalt en " Autonummerering " feltet starter med nummer et som standard. Hvis du ønsker at starte på banen med et år som 2000 , er du nødt til at udføre et par forespørgsler, før du begynder at tilføje data til din tabel. Instruktioner
1
Launch Microsoft Access , skal du klikke på "Opret" fanen og klik på " Table ". Klik på den første række, ændres "ID " til " YearColumn " og sæt "Data Type" som " Autonummerering . "Klik den næste række og skriv" TextField "for at oprette et andet felt , og tryk på " Enter ". Luk din bord ved at klikke på" x " i højre hjørne . Type " myYearTable ", når du bliver bedt om at give dit bord et navn.
2
Klik på " Database Tools " fanen og klik på " Visual Basic " for at starte VB Editor. Klik på " Indsæt> Module " for at tilføje en ny kode modul
3
Føj følgende kode til at oprette en ny sub procedure : .
Private Sub createYearTable () < br >
4
Kopier og indsæt følgende kode til at oprette en variabel til at gemme din SQL-sætningen , og den anden at definere udgangsår for dit bord : Hej
Dim strSQL Som StringDim startingYear As String < br >
5
Kopier og indsæt følgende kode til at definere udgangsåret som " 2000 " til din " Autonummerering " feltet og gennemføre en " INSERT INTO " query : Hej
startingYear = " 2000 " , strSQL = " INSERT INTO myYearTable ( YearColumn )" strSQL = strSQL & "SELECT ' " & ( startingYear ) & " ' AS Expr1 " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL )
< br > 6
Føj følgende kode til at fjerne data , du har indsat i det forrige trin : Hej
strSQL = "Slet" strSQL = strSQL & " FROM myYearTable " strSQL = strSQL & " WHERE YearColumn = ' " & ( startingYear ) & " ' ," DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) MsgBox ( "Done !")
7
Press " F5 " for at køre proceduren og skifte tilbage til Microsoft Access. Dobbeltklik på " myYearTable " for at åbne tabellen . Type " data " under " tekstfelt " og tryk " Enter " for at se den første " Autonummerering " år som " 2001. " Enter mere tekst i følgende rækker for at forøge året med én for hver ny række.
< Br >