Weten hoe je informatie op te slaan van de ene tafel naar de andere tafel kunt u tijd besparen bij het overbrengen van gegevens in een database . Microsoft Office Access is een relationele database management systeem opgenomen in de Microsoft Office suite . Visual Basic for Applications ( VBA ) is een programmeertaal ontwikkeld door Microsoft . VBA kan worden gebruikt in Access processen anders handmatig uitgevoerd automatiseren . In een paar stappen kunt u VBA-code schrijven om gegevens opvragen uit een tabel en sla het op in een andere tabel . Instructies
1 Start Microsoft Office Access 2007 en selecteer " Lege database , " en klik op "Create . " Klik op ' Hulpmiddelen voor databases , " selecteer " Visual Basic . " Kopen van 2 Klik op het veld " Insert " en selecteer" Module . " Kopieer
en plak de volgende code in uw module : Private Sub createNewTable ( ) op Dim rst
als Recordset Dim db
Als Database Dim sqlstr
als Koord sqlstr
= " CREATE TABLE CustomerInfo ( Voornaam TEXT ( 25 ) , Achternaam TEXT ( 25 ) ) ; " DoCmd.RunSQL ( sqlstr ) sqlstr = " INSERT
INTO CustomerInfo ( [Voornaam ] , [Achternaam ] ) "
sqlstr = sqlstr & " VALUES ( ' John ' , ' Williams' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL
( sqlstr ) < br > sqlstr = " INSERT INTO CustomerInfo ( [Voornaam ] , [Achternaam ] ) "
sqlstr = sqlstr & " VALUES ( ' Charles ' , ' Gonzalez ' ) ; "
DoCmd . SetWarnings Valse DoCmd.RunSQL
( sqlstr ) sqlstr = " SELECT CustomerInfo.FirstName , " sqlstr
= sqlstr & " CustomerInfo.LastName INTO CharlesInfo "
sqlstr = sqlstr & " FROM CustomerInfo "
sqlstr = sqlstr & " WHERE ( ( ( CustomerInfo.FirstName ) = ' Charles ' ) ) ; " DoCmd.SetWarnings
False < br > DoCmd.RunSQL ( sqlstr ) End of Sub
Druk op " F5 " 3 aan uw subroutine draaien . De code zal een nieuwe tabel te maken en toe te voegen twee nieuwe records van gegevens . Een nieuwe tabel wordt aangemaakt waar " Voornaam " is gelijk aan " Charles . "
|
