Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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 .
Copyright © počítačové znalosti Všetky práva vyhradené