Discussion :

[cege]

Comment connaitre le nbre de champs d'une table access ?

[Tofalu]

Bonjour,

en utilisant DAO.

Ajoute une référence microsoft DAO à ton projet (sous VBA, outils, référence)

Puis dans un module :

Code :

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

1
2
3
4
5
6
7
Function NbDeChamp(NomTable as string) as integer
On error goto err
dim T as DAO.TableDef
set T=CurrentDb(NomTable)
NbDeChamp=T.fields.count
err:
End Function

Puis pour connaitre le nombre de champ de la table essai :

Code :

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

msgbox NbDeChamp("essai")

[cege]

Merci, j'ai suivi le conseil mais j'obtiens toujours un résultat =0

[Tofalu]

Bien sur, la fatigue commence à faire effet

Code :

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

1
2
3
4
5
6
7
8
9
Function NbDeChamp(NomTable As String) As Integer
On Error GoTo err
Dim T As DAO.TableDef
Dim Db As DAO.Database
Set Db = CurrentDb
Set T = Db.TableDefs(NomTable)
NbDeChamp = T.Fields.Count
err:
End Function

Désolé

[cege]

ok ça marche, merci bcp