Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Access 2007 , vyberte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " .
2
Zvoľte záložku " Vytvoriť " a vyberte " Návrh formulára " vytvoriť nový formulár . Kliknite na tlačidlo " " na " Ovládacie prvky " , potom kliknite ľavým tlačidlom myši na formulár a ťahaním vytvorte nové tlačidlo .
3
Pravým - kliknite na " Command0 " a zvoľte " Vlastnosti " . Kliknite na záložku " udalosti " a vyberte položku " [ Event Procedure ] " vedľa " On Click . " Kliknite na tlačidlo s tromi bodkami ( ... ) otvorte " Microsoft Visual Basic " okno . Stlačte tlačidlo " Ctrl " a " A " a potom " Delete " odstrániť existujúci kód .
4
Skopírujte a vložte nasledujúci kód do modulu . Tento kód vytvorí novú tabuľku s " Date " pole typ údajov a pridajte dnešný dátum na to .
Option Compare Database
Private Sub Command0_Click ( )
Dim todayDate as String
todayDate = Teraz
SQLstr = " CREATE TABLE dateTable ( TodaysDate dátum) , "
DoCmd.RunSQL ( SQLstr )
SQLstr = " INSERT INTO dateTable ( [ TodaysDate ] ) "
SQLstr = SQLstr a " VALUES ( ' " & ( todayDate ) & " ' ) ; " Spojené
DoCmd.SetWarnings False
DoCmd.RunSQL ( SQLstr )
End Sub
5
Zatvorte okno " Microsoft Visual Basic " a kliknite pravým tlačidlom myši " Form1 . " Zvoľte " Zobraziť formulár . " Kliknite na " Command0 " spustiť svoj kód .