Come copiare da un recordset in una tabella di Access 2007

Fate i database Microsoft Access 2007 più dinamico e automatizzato con l'editor di Visual Basic (VBE ) . Il VBE è la shell di programmazione incluso in Access che utilizza Visual Basic, Applications Edition (VBA ) . Una delle funzioni di VBA è generare dati dal database e salvarla in un recordset cui si può accedere e manipolato nel codice . Una volta terminato il lavoro con il recordset nel codice , è possibile salvare di nuovo al tavolo che hai tirato da o copiarlo in un altro tavolo . Istruzioni
1

Aprire il database in Microsoft Access 2007 e aprire l'editor di Visual Basic. Fare clic sulla scheda " Database Tools " e poi " Visual Basic " dai "Macro & Codice" di gruppo .
2

Cliccare sulla voce di menu "Inserisci" in Visual Basic Editor e quindi fare clic su "Modulo ". Oppure, se si dispone di un modulo di maschera o precedente che si desidera utilizzare questa procedura , aprire che invece con un doppio clic su di esso dalla finestra di Esplora progetti sul lato sinistro dello schermo .
3

Scrivi la procedura che tirerà il set di record dal database :

"Sub RecordsetExample ( ) per

Dim dbTest come Database 'La variabile che conterrà il database

Dim rsRecordset come recordset 'La variabile che conterrà il vostro recordset

dbTest = OpenDatabase ( " MyDatabase.mbd " ) "modifica questo il nome del database

dbTest

set rsRecordset = . OpenRecordset ( " Tabella1 " , dbOpenTable ) 'Cambia tabella 1 per il nome della tabella

End With "
4

Scrivi il codice per copiare il set di record in un'altra tabella . Il codice è simile al seguente :

" Dim SQLStatement come String

' La query da inserire nella tabella delle modifiche Table2 a nome della tabella

SQLStatement = . " INSERT INTO Table2 VALORI "& rsRecordset

Mentre Non rsRecordset.EOF

End With "
5

Cliccare l'icona" Salva " in Visual Basic Editor . Fare clic sul pulsante "Esegui ( ! ) " Se si desidera eseguire la procedura e copiare il set di record al tavolo ora . In caso contrario , chiudere l'editor di Visual Basic e fare clic sul pulsante "Office" e poi "Salva " per salvare le modifiche nel database.