Discussion :

[AndréPe]

Bonjour,
Dans le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim MaBd As DAO.Database
  Dim MaTable As DAO.TableDef
  Dim chp As DAO.Field
 Set MaBd = CurrentDb 
 Set MaTable = MaBd.TableDefs(strNom)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset(strNom)
Dim vchp As Variant
With rst
  For Each chp In MaTable.Fields
       vchp = chp.OrdinalPosition
       'Traitement de vchp
 next
end with

on récupère bien la valeur de la position du champ.
Si on remplace ligne 11 "OrdinalPosition" par "Value", rien ne va plus.
Erreur 3219 : opération invalide.
Or Value est une des propriétés de chp.
Avec Name, pas d'erreur

Pourquoi ?
Merci de l'aide
Amicalement

[AndréPe]

Je me réponds : Ca ne peut pas fonctionner, parceque je n'ai pas défini l'enregistrement pour lequel je recherche la valeur.

Il faut récupérér les noms des champs dans une table par ex, puis fermer la MaTable et la réouvrir avec le "do while not .EOF" pour parcourir tous les enregistrements.

J'essaie ...
Avec mes excuses pur ma précipitation.
A+

[rstck]

Bonjour,
il y aurait peut-être un .MoveNext à rajouter. Un truc comme ça devrait mettre dans vchp successivement les valeurs contenues dans le jeu de données de ta table, en la parcourant ligne par ligne et de gauche à droite. Enfin.. si on n'a pas modifié l'ordre des colonnes à l'affichage. J'imagine que l'ordre à l'affichage en mode 'feuille de données' et l'ordre intrinsèque des colonnes sont deux choses distinctes et qu'on peut modifier l'un sans altérer l'autre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim MaBd As DAO.Database
Dim MaTable As DAO.TableDef
Dim chp As DAO.Field
 
Set MaBd = CurrentDb 
Set MaTable = MaBd.TableDefs(strNom)
 
Dim rst As DAO.Recordset
Set rst = MaTable.OpenRecordset
 
Dim vchp As Variant
With rst
 Do While Not .EOF
   For Each chp In rst.Fields
       vchp = chp.Value
       'Traitement de vchp
   next
   .MoveNext
 Loop
end with

[loufab]

Bonjour,

En effet Value est bien une propriété de Recordset.Fields mais par de Tabledefs.fields


Ne pas oublier Resolu.

Cordialement,