Discussion :

[Tipstitou]

Bonjour,

Je bute bêtement sur un problème de vocabulaire.

Je dispose d'une table dont certains noms de champs sont numériques (ex : -211, -201, 15, 124).
Le hic, c'est que je sais comment écrire ces noms de champs en dur, mais pas si je récupère ces chiffres via une variable :

Rst![-211]=> est bien reconnu comme l'un des champs de ma table;
Rst!MaVariable => n'est pas reconnu (impossible de trouver l'objet dans la collection correspondant...).

J'ai fais pas mal de tentative sur la définition de MaVariable, mais je n'ai pas trouvé.

Dim MaVar As String '=> j'ai essayé avec Integer

MaVar = Rst!numero

ou MaVar = "" & Rst!numero & ""

ou MaVar = "[" & Rst!numero & "]"

etc.

Je n'arrive pas à trouver la bonne écriture.
Est-ce que quelqu'un peut me mettre sur la piste ?

Je précise que je peux difficilement changer le nom de mes colonnes numériques...

Merci d'avance pour vos suggestions.

Tiphaine

[User]

Bonjour,
Essayez Résultat = rst.fields(nomchamp) oû nomchamp est la variable contenant le nom du champ (ex. : nomchamp="-211").

Si rst est un recordset.

[micniv]

Meilleurs voeux 2026 à USER et à tous !

Pour aller un peu plus avant si besoin, un petit Sub qui liste tous les champs d'une table :
( à insérer dans un module standard, le résultat est dans la fenêtre Exécution)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub fieldsNames()
    Dim rs1 As DAO.Recordset
    Dim strSql, i As Integer
 
    strSql = "T_client"  ' nom de la table
    Set rs1 = CurrentDb.OpenRecordset(strSql)
 
    rs1.MoveFirst
    For i = 0 To rs1.Fields.Count - 1
        'rang de la colonne, nom de la colonne et valeur du 1er record
        Debug.Print i + 1, rs1(i).Name, rs1(i).Value
    Next i
 
End Sub

[tee_grandbois]

bonjour,

Je précise que je peux difficilement changer le nom de mes colonnes numériques...

certes, mais cela reste une absurdité d'avoir un nom de champ contenant un symbole réservé et beaucoup d'ennuis en perspective.
Je suis d'ailleurs abasourdi qu'Access ne le signale pas au moment de la création alors qu'il existe par ailleurs une mise en garde: liste des mots et symboles réservés.
Donc si on passe outre ou si on ne connait pas la règle restrictive, il faudra mettre le nom du champ (ou de la table) systématiquement entre crochets lors de l'utilisation d'une variable pour passer le nom du champ:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim rst As Recordset, db As Database
Dim mavar As String
 
mavar = "-201"
 
Set db = CurrentDb
Set rst = db.OpenRecordset("Select * from matable", dbOpenSnapshot)
rst.MoveFirst
Debug.Print rst.Fields("[" & mavar & "]")  ' <====== pour contourner le problème quand un nom ne respecte pas la règle de nommage
rst.Close

[Tipstitou]

Bonjour,
Essayez Résultat = rst.fields(nomchamp) oû nomchamp est la variable contenant le nom du champ (ex. : nomchamp="-211").

Si rst est un recordset.

Bonjour User,

Merci pour la suggestion.
Le "rst.fields' est la 1ère chose que j'ai tenté, car rst est bien un recordset.
Et ça passe, mais cela me renvoi une valeur null, alors que la partie 'nomchamp' a bien la bonne valeur...
Je dois riper un truc quelque part. Le hic c'est qu'on me cale une urgence sur 10 autres et que je n'arrive pas à me poser pour mieux réfléchir...

Je vais voir ce que me disent micniv et tee_grandbois.

[Tipstitou]

Meilleurs voeux 2026 à USER et à tous !

Pour aller un peu plus avant si besoin, un petit Sub qui liste tous les champs d'une table :
( à insérer dans un module standard, le résultat est dans la fenêtre Exécution)

Mais oui, pardon !
Meilleurs voeux à tous :-)

Super pour cette sub, elle est super :-)
A cet instant, elle ne réponds pas exactement à ce que je cherche, mais je suis sûre d'en faire bon usage !!!

[Tipstitou]

certes, mais cela reste une absurdité d'avoir un nom de champ contenant un symbole réservé et beaucoup d'ennuis en perspective.

Oui, c'est vrai, je suis d'accord.
J'ai voulu faire vite, tout en ayant un petit niveau autodidacte et en étant rouillée sur le codage.

La solution 'Rst.Fields("[" & mavar & "]")' n'a pas non plus fonctionné.
Il doit y avoir un souci un peu plus haut dans mon code...

Je me suis posée 2 mn.
Je vais contourner mon problème en utilisant la fonction 'replace' pour éviter ces noms de champs qui posent problème.

Merci pour vos réponses.
Je clos la discussion, car je pense que le Rst.Fields(MaVar) ou variante avec les [&" doit fonctionner...

[Tipstitou]

Re-Bonjour,

J'ai trouvé !
Même après être passé sur des noms de colonnes corrects, j'avais le même problème.

Je reprends : l'objectif était d'utiliser en variable un nom de champs lui-même variable.

1ère variable, dit MaVariable = le nom de mon champs, ex. MonChamps
Utilisation en 2ème variable : Rst.Fields(MaVariable)

Mais :

Rst!MonChamps=> est bien reconnu comme l'un des champs de ma table;
Rst.Fields(MaVariable) => n'est pas reconnu (impossible de trouver l'objet dans la collection correspondant...).

Le problème à résoudre était donc de pouvoir écrire 'Rst.Fields(MaVariable)' correctement pour que cela fonctionne comme si j'avais écrit en dur 'Rst!MonChamps'

La réponse était dans les guillemets !
Quand j'écris MaVar = MonChamps cela ne renvoie pas MonChamps, mais "MonChamps"
Il ne reste plus qu'à supprimer ces guillemets qui gênent.

Et hop : cela fonctionne avec => Rst.Fields(Replace(MaVar, "'", "''"))

Ouf!
Pas mécontente d'en être sortie !
Merci pour vos réponses qui m'ont mis sur la voie :-)

[tee_grandbois]

Rst!MonChamps=> est bien reconnu comme l'un des champs de ma table;
Rst.Fields(MaVariable) => n'est pas reconnu (impossible de trouver l'objet dans la collection correspondant...).

Le problème à résoudre était donc de pouvoir écrire 'Rst.Fields(MaVariable)' correctement pour que cela fonctionne comme si j'avais écrit en dur 'Rst!MonChamps'

La réponse était dans les guillemets !
Quand j'écris MaVar = MonChamps cela ne renvoie pas MonChamps, mais "MonChamps"
Il ne reste plus qu'à supprimer ces guillemets qui gênent.

étrange, avec le code que j'ai mis en exemple, je n'ai pas eu à enlever les guillemets: j'ai déclaré la variable en type String, c'est normal que dans VBA on les entoure de guillemets ...
Il faudrait préciser exactement comment tu passes tes variables pour avoir cette erreur

[User]

Meilleurs voeux 2026 à USER et à tous !

...

Très bonne année à toi aussi et à toute la communauté Dvp.

Pour le problème dans Rst.Fields(Replace(MaVar, "'", "''")) j'ai l'impression que MaVar est du type Numérique ou entier et que Replace(MaVar, "'", "''") transforme la variable de type numérique en type String comme souhaité.

Dans ce cas Rst.Fields(CStr(MaVar)) suffirait.

[Tipstitou]

Pour le problème dans Rst.Fields(Replace(MaVar, "'", "''")) j'ai l'impression que MaVar est du type Numérique ou entier et que Replace(MaVar, "'", "''") transforme la variable de type numérique en type String comme souhaité.
Dans ce cas Rst.Fields(CStr(MaVar)) suffirait.

Mais yessss !!!
C'est exactement ça :-)
Cela fonctionne avec le Rst.Fields(CStr(MaVar)).
Comme c'est bô !!!!

Trop merci !

Et du coup, tee_grandbois, le problème n'était pas dans ma façon de passer ma variable, mais dans son type.

Encore merci à tous.
C'est de la magie, tout ça

[deedolith]

Hello,

Dans une base de données, concevoir une table avec des colonnes numérotées souligne un problème de conception.

Quel est votre besoin ?