Ako získať prístup programovanie makier

Makrá pre prístup databázové aplikácie sú programy , ktoré automatizujú úlohy , ako je nájsť záznamy alebo zatváranie okien . Používatelia programu Access môžu vyvinúť tieto programy pomocou jazyka Visual Basic for Applications alebo VBA , vývojové prostredie . Kľúčovým krokom pri písaní makier pre prístup je určenie účelu , ktorý chcete , aby to urobiť , ako napríklad mazanie záznamov , ktoré spĺňajú určité kritériá . Vytvorenie makra programu Access vám umožní rýchlejšie a s menším počtom chýb , než u manuálnych metód vykonávanie úloh dát pre správu vášho pracovného tímu . Návod dovolená 1

otvorený prístup a vytvoriť novú databázu stlačením tlačidla " Ctrl " + "N. " Kliknite na tlačidlo " Prázdna databáza " a stlačte tlačidlo " Alt " + " F11 " zadať VBA integrované vývojové prostredie , alebo IDE . Tu budete vytvárať makrá , ktoré ukazujú na spoločné operácie databázy na vytvorenie tabuľky a vkladanie a načítanie dát z tabuľky .
2

Kliknite na príkaz v ponuke Vložiť v " modulu" , aby sa nové okno pre zadanie kód makra je . Vložte nasledujúci podprogram do okna . Tento podprogram vytvára definíciu dotazu pomocou volania funkcie " CreateQueryDef " . Otázka " vytvoriť tabuľku " kód definuje používa rovnakú syntax SQL dispozícii v programe Access v návrhovej mriežke dotazu . Vyhlásenie " dbase.QueryDefs ( 1 ) . Execute " spustí dotaz na stolný vytváranie . ClipArt

Public Sub CreateTable ( )

Dim qdef Ako DAO.QueryDef

Dim dBASE ako DAO.Database

Dim s As String

Set dBASE = CurrentDb

s = " CREATE TABLE KidsBooks ( Bookname text ( 50 ) , Autor textu ( 50 ) ) "

Set qdef = dbase.CreateQueryDef ( " qCreateTable " , s )

dbase.QueryDefs ( 1 ) . Prevedenie

End Sub
3

Kliknite na príkaz v podprograme , potom stlačte " F5 " spustiť " CreateTable . " Stlačte tlačidlo " Alt " + " F11 " sa vrátite do štandardného užívateľského rozhrania prístup .
4

Zatvorte a znova otvorte navigačnú tablu kliknutím na ikony sa šípkami na jeho záhlavie je . V table sa zobrazí tabuľka KidsBooks vaše podprogram vytvorili .
5

Stlačte tlačidlo " Alt " + " F11 " pre návrat do podprogramu v IDE . Vložiť nasledujúce nové podprogram pod CreateTable podprogramu . AddTableRow sub vloží riadok údajov v tabuľke váš CreateTable programu vykonaná . Tento nový program funguje po otvorení objektu Recordset a volanie metódy AddNew tohto objektu.

Public Sub addTableRow ( )

Dim dBASE Ako DAO.Database

Dim rst ako DAO.Recordset

Set dBASE = CurrentDb

Set rst = dbase.OpenRecordset ( " KidsBooks " )

rst.AddNew

rst ! Bookname = " čarodejník z krajiny Oz "

rst ! Author = " Frank Baum "

rst.Update

End Sub
6

spustiť nový program ako ste na predchádzajúcu . Vráťte sa do programu Access , zatvorte tabuľku KidsBooks kliknutím pravým tlačidlom myši na jej kartu a kliknutím na tlačidlo " Close " . Double - kliknite na " KidsBooks " v navigačnej table znovu otvoriť tabuľku a vidieť nové zaknihované pridané váš program .
7

Vložiť , v IDE , nasledujúci nový program pod predchádzajúce dva . Tento program zobrazí všetky údaje obsiahnuté v tabuľke KidsBooks . Tento program otvorí objektu Recordset , rovnako ako predchádzajúci program . Tentoraz , však, funkcia MoveNext sa nazýva . Táto funkcia presunie interný index prostredníctvom každej riadky v tabuľke KidsBooks .

Public Sub showData ( )

Dim dBASE Ako DAO.Database

Dim rst ako DAO . Recordset

Set dBASE = CurrentDb

Set rst = dbase.OpenRecordset ( " KidsBooks " )

Dim s As String

robiť , keď nie je rst.EOF

s = " Názov knihy : " & rst [ BookName ] a " Autor : . " ! & rst [ Autor ]

MsgBox ( y )

rst.MoveNext !

Loop

rst.Close

dbase.Close

End Sub
8

Spustiť program ako ste spustili ďalšie dva . Program zobrazí okno so správou ukazujúce " Čarodejník z krajiny Oz " vstup .

• Predchádzajúca strana: Ako rozpoznať Real Player plug - in pre Visual Basic 
• Ďalšia strana: Ako vložiť do zobrazenia mriežky