Ako ušetriť filtrovaná dáta do inej tabuľky v programe Access

Vedieť , ako uložiť informácie z jednej tabuľky do inej tabuľky pri prenose dát v databáze vám môže ušetriť čas . Microsoft Office Access je relačný databázový systém zahrnuté do balíka Microsoft Office . Visual Basic for Applications ( VBA ) je programovací jazyk vyvinutý spoločnosťou Microsoft . VBA možno použiť v programe Access k automatizácii procesov inak ručne vykonávané . V niekoľkých krokoch môžete písať kód jazyka VBA dotaz na dáta z jednej tabuľky a uložiť ho v inej tabuľke . Pokyny dovolená 1

Spustite program Microsoft Office Access 2007 a ​​zvoľte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom vyberte " Visual Basic " .
2

Kliknite na " Vložiť " poľa a zvoľte " modul " . ClipArt

Skopírujte a vložte nasledujúci kód do modulu :

Private Sub createNewTable ( )

Dim rst Ako Recordset

Dim db Ako databáza

Dim SQLstr As String

SQLstr = " CREATE TABLE CustomerInfo ( Jmeno TEXT ( 25 ) , priezvisko TEXT ( 25 ) ) ; "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO CustomerInfo ( [ Meno ] , [ priezvisko ] ) "

SQLstr = SQLstr a " VALUES ( ' John ' , ' Williams ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO CustomerInfo ( [ Meno ] , [ Priezvisko ] ) "

SQLstr = SQLstr & " VALUES ( ' Charles ' , ' Gonzalez ' ) ; "

DoCmd false

DoCmd.RunSQL ( SQLstr )

SQLstr = " SELECT CustomerInfo.FirstName , "

SQLstr = SQLstr & " CustomerInfo.LastName DO CharlesInfo "
. NastavitVarování

SQLstr = SQLstr & " Z CustomerInfo "

SQLstr = SQLstr & " WHERE ( ( ( CustomerInfo.FirstName ) = ' Karel ' ) ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

End Sub
3

Stlačte " F5 " spustiť podprogram . Kód vytvorí novú tabuľku a pridať dva nové záznamy dát . Nová tabuľka bude vytvorená , kde " Meno " je presne " Karel " .

• Predchádzajúca strana: Ako používať VBS vrátiť Recordset 
• Ďalšia strana: Ako získať prístup Počet záznamov v dotaze