Wissen, wie man Informationen aus einer Tabelle zu einer anderen Tabelle speichern können sparen Sie Zeit bei der Übertragung von Daten in einer Datenbank . Microsoft Office Access ist ein relationales Datenbank -Management-System in der Microsoft Office-Suite enthalten. Visual Basic für Applikationen ( VBA) ist ein Computer- Programmiersprache, die von Microsoft entwickelt wurde. VBA in Access kann verwendet werden, um Prozesse zu automatisieren sonst manuell durchgeführt . In wenigen Schritten können Sie VBA-Code schreiben , um Daten aus einer Tabelle abfragen und speichern Sie es in einer anderen Tabelle . Anleitung
1

Starten Sie Microsoft Office Access 2007 und wählen Sie " Blank -Datenbank", klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools ", dann wählen Sie " Visual Basic. "
2

Klicken Sie auf " Insert "-Feld und wählen Sie " Module".

Kopieren Sie den folgenden Code in das Modul :

private Sub createNewTable () Dim rst

Als Recordset Dim db

As Database Dim

sqlstr As String

sqlstr = "CREATE TABLE CustomerInfo ( Vorname TEXT ( 25) , Nachname TEXT ( 25) ); "

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CustomerInfo ( [ Vorname] , [Nachname ] ) "

sqlstr = sqlstr & " VALUES (' John ', ' Williams '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CustomerInfo ( [Vorname ], [ Nachname] ) "

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

DoCmd . SetWarnings Falsch

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 Sub
3

Presse "F5" auf Ihrer Unterroutine ausführen . Der Code wird eine neue Tabelle und fügen Sie zwei neue Datensätze von Daten. Eine neue Tabelle erstellt , wo " Vorname " ist gleich zu " Charles ".