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 " a kliknite na " Vytvoriť " . Vyberte " Databázové nástroje " a kliknite na " Visual Basic " .
2
Zvoľte menu " Vložiť " a kliknite na " modul " .
3
Kopírovanie a vkladanie
Private Sub accessQueryParameters ( )
Dim db Ako databáza
Dim rst Ako Recordset
: pod do nového modulu vytvoriť nový podprogram kód Dim strSQL As String
Set db = CurrentDb
strSQL = " CREATE TABLE tmpTable ( NumField ČÍSLO , EmployeeName TEXT , TEXT pozície ) ; "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO tmpTable ( NumField , EmployeeName , postoje ) "
strSQL = strSQL & " VALUES ( 1 , ' Ana ' , ' učiteľ ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
strSQL = " Vyberte tmpTable * od tmpTable ; . "
Set rst = db.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
robiť , keď nie je rst.EOF
Debug.Print rst.Fields ( " EmployeeName " ) . Value & " je " & Sub
podprogram vytvorí novú tabuľku a pridať záznamy do neho . Otázka potom bude výstup obsah tabuľky do výstupného okna . To je príklad toho , ako možno vytvoriť a zostaviť program , pomocou jazyka VBA . Môžete písať a zostaviť svoj vlastný kód jazyka VBA na vykonanie požadovanej funkcie .
4
Kliknite na menu " Debug " a vyberte položku " Compile < názov " na kompilácii programu . Stlačením tlačidla " F5 " spustiť podprogram .