Discussion :

[Marie_2116]

Salut,

Il s'agit (encore et toujours) de 2 listes déroulantes, à la première a été ajouté avec succès (merci Kikof ) un "tous" qui rassemble l'ensemble des NOM_REPR. Maintenant on est dans la deuxième liste "Région" à laquelle je souhaiterai ajouter un "tous" si "tous" est sélectionné dans la première liste.
(Recap1 est la table)

J'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Région_GotFocus()
 
If Me.NOM_REPR = "- Tous -" Then
    Me.Région.RowSource = "SELECT DISTINCT Région, 1 AS Position FROM Recap1" & _
    "UNION" & _
    "SELECT DISTINCT "- Tous -" AS Tous, 0 AS Position" & _
    "FROM Recap1" & _
    "ORDER BY Position;"
Else
    Me.Région.RowSource = "SELECT DISTINCT [Recap1].[Région] FROM Recap1 WHERE ((([Recap1].[NOM_REPR])=Formulaires!Recherche_liste_prospects!NOM_REPR))"
End If

Mais il ne fonctionne pas à cause, je pense, des guillemets autour de "tous" dans la chaine SQL.
Le problème ne vient pas de l'utilisation de la fonction "IF" car elle fonctionne sans le "tous".

Je suis débutante en code et je ne sais pas comment contourner le problème...
J'imagine qu'il y a une commande qui permet de faire la même chose (mettre les guillemets autour de "tous") en évitant l'interraction avec les guillemets qui encadrent la chaine SQL...?

Est ce que quelqu'un aurait une idée ? Jusqu'ici mes recherches ont été infructueuses...

Merci d'avance !

[Oleff]

Bonjour,
Tu peux utiliser chr(34)

Code :

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

"SELECT DISTINCT " & chr(34) & - Tous - & chr(34) & " AS Tous, 0 AS Position"

[Marie_2116]

Merci beaucoup,

Ca marche mieux comme ça !!