Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako používať AutoNumber S rokom v aplikácii Microsoft Access

Definovanie poľa " Automatické číslo " v databázových tabuľkách programu Microsoft Access vám pomôže spravovať vaše dáta v budúcnosti , kedy budete musieť načítať pomocou dotazov . Pole " Automatické číslo " sa automaticky zvýši o jednotku pre každý nový riadok a nemôže byť zmenený . Toto pole bude mať každý riadok unikátne v databázovej tabuľke . Pole " Automatické číslo " sa zvyčajne začína s číslom jedna v predvolenom nastavení . Ak chcete spustiť pole s rokom ako 2000 , je potrebné vykonať niekoľko otázok , než začnete pridávať dáta do tabuľky . Pokyny dovolená 1

Spustite program Microsoft Access , kliknite na záložku " Vytvoriť " a kliknite na tlačidlo " Tabuľka " . Kliknite na prvý riadok , zmena " ID " na " YearColumn " a nastavte " Typ dát " ako " Automatické číslo . " Kliknite na ďalší riadok a zadajte " TextField " vytvoriť druhé pole a stlačte " Enter . " Zatvorte tabuľku kliknutím na " x " v pravom hornom rohu . Po výzve , aby váš stôl meno zadajte " myYearTable " .
2

Kliknite na záložku " Databáza Nástroje " a kliknite na " Visual Basic " pre spustenie editora jazyka Visual Basic . Kliknite na tlačidlo " Vložiť > modul " pridať nový kód modulu
3

Pridajte nasledujúci kód na vytvorenie novej čiastkové postup : .

Private Sub createYearTable ( )

4

skopírujte a vložte nasledujúci kód vytvoriť premennú pre uloženie SQL a iné definovať východiskový rok pre váš stôl : klipart

Dim strSQL Ako StringDim startingYear As String

5

skopírujte a vložte nasledujúci kód definovať východiskový rok ako " 2000 " pre pole typu Automatické číslo " " a vykonať " INSERT INTO " dotazu :

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

6

Pridajte nasledujúci kód odstrániť dáta , ktoré ste vložili v predchádzajúcom kroku :

strSQL = " Zmazať " strSQL = strSQL & " Z myYearTable " strSQL = strSQL & "where YearColumn = ' " & ( startingYear ) & " ' " ; DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) MsgBox ( " ! Done " )
7

Press " F5 " pre spustenie procedúry a prepnite späť do aplikácie Microsoft Access . Double - kliknite na " myYearTable " pre otvorenie tabuľky . Zadajte " Data " pod " Textové pole " a stlačte tlačidlo " Enter " pre zobrazenie prvé " Automatické číslo " rok ako " 2001 " . Zadajte viac texte , v nasledujúcich riadkoch sa prírastok rok jeden pre každý nový riadok .


Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené