Discussion :

[marot_r]

Bonjour à tous et merci de votre temps.

J'ai une combolist (liste déroulante) dont le contenu dépend d'un champ dans mon formulaire.

Je connais 3 méthodes pour passer le paramètre à la query sous-jacente de ma combolist.

1) Par référencement direct du type [forms]![moForms]![monChamp]
2) Par du SQL dans du code VBA du type SQL="SELECT ... "
3) Par utilisation d'un table de paramétrage

(Merci la FAQ :-)

Le problème avec les 2 première solutions c'est que le lien est fort et comme je suis en phase de développement je change souvant mes noms de forms et la structure de mes requètes. Deplus conceptuellement parlant, deux objets ne devraient pas se connaitre en dehors de leurs interfaces (ici les paramètres).

La troisième n'est pas applicable dans l'environnement multi-utilisateur qui est le mien.

Ce que j'aimerai faire c'est passer des paramètres SQL en SQL.

Voici ma requète :

Code :

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

1
2
3
4
5
6
7
8
 
PARAMETERS prmCodePeriode Text ( 255 ), prmCodeTypeElementFacturation Text ( 255 );
 
SELECT PrixUnitaireElement.Clef, PrixUnitaireElement.CodePeriode, PrixUnitaireElement.ClefElementFacturation, TypeElementFacturation.Code AS CodeTypeElementFacturation, TypeElementFacturation.Libelle AS LibelleTypeElementFacturation, TypeElementFacturation.CoefficientApplicaple AS CoefficientApplicapleTypeElementFacturation, ElementFacturation.Code AS CodeElementFacturation, ElementFacturation.Libelle AS LibelleElementFacturation, PrixUnitaireElement.PrixUnitaire
FROM TypeElementFacturation INNER JOIN (ElementFacturation INNER JOIN PrixUnitaireElement ON ElementFacturation.Clef = PrixUnitaireElement.ClefElementFacturation) ON TypeElementFacturation.Code = ElementFacturation.Type
 
WHERE (((PrixUnitaireElement.CodePeriode)=[prmCodePeriode]) AND ((TypeElementFacturation.Code)=[prmCodeTypeElementFacturation]))
ORDER BY ElementFacturation.Code;

L'important ici ce sont les 2 params de la clause Where.

Voici le code que j'ai essayé pour ajouter la valeur de mes param à la clause SQL de ma requète. L'avantage de cette solution est une immense souplesse de travail car ma requète et mon formulaire ne sont pas reliés directement. Je peux facilement vérifier l'un et l'autre en bénéficiant de tous les contrôles d'Access.

Code :

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

1
2
3
4
 
    Dim SQL As String
    SQL = CurrentDb.QueryDefs("rChoixPrixUnitaire").SQL & "'" & Me.ChoixCodePeriode & "' '" & Me.ChoixCodeTypeElementFacturation & "'"
    Me.ChoixPrixUnitaire.RowSource = SQL

Donc je récupère le SQL de la requète et j'ajoute les param à la fin et idéalement j'aimerai avoir des paramètres nommés plutôt que positionnels.

mais j'ai l'erreur :

'Caractères trouvés après la fin de l'instruction SQL.'

Je pense que c'est simplement un erreur de syntaxe de ma part mais je n'arrive pas à trouver la bonne façon de l'écrire.

Quelqu'un a déjà fait cela ?

A+

[loufab]

Le mieux pour comprendre ton erreur est de faire.

Code :

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

debug.print SQL

à la fin de ton code.

Tu t'apercevra que tu as insérer test valeurs après le caractère de fin. Les requêtes utilise le ; pour indiquer qu'elles sont finies.

Par expérience une chaine SQL renvoyer par querydefs comporte des caractères parasite (comme les puces, poux et autre tiques)
Regarde donc mon tuto sur la recherche il y a quelques explications sur ce genre de problème.

à+

[marot_r]

Le mieux pour comprendre ton erreur est de faire.

Tu t'apercevra que tu as insérer test valeurs après le caractère de fin. Les requêtes utilise le ; pour indiquer qu'elles sont finies.

J'ai essayé de mettre la valeur de mes paramètres avant le dernier ; mais ça fait une erreur de syntaxe.

A+

[marot_r]

Bon voilà la solution que j'ai trouvé.

1) J'ai supprimé les définitions de paramètre de ma requète
2) J'ai modifié le code comme suit :

Code :

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

1
2
3
4
5
6
7
8
 
    Dim db As Database: Set db = CurrentDb
    Dim SQL As String
    SQL = Db.QueryDefs("rChoixPrixUnitaire").SQL
    SQL = Replace(SQL, "[prmCodePeriode]", """" & Me.ChoixCodePeriode & """")
    SQL = Replace(SQL, "[prmCodeTypeElementFacturation]", """" & Me.ChoixCodeTypeElementFacturation & """")
    Me.ChoixPrixUnitaire.RowSource = SQL
    db.Close: Set db = Nothing

Comme cela j'ai mes params nommés et pas un gramme de SQL dans mon code. Bon j'ai plus de contrôle de type par la query mais je peux vivre avec.

A+

[loufab]

si ce sont des paramètres de requêtes interesses-toi à la propriété Parameters de Querydefs. C'est ce qui permet d'affecter les valeurs aux paramètres (si mes souvenirs sont exacts)