OpenRecordset avec variable

**trouvaille** · 01/11/2018, 01h52

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** · 01/11/2018, 13h01

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** · 01/11/2018, 13h48

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** · 01/11/2018, 15h21

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** · 01/11/2018, 16h18

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** · 01/11/2018, 16h29

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+

**trouvaille** · 01/11/2018, 17h04

Dans le code:

FTMatricule.value = "446002461" (c'est correct)
DbOpenDynaset = 2
FTRefTaille = NULL
ligne.Fields (champsvar), (ligne.Fields me donne < Variable Objet ou variable de bloc WITH non définie (champsvar) me donne = "Blouson court" (ce qui est bien le nom d'un de mes champs))

**marot_r** · 01/11/2018, 17h23

OK, alors c'est peut-etre l'espace qui pose un probleme.

Essaye :

Code :

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

FTRefTaille = ligne.Fields("[" & champsvar & "]")

A+

**marot_r** · 01/11/2018, 17h25

Ou si le 1er ne marche pas.

Code :

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

FTRefTaille = ligne.Fields("""[" & champsvar & "]""")

A+

**trouvaille** · 01/11/2018, 17h33

Cela ne change malheureusement rien au résultat...

**marot_r** · 01/11/2018, 17h48

Essaye

Code :

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

FTRefTaille=ligne.Fields(champsvar).Value

Il est possible que finalement Access prenne cela pour une assignation d'objet quoi qu'il n'y a pas de Set.

Aussi, si cela ne marche pas ajoute :

Code :

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

debug.print ligne.Fields(champsvar)

C'est peut-etre l'assignation a FTRefTaille qui pose un probleme.

Quel est le type de FTRefTaille ?

A+

**trouvaille** · 01/11/2018, 17h58

Rien à faire, toujours le même problème...

FTRefTaille est une zone de texte sur mon formulaire

**marot_r** · 01/11/2018, 18h00

Bonjour.

Y compris avec debug.print ligne.Fields(champsvar) ????

Ligne est bien un DAO.Recordset, n'est-ce pas ?

A+

**trouvaille** · 01/11/2018, 19h13

A moins que je n'aie pas tout suivi , même avec debug.print ne fonctionne pas.

ligne est bien un recordset...

je replace par sécurité le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ligne As Recordset: Dim base As Database
Dim champsvar As String
 
champsvar = Article_TT.Value
 
'Recherche Taille venant du tableau taille suivant matricule et Article_TT donné afin de contrôler la conformité de la demande du Pers
Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("Select * FROM Personnel WHERE Matricule = '" & FTMatricule.Value & "'", dbOpenDynaset)
ligne.MoveFirst
FTRefTaille = ligne.Fields(champsvar).Value
Debug.Print ligne.Fields(champsvar)

**marot_r** · 01/11/2018, 19h29

Pour faire le debugage, il faut mettre le debug.print avant l'assignation.

Code :

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

1
2
Debug.Print ligne.Fields(champsvar)
FTRefTaille = ligne.Fields(champsvar).Value

Et si tu as active la gestion d'erreur par un On Error Goto mets la en commentaire. Access va s'arreter sur le ligne qui lui pose un probleme.

ligne est bien un recordset...

un DAO.Recordset ?

En passant le ligne.MoveFirst ne sert a rien.
Par defaut Access se place sur le 1er enregistrement du recordset.

Si tu veux faire quelque chose d'utile il faudrait mettre quelque chose comme :

Code :

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

1
2
3
4
5
if not ligne.eof() then
    'Ici ton code
 else
   msgbox "Impossible de trouver le matricule." 'Ce devrait etre un cas impossible mais sait-on jamais.
end if

A+

**trouvaille** · 01/11/2018, 20h08

Etant débutant, je commence vraiment à m perdre.

Difficile pour moi de savoir ou placer toutes les instructions.

Ce qui m'ennuie, c'est qu'apparemment décider du nom d'un champs utilisé pour un Select par une variable est possible.

je sais plus trop quoi faire.

Je vais essayer de recopier le code, de l'adapter et de l'essayer dans un autre exemple pour voir si cela fonctionne...

Sniffff

**trouvaille** · 01/11/2018, 20h41

Je viens d'essayer en oubliant la variable qui définit le champs et tout fonctionne correctement.

C'est donc bien le fait d'assigner une variable pour désigner le champs qui pose problème...

**marot_r** · 02/11/2018, 11h38

OK, suite de la discussion ici :

https://www.developpez.net/forums/d1...re-d-variable/

A+

OpenRecordset avec variable

Requêtes et SQL.

Discussions similaires

Partager

Partager