commande SQL qui ne fonctionne pas

Bonjour

J'edite un formulaire par les lignes de code en VBA et j'aimerai que le systeme aille me chercher une info dans mes tables.
J'effectue donc la commande suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'User_Right peut prendre la valeur "User", "Admin" Public User_Right As String   Private Sub Form_Open(Cancel As Integer) 'User contient la chaine de caractere correspondant au login de l'utilisateur Dim User As String   'Commande qui doit verifier les droits de l'utilisateur User_Right = "SELECT [T Name].[Access]" & _ "FROM T Name" & _ "WHERE [T Name].[Login] = '" & User & "'"   'On affiche la valeur contenue dans User_right dans une boite de texte Me.TB_Right.Value = User_Right End Sub

---

N.B.: Tout les champs sont des chaines de caractere.
Mais a l'execution de mon formulaire, Access m'affiche la commande, c'est a dire "SELECT[...].[...] FROM... "
Ce code m'a pourtant l'air bon alors dite moi ou est mon erreur?

D'avance Merci

Salut,

A première vue (sans le message d'erreur :roll: ) : Que vaut User au moment où tu entres dans cette fonction ?
User est vide non ??

Et puis une erreur là :

Code:

---

FROM [T name]

---

Avant d'afficher ta valeur tu peux faire un

Code:

---

Debug.print User_Right

---

Pour voir la tete de ta requete.

De plus je vois pas trop non plus ce que contient ta variable user
+1 pour le faite qu'elle soit vide je dirais

Moi generalement que je fais un requete sql avec un string j'utilise a la place de ton "=" un "like" et je mets des guillemets autour du contenu de la variable "user" et pas des cote (a voir parce que pte que ta methode fonctionne)

je pense que c'est par ce qu'il manque un espace avant FROM et WHERE

Code:

---

1 2 3 4

User_Right = "SELECT [T Name].[Access]" & _ " FROM T Name" & _ " WHERE [T Name].[Login] = '" & User & "'"

---

Citation:

---

Envoyé par totofe

je pense que c'est par ce qu'il manque un espace avant FROM et WHERE

Code:

---

1 2 3 4

User_Right = "SELECT [T Name].[Access]" & _ " FROM T Name" & _ " WHERE [T Name].[Login] = '" & User & "'"

---

---

Aussi ;)

Donc :

Code:

---

1 2 3

User_Right = "SELECT [T Name].[Access] " & _ "FROM [T Name] " & _ "WHERE [T Name].[Login] = '" & User & "'"

---

et reste plus qu'à donner une valeur à user :mouarf:

Ps : je préfère mettre les espaces en fin de ligne

Mmm,

Machaine="SELECT * FROM ...."
MonControle=MaChaine

C'est donc normal que MonControle affiche le contenu de MaChaine non ?

Pour consulter des données en VBA, interresse toi aux recordset DAO (cf mon tuto à ce sujet). Ou bien encore les fonctions de domaine, DLookup par exempe