[Resolvido]Converter tabelas com colunas vertical em horizontal

Grande Mestres, bom dia.

Estou aqui novamente com mais uma pendência. No código da função abaixo, bem simples, não estou conseguindo ver de onde vem o erro: "Erro gerado: 3061 - Parâmetros insuficientes. Eram esperados 1". Acho que é na definição do rs1 TbNomeMes (tem dois campos: mes e nome). Por exemplo: faço NomeMes = "Janeiro" e enviou para função Call ProcessaMes(NomeMes). Quero gravar na tabela TbNomeMesHorizontal todos os "nome" daquele mês que vem da tabela TbNomeMes. Onde foi que eu errei?

Código:

Function ProcessaMes(NomeMes)
On Error GoTo trata_erro
MsgBox NomeMes
Dim DB As Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Set DB = CurrentDb()
Set rs1 = DB.OpenRecordset("SELECT * FROM [TbMesNome] WHERE Mes = NomeMes")
Set rs2 = DB.OpenRecordset("SELECT * FROM [TbMesNomeHorizontal]")

rs1.MoveFirst

Do While Not rs1.EOF
  rs2.AddNew
  rs2![NomeMes] = rs1![Nome]
 
  rs2.Update
  rs2.Requery
rs1.MoveNext
Loop

rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
DB.Close
Set DB = Nothing

    Exit Function

trata_erro:
   
   MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
   
   Exit Function

End Function

Grande Damasceno,

Desculpe a minha ignorância, onde está NomeMes entre aspas? Aspas após a variável é do Select.

Abraços

Então como ficaria a linha do recordset com o Select? Tiro as aspas fica dando erro no select.

Caro Amigo,

Desculpas por tanto incomodar. Continua dando mesmo erro. Linha abaixo.

Set rs1 = DB.OpenRecordset("Select * From [TbMesNome] where Mes = " & NomeMes)

O conteúdo de NomeMes eu vejo correto. Parece que não está reconhecendo Mes que é da TbMesNome. Ambas as variáveis são tipo texto.

Abraços

TbMesNome:
Mes texto
Nome texto

TbMesNomeHorizontal:
Janeiro texto
Fevereiro text
.
.
.
Dezembro texto

Nomes dos campos são os nomes dos meses.

Olá Damasceno,

Segue anexo só a parte envolvida no problema.

Muito Grato.

Grande Alexandre,

Fiz a alteração que você sugeriu e deu:
Erro gerado: 3265 - Item não encontrado nesta coleção
Erro gerado: 3021 - Nenhum registro atual

Muito grato

Abraços

Grande Celso,

Desculpas por minhas besteiras, sou um mero aprendiz. Isso faz parte das tentativas para ver se fica certo. Tirei a linha e continua dando: Erro gerado 3265 - Item não encontrado nesta coleção.

Abraços

Mestre Franklin,

Realmente tirando aquelas linhas não deu erro, porém não gravou a tabela desejada.

Muito grato.

Abraços.

Caros Amigos,

Tirei as linhas de tratamento de erro. Tirei rs1.MoveFirst. Troquei linha para sugestão de Alexandre. Troquei para linha sugerida por Celso. Não aparece erro, no entanto não grava nada. Não entra do Do While, ou tenta e o rs1 não carregou nada e sai por fim de arquivo.
Enfim, não dá erro, também não faz nada.

Abraços

Grande Franklin,

É quase isso. Só que queria pegar todos os meses de uma só vez sem precisar está informando qual. Também essa tabela criada é temporária. Desse modo toda vez que executo, apaga a tabela, cria novamente e só ficar um mês. Dela vai para outros processos. Esses são dados fictícios e não são somente esses campos. Funcionando para dois campos, deverá funcionar para muitos.

Muito grato.

Grande Abraço.

Grandes Mestres,

O professor Franklin fez um outro código que, com certeza, com algumas adaptações, alguns reajustes, irão resolver o problema. Disso não tenho a menor dúvida. Desde já lhe sou muito grato, muito grato mesmo. No entanto queria ver como faria funcionar no modelo anterior. A critério de aprendizado, conhecimento. Uma coisa aparentemente tão simples que me deixou intrigado e gostaria de ver onde está o erro. São essas picuinhas (abre aspas, fecha aspas, aspas duplas, concatenação, etc.) que me apego para aprender um pouco mais e não ficar constantemente dependendo de vocês.
Muito grato pelas observações de Damasceno, as sugestões de Celso e Alexandre. Muito obrigado mesmo.
Seria possível fazermos o primeiro código funcionar para saber onde está o erro?

Muito obrigado.

Abraços

Olá Mestres,

Alguém pode ajudar a concluir esse tópico conforme descrito mensagem anterior?
Muito grato.

Abraços

Grande Celso,

Muito grato pelo seu interesse nesse meu tópico. Vi o link e vou estudá-lo. Vou tentar fazer meu problema também desse modo. É questão de aprendizado. Na realidade, com ajuda de todos vocês, já consegui resolver o problema. Peguei aqui um código, fiz as devidas adaptações e fez o que desejo. No entanto continuo curioso com o código inicial de todos. Como já mencionei, quero aprender. Uma coisa aparentemente tão simples e não consigo ver o erro. Já recebi várias sugestões de vocês e ainda não funcionou. Tem como me dá mais essa aula?

Muito grato,

Abraços

Caro Amigo,

Conforme lhe falei, foi exatamente esse código que adaptei e consegui o resultado desejado. Mas minha curiosidade continua sendo aquele código bem simples que não conseguimos fazer funcionar lá no começo.
Muito agradecido pela sua atenção. Continuo curioso pelo código.

Abraços

Grande Alexandre,

Conforme solicitado segue anexo o BD mais original de todos, o que gerou o tópico. Recebi várias sugestões, fiz diversas adaptações neste código e até agora não funcionou. Inclusive você também sugeriu e continua dando erro. Quero ver onde está o erro para aprender. Isso é como um desafio. Já tentei tudo e não consigo em um código tão simples. Lembrando que, com ajuda de vocês e com outro código bem diferentes, com adaptações e tal faz o desejado. Mas meu problema é como faria para funcionar esse primeiro código.
Espero que tenha entendido.

Grande abraço

Grande Mestre,

O grande problema era a linha: Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM [TbMesNome] where Mes='" & NomeMes & "'") que dava erro 3021, depois outros código de erros e não funcionava. Você agora fez de um outro modo, bem parecido e funcionou. Ainda insisto onde é o erro dessa linha citada?
Quase como eu queria. Só que queria que gravasse tudo de cada mês começando no primeiro registro da tabela horizontal.
Ex.:
Janeiro---Fevereiro--Março................................................Dezembro
João------Manoel-----Antônio
Paulinho-Cândido----Eliane
José------Maria-------Tavares
-----------Felipe-------Filomena
------------------------Caetano
------------------------Márcio
------------------------Ernesta

Muito grato

Abraços

Mestre Celso,

Funcionou perfeitamente. Algumas adaptações e tudo certo. Agora uma dúvida, o que é:  [%$##@_Alias] . Sou um eterno aprendiz, não quero só ver feito, quero aprender a fazer.
Muito grato por tudo. Decifra o campo solicitado anteriormente. Por favor.

Grande Abraço

Mestre,

Aceitando sua sugestão modifiquei o título do tópico. Realmente fica mais explícito para quem necessitar fazer o mesmo.
Muito obrigado por tudo.

Grande abraço, Grande Mestre.

Resolvido