[Resolvido]Retornar nome das colunas de uma tabela

Amigos,

preciso retornar em uma consulta o nome dos campos(Colunas) de uma tabela, no banco de dados Oracle e MySql existe uma consulta que é assim

SELECT COLUMN_NAME
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_SCHEMA='MinhaTbl'

Preciso de uma consulta equivalente no Access.

Obrigado desde já pela atenção,
Ruggeri Barbosa

Crie um Modulo e Coloque isto:

Código:


Sub MostraCampos(strTabela As String)
'criado por Alexandre Neves Em 2011-05-15 para Domingos do fórum MaximoAccess
'Editado por FabioPaes em 27/05/2016

Dim I As Integer
Dim F As String

F = ""

For I = 1 To CurrentDb.TableDefs(strTabela).Fields.Count
F = F & "," & CurrentDb.TableDefs(strTabela).Fields(I - 1).Name
Next
MsgBox Right(F, Len(F) - 1) 'Remove a ,Anes do Primeiro Campo


End Sub



Para Testar, em um botão coloque:

Código:


MostraCampos ("tb2") ' "tb2"  é o Nome da Tabela



Isso mostrará os Nomes dos Campos Separados por Virgula.

Fonte:
https://www.maximoaccess.com/t2517-resolvidoidentificar-nomes-dos-campos-da-tabela-via-codigo-vba

Perfeito!
Atendeu o que eu precisava!

Abs,
Ruggeri Barbosa