Discussion :

[Oberown]

Comment trouver dans une base les tables ayant une colonne (attribut) du nom "macol" ?

Merci beaucoup

[cafeine]

Hello, (c'est toujours sympa de dire bonjour)

Il faut explorer les collections TableDefs (Définitions de tables) et Fields (champs) grâce à DAO.

la référence :
http://warin.developpez.com/access/dao/

[ypicot]

Bonjour Cafeine

Il y a aussi la possibilité de parcourir la collection des fields de chaque table

Code :

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

1
2
3
for each MonChamp in MaTable.Fields
  if MonChamp.Name="macol"
next

Avantage : marche en DAO et en ADO

Accessment,

Yvan

[Tofalu]

Bonjour Cafeine

Il y a aussi la possibilité de parcourir la collection des fields de chaque table

Code :

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

1
2
3
for each MonChamp in MaTable.Fields
  if MonChamp.Name="macol"
next

Avantage : marche en DAO et en ADO

Accessment,

Yvan

C'est exactement la méthode donnée par cafeine.

Et plutot qu'un parcours, un test avec gestion d'erreur sera beaucoup plus performant

[ypicot]

Mon nom de variable était mal choisis.

Je corrige (et complète)

Code :

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

1
2
3
4
5
6
7
    Dim rs As New Recordset
    Dim f As Field
    rs.Open "matable", CurrentProject.Connection
    For Each f In rs.Fields
        If f.Name = "macol" Then
             ...
    Next

En fait, je voulais juste indiquer qu'on pouvait accéder au nom des champs autrement qu'avec un tabledef ou un catalog.

Ceci dit, ta proposition de passer par une gestion d'erreur plutot qu'une bouble est effectivement plus efficace.

Yvan