Definiera en " Räknare " fältet i Microsoft tabeller Access-databas kan hjälpa dig att hantera dina uppgifter i framtiden när du behöver hämta den med hjälp av frågor . En " Räknare "-fältet kommer automatiskt att inkrementera med ett för varje ny rad och kan inte ändras . Detta fält kommer att hålla varje rad unik i en databastabell . Normalt en " Räknare " fältet börjar med nummer ett som standard . Om du vill starta fältet med ett år som 2000 , måste du köra ett par frågor innan du börjar lägga till data till tabellen . Instruktioner
1
Launch Microsoft Access , klicka på " Skapa " -fliken och klicka på " Tabell ". Klicka på den första raden , ändra " ID " till " YearColumn " och ställ in " Data Type " som " Räknare . " Klicka på nästa rad och skriv" TextField " för att skapa en andra fältet och tryck på " Enter . " Stäng din tabell genom att klicka på " x " i det högra hörnet . Typ " myYearTable " när du ombeds att ge ditt bord ett namn .
2
Klicka på " Database Tools " -fliken och klicka på " Visual Basic " för att starta VB Editor . Klicka på " Infoga > Modul " för att lägga till en ny kodmodul
3
Lägg till följande kod för att skapa en ny sub förfarande : .
Private Sub createYearTable ( )
4
Kopiera och klistra in följande kod för att skapa en variabel för att lagra dina SQL-uttryck och den andra för att definiera startår för ditt bord :
Dim strSQL som StringDim startingYear As String
5
Kopiera och klistra in följande kod för att definiera start år som " 2000 " för din " Räknare " fältet och köra en " INSERT INTO " query :
startingYear = " 2000 " , strSQL = " INSERT INTO myYearTable ( YearColumn ) " strSQL = strSQL & " SELECT ' " & ( startingYear ) & " ' AS Uttr1 " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) katalog
6
Lägg till följande kod för att ta bort data som du infogade i föregående steg :
strSQL = " Delete " strSQL = strSQL & " FROM myYearTable " strSQL = strSQL & " WHERE YearColumn = ' " & ( startingYear ) & " ' , " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) Msgbox ( " Done ! " )
7
Press " F5 " för att köra proceduren och återgå till Microsoft Access . Dubbelklicka på " myYearTable " för att öppna tabellen . Typ " Data " under " Text Field " och tryck på " Enter " för att se den första " Räknare " Skicka som " 2001. " Enter mer text i följande rader för att öka året med ett för varje ny rad .
Addera
