[Resolvido]Criar Consulta Retornando o Título da Coluna como Campo da Tabela

Galera
Bom dia,

Tenho pouca experiência no Access e gostaria de um auxílio em algo.
Tenho uma base de um cliente que vem seguindo esta estrutura:

Produto	Valor	Qtda	Qtda_Out_2017_Jaçana	Qtda_Out_2017_Boa_Vista	Qtda_Out_2017_Guarulhos
X	15,20	5	2	1	2
Y	20,15	7	3	2	2
Z	21,50	9	4	2	3

Na minha consulta em SQL preciso que em Cliente venha os últimos nomes apenas 2017 dos campos Qtda, ou seja,
supondo que a consulta seja para o Cliente Jaçana, este é o resultado esperado:

Cliente     Qtda Jaçana       2 Jaçana       3 Jaçana       4

Eu tentei escrever isto:

Código:


Select
Right(Qtda_Out_2017_Jaçana,6) as Cliente,
Qtda
From minhatabela


Porém o resultado foi um Right() dos campos e não um Right() do título da Coluna como desejado.
Como faço para que o Right(), ou um SubString() funcionem no título e não nos campos da tabela?

olá! Crie um Módulo e cole isso:


Public Function NomeCampo(strTabela As String, nCampo As Integer)
'Criado por FabioPaes
'Em 09/01/2018

'Para Tabelas
NomeCampo = CurrentDb.TableDefs(strTabela).Fields(nCampo).Name
'Para Consultas
'NomeCampo = CurrentDb.QueryDefs(strTabela).Fields(nCampo).Name
End Function


Chame a Função assim:
No VB: NomeCampo("NomeTabela",1)
Direto na Consulta: NomeCampo("NomeTabela";1)

NomeTabela= Nome da Tabela
1= A Posição do Campo na tabela, considerando o 0 como sendo a primeira coluna.

Obs: Faça a edição da Função e remova os caracteres extras que pretende descartar.

FabioPaes

Mestre, muito obrigado...
Funcionou perfeitamente!!!

Muito inteligente tua solução... Essa vou guardar!!!

Bacana amigo, Grato pelo retorno e até a Próxima se Deus quiser!

Se a duvida foi solucionada, por favor marque como Resolvido!!!

Resolvido... Obrigado!!!

Pessoal
Bom dia,

Abusando um pouco da boa vontade de vcs, rsrs...
A solução do FabioPaes resolveu bem oq precisava, porém com a solução dele surgiu uma nova necessidade...

Na função criada, ele utiliza a referência da Coluna para identificar o Nome dela. A dúvida é, seria possível também, através da mesma referência puxar os valores desta coluna?

Pq atualmente na minha consulta eu puxo os valores pelo nome dela, mas como essa planilha base é dinâmica o correto seria usar a solução do FabioPaes tanto para identificar o nome da coluna quanto os valores da mesma!!!

Olá, Direto na Consulta eu não conheço amigo!

Agora, se abrir um RecordSet, poderá pegar seus valores apenas informando a Coluna...


Ex:

Código:

Dim rs As DAO.Recordset
Dim Db As Database
Set rs = Db.OpenRecordset("SELECT * FROM NomeTabela") 'Pode Informar apena o nome da tabela para trazer tudo

MsgBox rs(0) 'Irá mostrar o que tem na coluna 0 do recordset aberto

Set rs = Nothing

Entendi FabioPaes, vou tentar adaptar aqui!!!