Discussion :

[trouvaille]

Bonjour, est-il possible d'utiliser une variable pour définir le champs dans laquelle la donnée sera extraite.

Exemple qui ne fonctionne pas: ligne.fields ("champsvar").value

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 champsvar As String
 
champsvar = Article_TT.Value
 
 
Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("Select * FROM Personnel WHERE Matricule = '" & FTMatricule.Value & "' ", dbOpenDynaset)
ligne.MoveFirst
FTRefTaille.Value = ligne.Fields("champsvar").Value
 
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing

[marot_r]

Bonjour.

Code :

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

FTRefTaille = ligne.Fields(champsvar)

Avec ton code tu demandais a trouver un champ dont le nom est [champsvar] et pas le contenu de la variable champsvar.
Et en VBA Access, .value est a propriete par defaut donc pas besoin de la specifier. Tu peux le faire mais ce n'est pas obligatoire.

A+

[trouvaille]

Bonjour et merci de l'approche de la solution.

je vais essayer d'expliquer un peu plus ce que j'aimerais obtenir:

En fait, avec le code, extraire le contenu se trouvant dans un champs, mais ce champs est variable.

Il devrait lire dans tout les champs de la table [Personnel] dont le champs [Matricule] est égal à la valeur de "FTMatricule".
Récupérer la valeur du contenu se trouvant dans un des autres champs de cette ligne.
Le champs contenant cette valeur varierait mais le nom de ce champs serait donné grâce à ma variable "champsvar".
La valeur du contenu de ce champs ainsi désigné serait récupérée et donnée comme valeur à "FTRefTaille" (se trouvant dans mon formulaire)

Pas facile tout cela....

[marot_r]

Bonjour.

Tu m'as un peu perdu dans tous tes renvois.

La solution que j'ai postee va marcher a condition que tu mettes la bonne valeur (le nom du champ voulu) dans champsvar.
Chaque recordset a une collection Fields qui permet d'acceder a un champ par son nom.

A+

[trouvaille]

Désolé, si j'applique le code que tu m'as donné, j'ai un message erreur

"erreur d'exécution 3061. Trop peu de paramètres. 1 attendu."

j'ai vérifié et la variable (champsvar) donne bien le nom exact du champs.

Mais toujours pas d'extraction de la valeur contenue dans ce champs...
Voici le code :

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
Dim champsvar As String
 
champsvar = Article_TT.Value
 
 
Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("Select * FROM Personnel WHERE Matricule = '" & FTMatricule.Value & "' ", dbOpenDynaset)
 
ligne.MoveFirst
FTRefTaille = ligne.Fields(champsvar)
 
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing

[marot_r]

Bonjour.

Le "erreur d'exécution 3061. Trop peu de paramètres. 1 attendu." se produit probablement a l'ouverture du recordset, pas a la lecture du champ.

Verifie ce que donne :

Code :

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

"Select * FROM Personnel WHERE Matricule = '" & FTMatricule.Value & "' "

Il y a peut-etre une apostrophe dans ton maticule. Ca expliquerai le message.

A+