Saber como salvar informações de uma tabela para outra tabela pode economizar tempo na transferência de dados em um banco de dados . Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional incluídos na suíte Microsoft Office. Visual Basic for Applications (VBA) é uma linguagem de programação de computador desenvolvido pela Microsoft. VBA pode ser usado no Access para automatizar os processos de outro modo realizados manualmente . Em poucos passos você pode escrever código VBA para consultar dados de uma tabela e salvá-lo em outra tabela. Instruções
1

Inicie o Microsoft Office Access 2007 e selecione " Banco de Dados em Branco ", clique em " Criar". Clique em " Ferramentas de Banco de Dados ", selecione "Visual Basic".
2

Clique no botão " Inserir" campo e selecione " Module ".

Copie e cole o seguinte código em seu módulo :

Private Sub createNewTable ()

Dim rst Como Recordset

Dim db As Database

Dim sqlstr As String

sqlstr = "CREATE TABLE CustomerInfo (nome TEXT ( 25) , sobrenome TEXT ( 25) ); "

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CustomerInfo ( [ nome] , [Sobrenome ] ) "

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

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( sqlstr ) < br >

sqlstr = " INSERT INTO CustomerInfo ( [nome ], [ Sobrenome] ) "

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

DoCmd . SetWarnings Falso

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

Pressione " F5" para executar o seu sub-rotina. O código irá criar uma nova tabela e adicionar dois novos registros de dados. A nova tabela será criada onde " Nome" é igual a " Charles ".