Ako naprogramovať aplikáciu Microsoft Access pomocou jazyka Visual Basic

Microsoft Access je databázový program , v balíku Microsoft Office . Vývojári prispôsobiť túto sadu o písaní programov v programovacom jazyku Visual Basic for Applications ( VBA ) . Programovanie prístup zahŕňa použitie VBA vytvárať a manipulovať s objektmi databázy , vrátane správ , tabuliek , dotazov a formulárov pre zadávanie dát . Napríklad , VBA možno automaticky naplniť pole " gender " vo formulári pre zadanie informácií o časopise účastníka , ak osoba prostredníctvom formulára zadá bežné názvy v poli " meno " . Programovanie Prístup vám dáva možnosť , aby sa pri zadávaní dát a získavanie dát jednoduchšie pre používateľa vášho tímu . Veci , ktoré budete potrebovať v Microsoft Access
Zobraziť ďalšie inštrukcie Cestuj 1

otvorený prístup a stlačte tlačidlo " Alt - F11 " zadať kódovanie životné prostredie ( tzv. " IDE " pre " integrované vývojové prostredie " ) pre prístup .
2

Kliknite na " Vložiť " menu v " modulu" položku , ktorú chcete vytvoriť nové okno pre zadanie kódu .
3

Vložiť do okna kódu nasledujúci kód programu , ktorý vytvorí tabuľku s VBA :

Sub makeATable ( )

Dim db ako databáza , td ako TableDef , f ako pole

Set db = CurrentDb

Set tbl = dbs.CreateTableDef ( " UserInfo " )

Set FLD = tbl.CreateField ( " jmeno " , dbText )

tbl . Fields.Append f

dbs.TableDefs.Append tb

" dbs.TableDefs.Refresh

End Sub
4

spustite program kliknutím na akékoľvek vyhlásenie v ňom a stlačením tlačidla " F5 " .
5

Stlačte tlačidlo " Alt - F11 " pre návrat na rozhraní hlavné Access , potom kliknite na tlačidlo Navigačná tabla je " << " , potom jeho tlačidlo " >> " . Uvidíte novú tabuľku vytvorenú programu . Prečítajte si viac informácií o vytváraní tabuliek s VBA na stránke MSDN " Vytvorenie a odstránenie tabuľky " stránku .
6

Zadajte niekoľko ukážkových krstné mená v novej tabuľke poskytnúť údaje pre dotaz VBA budete vytvoriť ďalšie
7

Stlačte " Alt - F11 " pre návrat do kódovacieho prostredia a vložte tento nový sub - rutiny pod prvým , ktorý ste napísal : .

Public sub makeQuery ( )

Dim db Ako DAO.Database

Dim qd Ako DAO.QueryDef

Dim str As String

Set db = CurrentDb

on Error GoTo DontDelete

db.QueryDefs.Delete " qUser "

DontDelete :

str = " SELECT * FROM UserInfo , "

Set qd = db.CreateQueryDef ( " qUser " , str )

End Sub
8

Spustenie nového podprogramu , ako si prvý, potom sa vráťte do programu Access a hľadať nové dotaz na váš kód vytvoril . Hovorí sa tomu " qUser . "
9

Double - kliknite na " qUser " pre spustenie dotazu . Access sa zobrazia všetky názvy , ktoré ste zadali v " UserInfo " tabuľky .
10

Vytvoriť zostavu kliknutím na " UserInfo " položku v navigačnej table a potom kliknutím na tlačidlo " Report " na paneli nástrojov. Budete napísať program , VBA , ktorý filtruje správu pre určitú hodnotu , ktorú ste zadali v kroku 6.
11

Pravým tlačidlom myši na kartu novú správu a vyberte možnosť " v návrhovom zobrazení . " Kliknite na šípku nadol v " On Load " prípade " akcia " kartu na pravej strane obrazovky zostavy . Táto akcia sa vrátite do VBA IDE .
12

vložte nasledujúci kód do IDE . Nahradiť text " " s žiadnu konkrétnu hodnotu , ktorú ste zadali v kroku 6. ClipArt

Private Sub Report_Load ( )

Me.Filter = " jmeno = " " " " "

Me.FilterOn = true

End Sub
13

spustiť správu stlačením " Alt - F11 " Pre návrat do programu Access kliknite pravým tlačidlom myši v zostave kartu a voľbou " Report View . " Access zobrazí správu , ktorá sa zobrazí len záznam , ktorý ste zadali pre filter v kroku 12. Prečítajte si viac o používaní jazyka VBA správy o stránke Reports Access .

• Predchádzajúca strana: Microsoft Access Classroom Training 
• Ďalšia strana: Microsoft Access Video Tutorial