Discussion :

[pedro91]

Bonjour,

Dans une base Access 2003, je crée une instruction SQL basée sur des choix fait dans un formulaire indépendant.
Les champs sont sélectionnés par une constante publique (CstSourceFiltre) définie dans un module auquel se rajoute une instruction "WHERE..." batie au fur et à mesure des choix fait sur les controles du formulaire. Elle est placée dans une variable publique (p_strsqlWhere).

Le résultat apparait bien et conforme à la sélection faite dans une zone de liste, donc il n'y a pas d'erreur de rédaction dans la variable.

Je voudrais sauvegarder le résultat d'une sélection donnée dans un réquete pour pouvoir ensuite générer des formulaires et états à partir de la.

Voici le code que j'utilise:

Code :

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

1
2
3
4
5
6
Dim qdfNew As QueryDef
   With Application.CurrentDb
      ' Create permanent QueryDef.
      Set qdfNew = .CreateQueryDef("Q200", cstSourceFiltre & p_sqlwhere & " ORDER BY T01_candidat.nomcandidat")
      .Close
   End With

La requete est bien créé avec tous les champs de cstSourceFiltre et le choix fait dans "ORDER BY..." est bien pris en compte par contre rien de ce que contient p_strsqlWhere n'est passé à la requète.

Avez vous une solution, celle-ci ou une autre voie.
Merci d'avance

[loufab]

Bonjour,

Il te faut supprimer d'abord Q200 avant de la recréer.
Sinon p_strsqlWhere c'est pas pareil que p_sqlWhere. Met systèmatique Option Explicit dans tes Modules ça évite ce genre d'erreur.

Cordialement,

[pedro91]

Merci de s'etre penché sur une erreur aussi bète, l'option explicit est effectivement bien utile, de même que de systématiquement mettre quelques lettres en majuscule dans les définitions de variables (genre idNomEmploye), on voit immédiatement lors de la frappe si on a fait une boulette!

Sur le fond, j'avais trouvé l'erreur ce matin mais j'ai fini par seulement modifier la requète par la commande:

Code :

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

CurrentDb.QueryDefs("Q200").SQL = cstSourceFiltre & p_strsqlWhere & " ORDER BY T01_candidat.NomCandidat"

Cela permet de mettre tranquillement au point les formulaires et etats qui en découlent.

Encore merci pour la précision de ta lecture!