Discussion :

[JPJOLY]

merci d'avance.
jpj

[marot_r]

en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim db as dao.database:set db=currentdb
dim t as dao.tabledef:set t=db.tabledefs("NomTaTable")
msgbox t.fields.count
set t=nothing
set db=nothing

ou plus compact

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
msgbox currentdb.tabledefs("NomTaTable").fields.count

A+