Sapendo 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 processi altrimenti eseguiti manualmente. In pochi passi è possibile scrivere codice VBA per interrogare i dati da una tabella e salvarlo in un altro tavolo.

istruzione

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

2 Fare clic su "inserire" e selezionare "Modulo".

Copia e incolla il seguente codice nel modulo:

Private Sub createNewTable ()

Dim rst come Recordset

db fioco come base di dati

Dim SQLStr As String

SQLStr = "CREATE TABLE CustomerInfo (FirstName TEXT (25), Cognome TEXT (25));"

DoCmd.RunSQL (SQLStr)

SQLStr = "INSERT INTO CustomerInfo ([nome], [Cognome])"

SQLStr = SQLStr & "Valori ( 'John', 'Williams');"

DoCmd.SetWarnings False

DoCmd.RunSQL (SQLStr)

SQLStr = "INSERT INTO CustomerInfo ([nome], [Cognome])"

SQLStr = SQLStr & "Valori ( 'Carlo', 'Gonzalez');"

DoCmd.SetWarnings False

DoCmd.RunSQL (SQLStr)

SQLStr = "SELECT CustomerInfo.FirstName,"

SQLStr = SQLStr & "CustomerInfo.LastName IN CharlesInfo"

SQLStr = SQLStr & "DA CustomerInfo"

SQLStr = SQLStr & "WHERE (((CustomerInfo.FirstName) = 'Charles'));"

DoCmd.SetWarnings False

DoCmd.RunSQL (SQLStr)

End Sub

3 Premere il tasto "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".