Come salvare i dati filtrati da un'altra tabella in Access

Sapere come salvare le informazioni da una tabella a un'altra tabella consente di risparmiare tempo durante il trasferimento di dati in un database . Microsoft Office Access è un sistema di gestione di database relazionali incluso nella suite Microsoft Office . Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione sviluppato da Microsoft . VBA può essere utilizzato in Access per automatizzare i processi altrimenti eseguite manualmente . In pochi passi è possibile scrivere codice VBA per interrogare i dati da una tabella e salvarlo in un'altra tabella . Istruzioni
1

Avviare Microsoft Office Access 2007 e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic ".
2

Fare clic sul campo "Inserisci" e selezionare " Modulo ".

Copia e incolla il seguente codice nel tuo modulo :

createNewTable private Sub ( ) per

Dim rst come Recordset

Dim db As Database Dim

sqlstr As String

sqlstr = "CREATE TABLE CustomerInfo ( TESTO Nome ( 25 ) , testo Cognome ( 25) ) ; "

DoCmd.RunSQL ( sqlstr ) per

sqlstr = " INSERT INTO CustomerInfo ( [Nome] , [Cognome ] ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CustomerInfo ( [Nome] , [ Cognome] ) "

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

DoCmd . SetWarnings False

DoCmd.RunSQL ( sqlstr ) per

sqlstr = " CustomerInfo.FirstName SELECT, "

sqlstr = sqlstr & " CustomerInfo.LastName INTO CharlesInfo "

sqlstr = sqlstr & "FROM CustomerInfo "

sqlstr = sqlstr & "WHERE ( ( ( CustomerInfo.FirstName ) = ' Carlo ')); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr ) per

End Sub
3

Premere " F5 " per eseguire la subroutine . Il codice crea una nuova tabella e aggiungere due nuovi record di dati. Una nuova tabella verrà creata dove " Nome " è uguale a " Charles ".

• Come utilizzare VBS per restituire un recordset 
• Come accedere Conteggio record in query