Discussion :

[metalleuse]

Bonjour,

Dans mon code VBA (pour un état), je cherche à modifier la valeur du paramètre utilisé dans la clause "WhERE" d'une requête enregistrée.
Ce paramètre est de type "text". (J'ai essayé avec un "CHAR", c'est pareil ...)

Pour cela j'utilise DAO et son célèbre querydef, 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
 
Dim qdf_Bloc_6 As QueryDef                 'Variable pour la requête spécifique au bloc 6
Dim rst_Bloc_6 As Recordset                 'Variable pour de recordset associé à la requête spécifique au bloc 6
 
Set qdf_Bloc_6 = oDb.QueryDefs("R_Schémas_B6")                              'Affectation de la requête enregistrée à qdf_Bloc_6
qdf_Bloc_6.Parameters("Lieu").Value = "  & Txt_Groupe_2.Value & "      'Modification du paramètre "Lieu"
'J'ai essayé avec une valeur fixe pour voir : qdf_Bloc_6.Parameters("Lieu").Value = "Sous-châssis partie latérale : Face A"
'J'ai essayé sans les guillemets et & : qdf_Bloc_6.Parameters("Lieu").Value = Txt_Groupe_2.Value 
 
Set rst_Bloc_6 = qdf_Bloc_6.OpenRecordset
'Traitement sur le recordset "rst_Bloc_6"
'.....

Nota : "Txt_Groupe_2.Value", comme son nom l'indique est la valeur (de type texte) issue d'un Textbox, lui même rempli par la requête source de l'état donc variable au fil du formatage de l'état.

Voici le code SQL de ma requête "R_Schémas_B6"

Code SQL :

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

1
2
3
4
5
 
PARAMETERS [Lieu] Text ( 255 );
SELECT DISTINCT T_Schémas.Fichier, T_Schémas.Hauteur, T_Schémas.No_Tableau
FROM T_Schémas INNER JOIN R_Opérations_Formulaire_VP ON T_Schémas.No_MOP = R_Opérations_Formulaire_VP.T_A_Opération_VP_initiale.No_MOP
WHERE ((T_Schémas.No_Bloc=6) AND (T_Schémas.Info_Lieu = [Lieu]));

Le problème : Acces me dit (dans un message d'erreur) qu'il ne trouve pas la requête "R_Opérations_Formulaire_VP" (en lui ajoutant tout un tas de chiffres derrière).
- J'ai vérifié toutes les orthographes et la syntaxe.
- Les 2 requêtes fonctionnent dans l'éditeur access
- Quand j'enlève le paramètre de la requête, il n'y a plus d'erreur
- J'ai un code similaire à un autre endroit qui fonctionne, mais le paramètre est de type numérique, ce qui me fait penser que le problème vient du paramètre "Lieu" de type texte.

Quand pensez vous ?

Merci de me donner votre avis

[madefemere]

Bonjour,

Et avec cela tout court ?

Code :

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

qdf_Bloc_6.Parameters("Lieu").Value = Txt_Groupe_2.Value      'Modification du paramètre "Lieu"

Je ne sais pas comment s'intègre les variables texte en tant que paramètres SQL dans VBA. Si ce la ne marche pas, essaie :

Code :

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

qdf_Bloc_6.Parameters("Lieu").Value = "'"  & Txt_Groupe_2.Value & "'"      'Modification du paramètre "Lieu"

Cordialement,

[metalleuse]

Merci Madefemere

Code :

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

qdf_Bloc_6.Parameters("Lieu").Value = Txt_Groupe_2.Value      'Modification du paramètre "Lieu"

J'avais déjà essayé cette solution, sans effet ....

Code :

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

qdf_Bloc_6.Parameters("Lieu").Value = "'"  & Txt_Groupe_2.Value & "'"      'Modification du paramètre "Lieu"

Et puis celle-ci non plus......

Je me demande si ça ne vient pas de la déclaration dans la requête, où la syntaxe diffère entre le VBA et le SQL access .....

Je suis en train de développer une solution sans passer par le "querydef", mais en écrivant directement le code SQL dans l'ouverture du "recordset", ça fonctionne, mais je voulais avoir une méthodologie identique dans tout mon programme et surtout j'aime bien comprendre comment tout ce "bazar" fonctionne ......

Cordialement

[madefemere]

Re-,

Et avec des Chr(34) ?

Code :

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

qdf_Bloc_6.Parameters("Lieu").Value = Chr(34)  & Txt_Groupe_2.Value & Chr(34)      'Modification du paramètre "Lieu"

Cordialement,

[metalleuse]

Non, j'ai toujours la même erreur .....
De toute façon, j'ai l'erreur même quand je mets un texte en direct entre "", sans utiliser ma variable.
Merci

[madefemere]

Bonjour,

On fait peut-être fausse route ?!? Dans le code de ta requête, tu as une liaison entre 2 tables par :

Code :

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

T_Schémas.No_MOP = R_Opérations_Formulaire_VP.T_A_Opération_VP_initiale.No_MOP

Il y a bien un champ nommée T_A_Opération_VP_initiale.No_MOP dans ta requête R_Opérations_Formulaire_VP.
J'ai des doutes sur ce champ qui est défini avec 2 "."

Cordialement,

[metalleuse]

Cette formulation fonctionne dans une autre requête ....

[madefemere]

Bonsoir Metalleuse,

Je n'ai pas oublié ton souci mais c'est quand même un truc très curieux. J'ai fait un test et j'ai pas de problème à passer un variable en paramètre que ça soit de type numérique ou de type texte.
Mais, mais, je suis un peu étonné par rapport au message d'erreur et ton code SQL
1- Je ne parlerai plus de la requête R_Opérations_Formulaire_VP.T_A_Opération_VP_initiale liée a priori à la table T_Schémas et mais dont aucune table ne participe dans la clause SELECT ??
2- Par contre, pourquoi les champs No_Bloc et Info_Lieu de la table T_Schémas ne sont pas dans la clause SELECT alors qu'ils participent dans WHERE.
Peut-être il faudrait les rajouter dans la requête :

Code :

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

1
2
3
4
5
 
PARAMETERS [Lieu] Text ( 255 );
SELECT DISTINCT T_Schémas.Fichier, T_Schémas.Hauteur, T_Schémas.No_Tableau, T_Schémas.No_Bloc, T_Schémas.Info_Lieu
FROM T_Schémas INNER JOIN R_Opérations_Formulaire_VP ON T_Schémas.No_MOP = R_Opérations_Formulaire_VP.T_A_Opération_VP_initiale.No_MOP
WHERE ((T_Schémas.No_Bloc=6) AND (T_Schémas.Info_Lieu = [Lieu]));

Ce qui expliquerait ce que tu constates :

Le problème : Acces me dit (dans un message d'erreur) qu'il ne trouve pas la requête "R_Opérations_Formulaire_VP" (en lui ajoutant tout un tas de chiffres derrière)
......
- Quand j'enlève le paramètre de la requête, il n'y a plus d'erreur

Cordialement,

[metalleuse]

Bonjour Madefemere,

Merci pour ta réponse, en effet, j'ai souvent des requêtes dont je n'utilise pas forcément les champs, mais uniquement les liaisons avec les autres tables, comme filtre.

Pour le passage du paramètre je ne comprends toujours pas, car j'ai d'autres requêtes construites sur le même schéma qui fonctionnent avec un paramètre de type numérique.
Et pour celle qui m'intéresse, elle fonctionne parfaitement quand je mets le code SQL directement dans l'ouverture d'un recordset, sans utiliser de paramètre, mais en comparant le champ directement à la variable (en fait le contenu d'un contrôle texte) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Code SQL pour le recordset de sélection des schémas à afficher
        str_SQL_Bloc_6 = "SELECT DISTINCT T_Schémas.Fichier, T_Schémas.Hauteur, T_Schémas.No_Tableau" & vbCrLf & _
                        "FROM T_Schémas INNER JOIN R_MOPs_Total_VP ON T_Schémas.No_MOP = R_MOPs_Total_VP.R_MOPs_VP.NoMOP" & vbCrLf & _
                        "WHERE ((T_Schémas.No_Bloc=6) AND (T_Schémas.Info_Lieu=""" & Txt_Groupe_2.Value & """))" & vbCrLf & _
                        "ORDER BY T_Schémas.No_Tableau"
 
'Ouverture de l'enregistrement contenant les infos des schémas à afficher
Set rst_Bloc_6 = oDb.OpenRecordset(str_SQL_Bloc_6)
....

(J'ai modifié légèrement le code SQL, en utilisant la requête [R_MOPs_Total_VP] à la place de la requête [R_Opérations_Formulaire_VP], car cette dernière utilise la première et je n'ai pas besoin des infos supplémentaires. J'ai testé cette nouvelle version avec le passage de paramètre ça ne fonctionne pas non plus)
ça fonctionne pour moi, mais je laisse la discussion ouverte, car j'aimerais bien comprendre ......