Discussion :

[Marie_2116]

Bonjour,

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
12
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 & Chr(34) & - Tous - & Chr(34) & 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
End Sub

Dès que je lance l'application j'ai le message d'erreur d'Access : "Erreur de syntaxe dans la clause FROM".

Il s'agit à mon avis de la première partie de mon code (dans if) mais je ne comprends pas ce qui ne lui plait pas...
Ce que je cherche à faire : rajouter "tous" à la liste "Région" si "tous" a été selectionné dans une autre liste apellée NOM_REPR.

J'ai l'impression que ce n'est pas grand chose, mais je débute en code et les autres post que j'ai trouvé pour le même genre d'erreur ne m'ont pas permis de me débloquer.

Est ce que quelqu'un a une idée ?
Merci d'avance

[moicats]

Salut,

as tu essayé ta requete dans un generateur de requete pour verifier si la sintaxe est bonne?
ça aide pour debuger un probleme de ce type

bonne continuation

[Marie_2116]

Salut,

Oui j'ai créée cette requête grâce au générateur et j'ai copié et importé sous VBA le code SQL de la requête.
C'est pour cela que je ne comprends pas le pb parce qu'avec une requete, cela fonctionnait.
Mais je vais re-vérifier !

Merci du conseil

[Marie_2116]

J'ai réessayé avec un générateur de requête, le code :

Code :

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

1
2
3
4
5
SELECT DISTINCT Région, 1 AS Position FROM Recap1
UNION
SELECT DISTINCT "- Tous -" AS Tous, 0 AS Position
FROM Recap1
ORDER BY Position

mais j'avais eu un problème à changer les guillemets autour de "tous" on m'a conseillé de mettre & chr(34) &
ce qui donne :

Code :

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

1
2
3
4
5
6
If Me.NOM_REPR = "- Tous -" Then
    Me.Région.RowSource = "SELECT DISTINCT Région, 1 AS Position FROM Recap1" & _
    "UNION" & _
    "SELECT DISTINCT & Chr(34) & - Tous - & Chr(34) & AS Tous, 0 AS Position" & _
    "FROM Recap1" & _
    "ORDER BY Position;"

mais cela ne marche plus...

Est ce que quelqu'un voit l'erreur dans l'utilisation de Chr (34) ?
C'est la première fois que je me sers de cette commande, il y a peut être une erreur à ce niveau ?

Merci d'avance

[Invité]

Bonjour

Il te manque un espace aprés :Recap1, et dans toutes les fins de lignes

Code :

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

1
2
3
4
5
6
If Me.NOM_REPR = "- Tous -" Then
    Me.Région.RowSource = "SELECT DISTINCT Région, 1 AS Position FROM Recap1 " & _
    "UNION " & _
    "SELECT DISTINCT & Chr(34) & - Tous - & Chr(34) & AS Tous, 0 AS Position " & _
    "FROM Recap1 " & _
    "ORDER BY Position;"

Déjà dans un premier temps.

Starec

[Marie_2116]

Merci Starec !

J'ai fait la modif que tu m'avais conseillé et j'ai un nouveau message d'erreur qui concerne la commande : chr(34)

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
If Me.NOM_REPR = "- Tous -" Then
    Me.Région.RowSource = "SELECT DISTINCT Région, 1 AS Position FROM Recap1 " & _
    "UNION " & _
    "SELECT DISTINCT & Chr(34) & - Tous - & Chr(34) & AS Tous, 0 AS Position " & _
    "FROM Recap1 " & _
    "ORDER BY Position;"

Et là le message d'erreur qui apparait est :
Erreur de syntaxe (opérateur absent) dans l'expression '& chr(34) &-tous-& chr(34) &'.

J'ai essayé avec des espaces, sans espaces, avec des & et sans, je ne vois pas comment utiliser cette fonction ...

Est ce que tu as une idée ?

[Lou Pitchoun]

Salut

- tous - est une chaine :

Code :

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

1
2
3
4
5
6
If Me.NOM_REPR = "- Tous -" Then
    Me.Région.RowSource = "SELECT DISTINCT Région, 1 AS Position FROM Recap1 " & _
    "UNION " & _
    "SELECT DISTINCT " & Chr(34) & "- Tous -" & Chr(34) & " AS Tous, 0 AS Position " & _
    "FROM Recap1 " & _
    "ORDER BY Position;"

[mout1234]

Code :

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

"SELECT DISTINCT " & Chr(34) & " - Tous - " & Chr(34) & " AS Tous,

Ou

Code :

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

"SELECT DISTINCT ' - Tous - ' AS Tous,

[Marie_2116]

Merci beaucoup Kikof et Mout1234 !!! Ca marche impecc !!!

J'apprécie vraiment que vous preniez le temps d'aider les débutants, c'est vraiment gentil, merci !

[mout1234]

Merci beaucoup Kikof et Mout1234 !!! Ca marche impecc !!!

J'apprécie vraiment que vous preniez le temps d'aider les débutants, c'est vraiment gentil, merci !

Ce fut un plaisir