Discussion :

[Max02]

Bonjour,

J'ouvre une nouvelle discutions car la demande n'ait pas la même et cela sera plus simple pour les gens qui cherche une réponse à leur question.

J'explique donc mon problème :

J'ai une requête avec comme code SQL :

Code :

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

1
2
3
4
 
SELECT [TEST PLAN DE MAINTENANCE].PLAN_Machine, [TEST PLAN DE MAINTENANCE].PLAN_Station, [TEST PLAN DE MAINTENANCE].PLAN_Intervenant, [TEST PLAN DE MAINTENANCE].PLAN_Action, [TEST PLAN DE MAINTENANCE].PLAN_Semaine_N°7, [TEST PLAN DE MAINTENANCE].PLAN_Pièces, [TEST PLAN DE MAINTENANCE].PLAN_Quantité, [TEST PLAN DE MAINTENANCE].PLAN_Validation
FROM [TEST PLAN DE MAINTENANCE]
WHERE ((([TEST PLAN DE MAINTENANCE].PLAN_Semaine_N°7)=True));

J'ai un formulaire avec un menu déroulant qui contient : XX ; XY ; YX
Et une zone de texte pouvant contenir 52 valeurs ( de 1 à 52 ).

Je souhaite que :

-Quand dans mon menu déroulant j'ai une des trois valeurs alors elle s'affiche comme critère dans ma requête pour le champ :

Code :

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

[TEST PLAN DE MAINTENANCE].PLAN_Intervenant,

-Quand j'ai taper une de mes 52 valeurs on va prendre Semaine_N°9 alors :

Code :

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

[TEST PLAN DE MAINTENANCE].PLAN_Semaine_N°7)

devient :

Code :

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

[TEST PLAN DE MAINTENANCE].PLAN_Semaine_N°9)

Si quelqu'un connais le code qui pourrait me faire cela car impossible de trouver une explication concrète et idéal sur le net.

Merci beaucoup.

[loufab]

Bonjour,

Tu peux composer une requpete dynamiquement avec VBA (comme tu le dis dans ton titre).

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
dim vlsql as String
vlsql = "SELECT [TEST PLAN DE MAINTENANCE].PLAN_Machine, [TEST PLAN DE MAINTENANCE].PLAN_Station, [TEST PLAN DE MAINTENANCE].PLAN_Intervenant, [TEST PLAN DE MAINTENANCE].PLAN_Action, [TEST PLAN DE MAINTENANCE].PLAN_Semaine_N°7, [TEST PLAN DE MAINTENANCE].PLAN_Pièces, [TEST PLAN DE MAINTENANCE].PLAN_Quantité, [TEST PLAN DE MAINTENANCE].PLAN_Validation
FROM [TEST PLAN DE MAINTENANCE] WHERE True "
if not isnull(me.malisteXY) then
vlsql = vlsql & " AND [TEST PLAN DE MAINTENANCE].PLAN_Intervenant='" & me.malisteXY & "'"
endif
if not isnull(me.maliste1_52) then
vlsql = vlsql & " AND [TEST PLAN DE MAINTENANCE].[PLAN_Semaine_N°" & me.maliste1_52 & "]=TRUE" 
endif
vlsql = vlsql & ";"

Voilà ! Après adaptation ça doit foncitonner.
Le where True permet de s'affranchir des tests de présence pour les AND.

Si tu as un problème de débogage il existe le tuto pour ce genre de montage.

Cordialement,

[Max02]

Merci de ta réponse,

Par conter il ne veut rien savoir pour Where True.
Il me met automatiquement des " a la fin de la première ligne et n'est pas décider à les enlever.
Il me surligne de rouge le FROM.

Un fois cela "résolu" , en tout cas pas de message d'erreur, rien ne ce passe.

Ou alors un méssage fonction non définis pour ma :

Code :

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

Private Sub Commande0_Click()

C'est moi qui merdouille ?

Edit :

Ba non j'ai beau le retourner dans tout les sens ça marche pas.

[loufab]

Code :

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

1
2
3
4
5
6
7
8
vlsql = "SELECT [TEST PLAN DE MAINTENANCE].PLAN_Machine, [TEST PLAN DE MAINTENANCE].PLAN_Station, [TEST PLAN DE MAINTENANCE].PLAN_Intervenant, [TEST PLAN DE MAINTENANCE].PLAN_Action, "
 
if not isnull(me.maliste1_52) then
   vlsql = vlsql & " [TEST PLAN DE MAINTENANCE].[PLAN_Semaine_N°" & me.maliste1_52 & "], " 
endif
 
vlsql = vlsql & " [TEST PLAN DE MAINTENANCE].PLAN_Pièces, [TEST PLAN DE MAINTENANCE].PLAN_Quantité, [TEST PLAN DE MAINTENANCE].PLAN_Validation "
vlsql = vlsql & " FROM [TEST PLAN DE MAINTENANCE] WHERE True "

Découpe ta ligne SELECT et profites en pour traiter également le champ N° comme ci-plus haut.

Regarde le tuto sur le débogage des requêtes pour finir la mise au point du code.

[Max02]

Aucun bug mais rien ne ce passe.

Je ne comprend pas comment cela peut marcher alors que dans le code il n'y aucune référence a ma requête de nom "Requêtetruc" ?

J'ai repris le code mis dans un bouton pour lancement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim vlsql As String
 
vlsql = "SELECT [TEST PLAN DE MAINTENANCE].PLAN_Machine, [TEST PLAN DE MAINTENANCE].PLAN_Station, [TEST PLAN DE MAINTENANCE].PLAN_Intervenant, [TEST PLAN DE MAINTENANCE].PLAN_Action, "
 
If Not IsNull(Me.Modifiable1) Then
   vlsql = vlsql & " [TEST PLAN DE MAINTENANCE].[PLAN_intervenant" & Me.Modifiable1 & "], "
End If
 
vlsql = vlsql & " [TEST PLAN DE MAINTENANCE].PLAN_Pièces, [TEST PLAN DE MAINTENANCE].PLAN_Quantité, [TEST PLAN DE MAINTENANCE].PLAN_Validation "
 
vlsql = vlsql & " FROM [TEST PLAN DE MAINTENANCE] WHERE True "

Ou alors c'est moi qui vaut pas une peau de lapin, c'est fort possible d'ailleurs

[Max02]

Bon plus besoin de ce prendre la tête pour l'intervenant cela marche en mettant une simple ligne dans le critére de ma requête:

[Formulaires]![formulaire1]![modifiable1]

Je choisi dans ma listbox , je lance ma requête qui ce met a jour toute seul.

Reste le moyen pour les semaines.

[loufab]

C'est une autre solution possible.

Par contre tu as raté cette information pour faire fonctionner le cas précédent.

Regarde le tuto sur le débogage des requêtes pour finir la mise au point du code.