Discussion :

[Flavien44]

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 :

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

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

[Lou Pitchoun]

Salut,

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

Et puis une erreur là :

Code :

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

FROM [T name]

[eristoff_night]

Avant d'afficher ta valeur tu peux faire un

Code :

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

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)

[totofe]

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

Code :

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

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

[Lou Pitchoun]

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

Code :

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

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

Aussi

Donc :

Code :

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

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

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

[Tofalu]

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