[Resolvido]Como obter os nomes de campos de uma tabela via código

Caros amigos, preciso saber como obter os nomes dos campos de uma tabela via código.
Pretendo montar um texto com os nomes dos campos e o valores preenchidos para criar um tese de defesa em função das respostas recebidas.

o que pretende fazer com os nomes dos campos?

Boa noite, Cleverson.

Eu preciso saber quais as respostas de várias perguntas (130).

É necessário juntar essas respostas com os nomes dos campos que são os títulos das perguntas.

Não quero fazer isso manualmente visto a quantidade de perguntas.

Existe uma rotina para "pegar" os nomes dos campos de uma tabela?

Olá Caíque,

Você pode criar um recordset para carregar os nomes dos campos da tabela desejada.
Dessa forma, voce pode utilizar a propriedade "Fields" do recordset, conforme o codigo abaixo:

Código:


Option Explicit
Option Compare Database
Dim rs              As DAO.Recordset
Dim db              As DAO.Database
Dim sql             As String
Dim x               As Integer

Private Sub cmdCarregar_Click()
    
    Me.txtCampos = Empty
    
    Set db = CurrentDb
    sql = "SELECT TOP 1 * FROM CLIENTE"

    Set rs = db.OpenRecordset(sql)
    
    For x = 0 To rs.Fields.Count - 1
        If x = 0 Then
            Me.txtCampos = rs.Fields(x).Name
        Else
            Me.txtCampos = Me.txtCampos & vbNewLine & rs.Fields(x).Name
        End If
    Next x

    rs.Close
    Set rs = Nothing


End Sub




E o resultado é este:




Segue o exemplo para sua análise.

Abraço

Muito obrigado!

caique, tudo certo aqui?

Faltou o resolvido.

caique, estamos aguardando...

A dúvida foi resolvida.

Apliquei a rotina informada e consegui fazer o que queria.

Obrigado