Ako naprogramovať v programe Access 2007

Naučiť sa programovať v aplikácii Microsoft Office Access vám môže dať výhodu plne využiť výhody programu Access . Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu úloh , ako je vytváranie , editáciu a aktualizáciu tabuľky . Môžete vytvárať užívateľské rozhranie ( UI ) a funkcií programu , aby užívateľovi priateľský spôsob , ako manipulovať informácie z databázy . Použitie programovanie v programe Access šetrí čas vďaka automatizácii rutinných procesov . Pokyny dovolená 1

Spustite program Access , kliknite na tlačidlo " Prázdna databáza " a kliknite na tlačidlo " Create " vytvorte novú databázu . Kliknite na kartu " Databáza Nástroje " a kliknite na " Visual Basic " , otvorte okno Basic Visual Microsoft . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu
2

Zadajte nasledujúci vytvoriť nové uložené procedúry : .

Private Sub ProgramInAccess ( )

Stlačte " Enter " .
3

Zadajte nasledujúce vytvárať premenné :

Dim strSQL As String Dim

dataString As string

Dim myRst As Recordset

Dim myDbs ako databáza

Dim rowCnt As Integer

Set myDbs = CurrentDb
4

Zadajte nasledujúci vytvoriť novú tabuľku v databáze :

strSQL = " CREATE TABLE tableWithData ( Customer TEXT ( 25 ) , TEXT produktu ( 25 ) ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )
5

Zadajte nasledujúci pridať nový riadok dát pomocou " DoCmd " objekt :

SQLstr = " INSERT INTO tableWithData ( [ zákazník ] , [ Katalóg ] ) "

SQLstr = SQLstr & " VALUES ( ' John ' , ' Desktop ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )
6

zadajte nasledujúci príkaz pridať druhý riadok dát do tabuľky pomocou objektu Recordset :

Set myRst = myDbs.OpenRecordset ( " tableWithData " )

myRst.AddNew

myRst.Fields ( ďalej len " zákazník " ) . Value = " Susan " Spojené

myRst.Fields ( " tovar " ) . Value = " notebook "

myRst.Update

myRst.Close
7

zadajte nasledujúci dotaz novú tabuľku :

strSQL = " SELECT * tableWithData . z tableWithData , "
8

zadajte nasledujúce otvorte dotaz pomocou objektu Recordset a slučku z obsahu tabuľky :

Set myRst = myDbs.OpenRecordset ( strSQL )

myRst.MoveFirst

rowCnt = 0 K myRst.RecordCount

dataString = " Zákazník : " . & myRst.Fields ( 0 ) Value & "

• Predchádzajúca strana: Visual Basic Chyba : Dolný index mimo rozsah 
• Ďalšia strana: Ako zmeniť poradie zoraďovania na správe o programe Access 2007