Exportação de dados a partir de um campo de tabela para outra não é tão complicado como você pode pensar. No Access, você pode usar o Visual Basic for Applications para automatizar esse processo . O objeto Recordset representa os registros em uma tabela ou os registros retornados de uma consulta. Este objeto é usado em VBA para manipular esses dados em nível recorde. Você pode exportar dados por looping através dos registros e adicionando valores de campo para outros campos na mesma tabela ou uma tabela diferente . Instruções
1

Clique em "Ferramentas de banco de dados " e clique em " Visual Basic " para abrir o editor do Visual Basic. Comece criando um novo sub- procedimento , adicionando o seguinte código:

Sub copyFieldData Privado ( )
2

Criar as seguintes variáveis ​​que você vai usar para copiar os dados:

Dim sqlstr As String Dim

sourceRst Como Recordset

Dim targetRst Como Recordset

Dim rCntr As Integer

Dim dbs As Database

Set dbs = CurrentDb
3

Criar uma tabela vazia com um campo.

strSQL = " CREATE TABLE emptyTable "

strSQL = strSQL & " (nome TEXT) "

DoCmd.RunSQL ( strSQL )
4

Abra as tabelas de origem e de destino através de um conjunto de registros .

Set targetRst = dbs.OpenRecordset ( " emptyTable " )

Definir sourceRst = dbs.OpenRecordset ( "SELECT * FROM Funcionários Colaboradores; ").
5

Criar um " For ... loop" para percorrer todas as linhas no campo "Nome" da tabela Funcionários e exportá-los para o campo " Nome" no emptyTable .

sourceRst.MoveLast

sourceRst.MoveFirst

Para rCntr = 0 To sourceRst.RecordCount - . 1.

targetRst.AddNew

targetRst.Fields ( " Nome" ) Valor = sourceRst.Fields ( "Nome" ) Valor < br >

targetRst.Update

sourceRst.MoveNext

Próxima rCntr
6

Exibe uma caixa de mensagem quando a exportação foi concluída.

MsgBox (" Dados de campo nome foi exportado " )
7

terminar o procedimento digitando " End Sub ". Pressione " F5" para executar o procedimento .