[Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal

Bom dia amigos do Forum,

Estou precisando fazer uma rotina para incluir campos na tabela temporaria que existem na tabela principal.

Ex:

TblPrincipal

IdAluno
NomeAluno
Idade
Municipio
Estado

TblTemporaria

IdAluno
NomeAluno

Preciso Incluir na Tabela Temporaria os campos "Idade", "Municipio" e "Estado"

Estou tentando como o código Abaixo:

'***********************


Private Sub Comando0_Click()

Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim CampoTbPrincipal As DAO.Field
Dim CampoTemp As DAO.Field
Dim CampoAplicar As String
Dim CampoValidar As String


Set rst = CurrentDb.OpenRecordset("TblPrincipal")

For Each CampoTbPrincipal In rst.Fields

CampoAplicar = CampoTbPrincipal.Name

Set rs = CurrentDb.OpenRecordset("TblTemporaria")

For Each CampoTemp In rs.Fields

CampoValidar = CampoTemp.Name

Next

If CampoAplicar <> CampoValidar Then

rs.Close
Set rs = Nothing

CurrentDb.Execute ("ALTER TABLE AlunosII ADD COLUMN " & CampoAplicar & " TEXT;")

End If

Next

MsgBox " Campos Incluidos!"

rst.Close
Set rst = Nothing

End Sub

Acontece o seguinte, o processo só roda sem erros se na Tabela temporaria não tiver

nenhum campo com o mesmo nome da Tabela Principal.

Alguém pode me ajudar como eu posso fazer isso???

Sds,

Essa rotina do JPaulo adiciona campos:

Dim strAltera As String, strPass
Dim strBancoExterno As Access.Application
Dim strCaminho As String
strCaminho = "Caminho completo de seu banco"
strPass = "suasenha"
Set strBancoExterno = CreateObject("Access.Application")
strBancoExterno.OpenCurrentDatabase strCaminho, , strPass
strAltera = "ALTER TABLE SuaTabelaTemporaria ADD COLUMN Idade integer, Municipio text(100), Estato text(2);"
strBancoExterno.DoCmd.RunSQL strAltera
strBancoExterno.CloseCurrentDatabase
Set strBancoExterno = Nothing

Mas eu prefiro criar a tabela temporária no Access mesmo e depois deletar os registros, é mais prático e rápido.

Boas Gilberto,

Este é um exemplo didático.

Se você perceber, o código não atende minha necessidade, porque na verdade

não sei quais campos já estão na Tabela Temporaria. O que preciso é que

sejam incluidos os campos(colunas) da tabela principal que não estão na tabela temporaria.

Pode ocorrer da tabela temporaria vir com todos os campos ou faltando um ou dois.