Public Sub pgm()
  
' chaine  
  
Dim TableName As String
  
' table
  
Dim tbl As TableDef
  
' champs de table
  
Dim fld As Field
  
' champs à saisir
  
TableName = InputBox("Saisir le nom de la table des champs à lister.", "Fenetre de saisie" )
  
'affectation de variable
set tbl = CurrentDb.tableDefs(TableName)
  
For Each fld In tbl.Fields
     MsgBox fld.Name
Next
  
End Sub

Public Function FieldNames() As String

    Dim sTable As String
    Dim rs As DAO.Recordset
    Dim n As Long
    Dim sResult As String

    sTable = InputBox("Name of table?" )
    If sTable = "" Then
        Exit Function
    End If

    Set rs = CurrentDb.OpenRecordset(sTable)

    With rs
        For n = 0 To .Fields.Count - 1
            sResult = sResult & .Fields(n).Name & vbCrLf
        Next 'n
        .Close
    End With

    Set rs = Nothing

    InputBox "Result:" & vbCrLf & vbCrLf _
            & "Copy this text (it looks jumbled, but it has one field on each line)", _
            "FieldNames()", sResult

End Function