Tu peux utiliser ce code qui va te lister tous les champs de ta base :


Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
Dim strDescription As String

Set db = CurrentDb

For...