[Resolvido]Colocando colunas horizontais em tabela existente

Olá amigos!

Estive pesquisando no forum sobre como colocar dados de uma tabela em outra tabela, porém na horizontal. Encontrei o tópico"Colocando as colunas na vertical", mas não era bem o que eu queria, pois, pelo que entendi o exemplo cria uma tabela temporaria e o que eu preciso é de uma tabela permanente para consultar sempre que eu necessitar através de um formulario.
Vou tentar explicar o que realmente eu preciso:
Tenho a tabela "tblComromissos" onde eu lanço compromissos diários com horarios informados e a descrição dos compromissos no campo correspondente ao horario. Essa tabela possui os seguintes campos: ID, DATA, EVENTOS, ANOTACOES, 7, 8, 9...22 (os campos dos numeros são referentes aos horarios).
Então, eu gostaria que ao clicar no botão Salvar os dados informados fossem inseridos na tabela "tblListComp"
(ja existente) e que os dados ficassem em colunas horizontais (como no exemplo do JPaulo no tópico que citei)
e claro, que essa tabela nao seja deletada, que permanessa para sempre ser consultada.

Se ficou claro o que eu preciso e alguém puder me ajudar ficarei muito grato.

Abraço!

Boa tarde, lupe

Não entendi muito bem.
Colunas só podem ser verticais.
Pelo que entendi, ao sair de cada campo, deve utilizar DLookup para verificar se já existe correspondente. Caso tenha de acrescentar na tabela utilize o instrução SQL "INSERT INTO ...", caso contrário, utilize a instrução "UPDATE ..."
Cumprimentos,

Olá Alexandre!

Obrigado pelo retorno!

Voce viu o exemplo do JPaulo no tópico "Colocando as colunas na vertical" neste sitio?
Através dele voce entenderia melhor o que eu preciso.

Abraço!

Pois é, li o tema mas a mensagem correspondida não é bem entendida pelos intervenientes quanto mais por mim!

Compreenderá que a questão não é a mesma, senão tinha lá a solução.
Apresente os dados da sua dúvida para se tentar ajudar.
Cumprimentos,

Amigo,

tentei postar um arquivo PDF com umas imagens para ilustrar o que eu quero fazer mas nao aceitou.
Voce tem um email onde eu possa te enviar esse arquivo? Pois com ele acho que voce nao tera duvidas do que eu preciso.

Assim seria a tabela onde eu armazenaria os dados dos compromissos agendados:

TabelaPrimaria
ID_COMP | DATA.. | EVENTOS | ANOTACOES | 7hr | 8hr.... | 9hr | 10hr |
.....01......... 06/06/11..... 1................. teste...................... teste

E assim ficaria na tabela com os dados de forma horizontal:

TabelaSecundaria
LEGENDA | DESCRICAO |
ID_COMP ....... 01
DATA ..........06/06/11
EVENTOS ........1
ANOTACOES... teste
7hr
8hr .................... teste

Ou seja, os dados da TabelaPrimaria seriam enviadas para a TabelaSecundaria quando eu clicasse num botao de comando. Lembrando que ambas as tabelas são permanentes. Nao seria necessario criar a TabelaSecundaria e nem poderia ser deletada.

Se ainda nao consegui explicar a minha duvida fale que eu tento de novo.

Abraço!

Novamente, lupe

Na TabelaPrimaria deve ter um campo Actualizado (tipo Sim/Não) para que controle os dados já passados para a TabelaSecundaria
Execute o procedimento:
Sub ConverteTabela()
'criada por Alexandre Neves
'em 2011-06-08
'para lupe
'do fórum MaximoAccess
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, Campo
Set Rst1 = CurrentDb.OpenRecordset("SELECT * FROM TabelaPrimaria WHERE Actualizado=False;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT * FROM TabelaSecundaria;")
Do While Not Rst1.EOF
For Each Campo In Rst1.Fields
Rst2.AddNew
Rst2("Legenda") = Campo.Name
Rst2("Descricao") = Campo.value
Rst2.Update
Next
Rst1.MoveNext
Loop
CurrentDb.Execute "UPDATE TabelaPrimaria SET Actualizado=True"
Set Rst1 = Nothing
Set Rst2 = Nothing
End Sub

Cumprimentos,

Olá!

Alexandre,
esse campo Actulizado que voce disse que eu tenho que criar na TabelaPrimaria eu tambem devo criar uma caixa de texto pra ele no formulario correspondente?
E onde exatamente eu devo colocar esse codigo? Em qual evento?

Boa noite, lupe

Basta criar o campo na tabela origem para controlar os registos que já foram passados para a tabela destino.
Cumprimentos,

Alexandre,

fiz conforme voce disse, porem, ao clicar no botão para executar a função aparece a mensagem:
"Erro de compilação:
O tipo definido pelo usuario não foi definido"
E no codigo fica selecionado:
"Rst1 As DAO.Recordset"

Sabe o que esta errado?

Habilite a referência DAO 3.6
Cumprimentos,

Amigo,

era isso mesmo que eu precisava fazer.

Funcionou perfeitamente. Ficou do jeito que eu queria.
Muito obrigado pela impagavel ajuda. Muito obrigado mesmo!!!

Pra mim o tópico esta resolvido.

Abraço e sucesso!