Programovanie v MS Access 2007

Vedieť , ako programovať v programe Microsoft Office Access 2007 vám môže ušetriť čas , kedy je potrebné vykonať rutinné úlohy , ako je vytváranie tabuliek a pridať dáta ručne . Access je relačný databázový systém sa často používa u menších lokálnych databáz . Poskytuje nástroje napísať Visual Basic for Applications ( VBA ) pre automatizáciu manuálnych procesov . VBA je programovací jazyk , ktoré ponúka Microsoft . V niekoľkých krokoch môžete napísať kód VBA vytvoriť tabuľku , pridať dáta do neho a zobrazí jeho obsah cez ovládací prvok zoznam . Návod dovolená 1

Otvorte program Microsoft Office Access 2007 a ​​potom zvoľte " Prázdna databáza . " Kliknite na " Vytvoriť " .
2

Kliknite na záložku " Vytvoriť " a vyberte " Návrh formulára " vytvoriť nový formulár . Vyberte ovládacie tlačidlá " " pod " Controls " panelu . Kliknite na formulár a vytvoriť nové tlačidlo podržíte ľavé tlačidlo myši . Pridať " zoznamu " riadenie do formulára rovnakým spôsobom ste pridali tlačidlá .
3

Pravým tlačidlom myši na ovládací prvok zoznam a zvoľte " Vlastnosti " . Na " vlastností " kliknite na záložku " Data " a vyberte rozbaľovací zoznam na " Typ zdroja riadkov " a vyberte " Zoznam hodnôt . "
4

Pravým tlačidlom myši na nové tlačidlo a vyberte " Vlastnosti " . Na " Hárok vlastností " , kliknite na záložku " udalosti " a vyberte rozbaľovací políčko " kliknite na príkaz " a vyberte " [ Procedúra udalosti ] . " Kliknite na tlačidlo s tromi bodkami ( ... ) ; . Nový Microsoft Visual Basic sa otvorí okno , kde budete napísať svoj ​​kód VBA
5

Skopírujte a vložte nasledujúci kód vnútri svojho " Private Sub Command1_Click ( ) " podprogram vytvoriť tabuľku , pridať dva záznamy dát , slučku záznamov a zobrazenie výsledkov v ovládacom prvku zoznamu na vašom novom formulári .

Dim dBASE ako databáza

Dim recordSt ako Recordset

Dim X As Integer

Dim stringSQL As String Dim

strgVar As String

Set DBase = CurrentDb

stringSQL = " CREATE TABUĽKA newTable ( Jmeno TEXT ( 25 ) , priezvisko TEXT ( 25 ) ) ; "

DoCmd.RunSQL ( stringSQL )

stringSQL = " INSERT INTO newTable ( [ Meno ] , [ priezvisko ] ) "

stringSQL = stringSQL a " VALUES ( ' John ' , ' Smith ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )

stringSQL = " INSERT INTO newTable ( [ Meno ] , [ Priezvisko ] ) , " Spojené

stringSQL = stringSQL a " hodnoty ( " Jaime " , " Avelar ' ) ; "

DoCmd.SetWarnings false

DoCmd.RunSQL ( stringSQL )

Set recordSt = DBase.OpenRecordset ( " newTable " )

recordSt.MoveFirst

X = 0 recordSt.RecordCount - " ( . Jmeno " ) Hodnota 1

strgVar = Trim ( . recordSt.Fields ( " Priezvisko " ) Value ) a " recordSt.Fields ( ) a Orezať "

List0 . AddItem strgVar

recordSt.MoveNext

Ďalšie X

• Predchádzajúca strana: Ako nastaviť DAO Recordset v jazyku Visual Basic 
• Ďalšia strana: Ako nájsť úplnú cestu názov súboru v jazyku Visual Basic