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