Discussion :

[lacassl]

Bonjour

J'ai cette requête qui fonctionne très bien dans le générateur de requête

Code :

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

1
2
3
4
 
SELECT [Couleur Alu/Méla].[Numéro Couleur Alu/Méla], [Couleur Alu/Méla].ID
FROM [Couleur Alu/Méla]
WHERE ((([Couleur Alu/Méla].ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));

Mais voila j’aimerai quelle s’exécute que si le champ "choix forcé" est vide (champs de texte)

Je n'arrive pas a placer un iif au bon endroit je pence,

Quelqu'un a-t-il une idée ?

merci d'avance

[marot_r]

Bonjour.

Mais voila j’aimerai quelle s’exécute que si le champ "choix forcé" est vide (champs de texte)

Je ne suis pas sur de comprendre ce que tu entends par "s'exécuter".
Si c'est ne retourner des données que si le champ est vide, il suffit de mettre comme critère Is Null (est Null) dans la colonne du champ.

Si c'est autre chose, détaille ce que exécuter veut dire pour toi.

A+

[lacassl]

Merci marot de ta réponse

je m’explique, J'ai un formulaire dans lequel j'ai plusieurs zone de texte et zone de liste

J'ai une zone de liste qui s’appelle "Couleur Alu/Mela" et dans laquelle j'ai le code sql suivant

Code :

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

1
2
3
SELECT [Couleur Alu/Méla].[Numéro Couleur Alu/Méla], [Couleur Alu/Méla].ID
FROM [Couleur Alu/Méla]
WHERE ((([Couleur Alu/Méla].ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));

J'ai aussi une zone de texte qui s’appelle "Résultat Forcé" qui par défaut est vide mais qui peut être rempli

Ce que je veut c'est que le code de la zone de liste "Couleur Alu/Mela" ne s’applique que si la zone de texte "Résultat Forcé" est vide

Je ne sait pas comment faire cela

[tee_grandbois]

Bonjour,
il faut utiliser l'évènement "Sur changement" (en anglais dans VBA : "Change") du contrôle [Résultat forcé] pour modifier le contenu de la zone de liste [Couleur Alu/Méla] :

Code :

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

1
2
3
4
5
6
7
8
 
If isnull(Me.Résultat_forcé)  Then
    Me.[Couleur alu/mela].RowSource = "SELECT [Couleur Alu/Méla].[Numéro Couleur Alu/Méla], [Couleur Alu/Méla].ID" _
                                & " From [Couleur Alu/Méla]" _
                                & " WHERE ((([Couleur Alu/Méla].ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));"
Else
    Me.[Couleur alu/mela].RowSource = "AUTRE CHOSE"
End If

Un conseil : évite d'utiliser des espaces, des slashs ("/") ou des caractères avec accent pour nommer tes champs et tes contrôles cela peut poser des problèmes.

[marot_r]

Bonjour.

Ce que tu a posté est du SQL pas du code VBA et il ne "s'applique" pas au sens habituel du terme.
Il va chercher des données et affiche une liste de résultats.

Est-ce que tu veux :

1. Que la requête ne retourne des résultats que si la zone de texte [Résultat Forcé] est vide ?
2. Que la requête ne retourne que des résultats correspondant au contenu de [Résultat Forcé] ?
3. Autre chose ? Donne un exemple.

A+

[lacassl]

bonjour

marot :

Alors oui je veut "Que la requête ne retourne des résultats que si la zone de texte [Résultat Forcé] est vide" et oui c'est du SQL mon code, je ne l'avais pas précisé, j'avais juste mis que sa venais du générateur de requête

tee_grandbois :

Je vais test ton code demain ou lundi et je vous tiendrait au courant

[lacassl]

Bonjour

tee_grandbois :

J'ai testé ton code je n'ai pas réussi à le faire marcher

J'ai revue comme tu me la conseiller toute mes champs et mes contrôles

Du coup ça donne le code suivant

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
16
 
Private Sub ResultatForce_Change()
 
If IsNull(Me.ResultatForce) Then
   Me.[Texte_Couleur].RowSource = "SELECT Tb_Couleur_AluMela.Numero_Couleur_AluMela, Tb_Couleur_AluMela.ID" _
                                & "FROM Tb_Couleur_AluMela" _
                                & "WHERE (((Tb_Couleur_AluMela.ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));"
 
 
Else
     Me.[Texte_Couleur].RowSource = "AUTRE CHOSE"
 
 
End If
 
End Sub

Mais cela ne donne rien non plus

[tee_grandbois]

bonjour,
tu as enlevé les espaces devant le FROM et le WHERE :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ResultatForce_Change()
 
If IsNull(Me.ResultatForce) Then
   Me.[Texte_Couleur].RowSource = "SELECT Tb_Couleur_AluMela.Numero_Couleur_AluMela, Tb_Couleur_AluMela.ID" _
                                & " FROM Tb_Couleur_AluMela" _
                                & " WHERE (((Tb_Couleur_AluMela.ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));"
 
Else
     Me.[Texte_Couleur].RowSource = "AUTRE CHOSE"   '<==== il faudrait mettre autre chose que "AUTRE CHOSE" !!!
 
End If
 
End Sub

[lacassl]

bonjour et merci de ton aide

Je viens de testé le code avec les corrections mais rien ne se fait

pour ce qui est de "Autre Chose" je souhaite qu'il ne face rien donc j'ai testé avec "" mais rien non plus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ResultatForce_Change()
 
If IsNull(Me.ResultatForce) Then
   Me.[Texte_Couleur].RowSource = "SELECT Tb_Couleur_AluMela.Numero_Couleur_AluMela, Tb_Couleur_AluMela.ID" _
                                & " FROM Tb_Couleur_AluMela" _
                                & " WHERE (((Tb_Couleur_AluMela.ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));"
 
Else
     Me.[Texte_Couleur].RowSource = ""
 
End If
 
End Sub

[tee_grandbois]

Bonjour,
[Me.ResultatForce] est peut être vide et pas nul, et on enlève aussi le Else si tu ne fais rien dans ce cas.
Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ResultatForce_Change()
 
If (Me.ResultatForce) = "" Then
   Me.[Texte_Couleur].RowSource = "SELECT Tb_Couleur_AluMela.Numero_Couleur_AluMela, Tb_Couleur_AluMela.ID" _
                                & " FROM Tb_Couleur_AluMela" _
                                & " WHERE (((Tb_Couleur_AluMela.ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));"
End If
 
End Sub

autre chose: [Passerelle] est-il le formulaire actif ?

[lacassl]

alors je n'ai rien non plus avec ce code

[Passerelle] est le formulaire dans lequel je suis effectivement

[tee_grandbois]

à quoi sert le WHERE ?
plus précisément, est-ce que CouleurPrincipal a une valeur ?

[lacassl]

Code :

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

WHERE (((Tb_Couleur_AluMela.ID)=[Formulaires]![Passerelle]![CouleurPrincipal]

"[Formulaires]![Passerelle]![CouleurPrincipal]" est le menu déroulant qui permet de choisir un couleur dans une liste

WERE sert donc a récupéré cette couleur pour afficher les bonnes valeur

[tee_grandbois]

si il n'y a rien c'est qu'il ne trouve rien, il faut savoir pourquoi :
enlève l'instruction WHERE temporairement.

[lacassl]

cela ne donne rien non plus

Mais le code SQL fonctionne très bien dans le générateur de requête.

[tee_grandbois]

cela ne donne rien non plus

Mais le code SQL fonctionne très bien dans le générateur de requête.

pourrais-tu être plus précis ?

[tee_grandbois]

met une boite message pour savoir si cela passe dans le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ResultatForce_Change()
 
If (Me.ResultatForce) = "" Then
   Msgbox "ça fonctionne "
   Me.[Texte_Couleur].RowSource = "SELECT Tb_Couleur_AluMela.Numero_Couleur_AluMela, Tb_Couleur_AluMela.ID" _
                                & " FROM Tb_Couleur_AluMela" _
                                & " WHERE (((Tb_Couleur_AluMela.ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));"
End If
 
End Sub

[lacassl]

Le message n'apparait pas non plus

Je te joint des captures écran : (je pence que ça peut t'aider a m'aider )

- du formulaire avec la requête directement exécuté dans le contenu de "Texte couleur" (qui fonctionne en l'état) + la feuille de propriété de "Texte couleur" + la requête de "Texte couleur"
- du formulaire avec la requête qui passe par le VBA ou je n'ai donc pas de retour sur le formulaire
- du formulaire en mode création
Pièce jointe 309100Pièce jointe 309104Pièce jointe 309109Pièce jointe 309114Pièce jointe 309115

ci besoin je peut t'envoyer en message privé mon fichier access

[tee_grandbois]

bien sûr,

Le message n'apparait pas non plus

je faisais fausse route depuis le début, il faut modifier la source de la liste dès qu'on atteint la liste et pas sur le contrôle qui peut modifier la liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Texte_Couleur_GotFocus()
 
If (Me.ResultatForce) & "" = "" Then
   Me.[Texte_Couleur].RowSource = "SELECT Tb_Couleur_AluMela.Numero_Couleur_AluMela, Tb_Couleur_AluMela.ID" _
                                & " FROM Tb_Couleur_AluMela" _
                                & " WHERE (((Tb_Couleur_AluMela.ID)=[Formulaires]![Passerelle]![CouleurPrincipal]));"
Else
   Me.[Texte_Couleur].RowSource = ""
End If
 
End Sub

Quand on n'a pas l'appli sous les yeux ...

[lacassl]

Merci beaucoup grâce a toi j'avance dans mon projet

Alors sa marche presque, petit bémol sa me change pour toute les lignes à l’identique, je m'explique, si je clique sur "Texte_Couleur" de la première ligne il met la valeur demandé partout
si je clique sur "Texte_Couleur" de la 2ème ligne il vide tous car j'ai une valeur forcé, si je clique sur "Texte_Couleur" de la 3ème ligne il met la valeur demandé partout,..... (voir capture)





Il fraudais que chaque ligne soit indépendante les une des autres