Trouver une valeur dans une table en VBA

Bonjour,

Nom de ma table : "Tbl_Nom"
Champs : "Login";"Admin" (de type oui/non)

Je voudrais mettre dans une variable si oui ou non l'utilisateur est admin.

Le Login est l'identifiant de Windows que je récupérere via une fonction GetLoginUser() (dans mon module 1)

voici mon programme :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Param_DblClick(Cancel As Integer)   Dim nomadmin As String   nomadmin = DLookup("[Admin]", "Tbl_Nom", "[LOGIN] = " & GetLoginUser()) MsgBox nomadmin   End sub

---

Lorsqu'il s'exécute, il me met une erreur "Opération annulée..."

J'ai pourtant controlé le nom des champs (orthographe OK), table...
J'ai essayé avec un type de variable boolean, NOK

Pouvez vous m'aider ?

Merci d'avance

Ou une autre solution (je ne connais pas le SQL) ?

Bonjour et bienvenue sur le forum Office de DVP.

Deux choses :

Déclares ta variable nomadmin de type variant, car s'il ne trouve rien, la fonction DLookup renvoie Null, ce qui ne passe pas avec une variable de type String.

Login est du texte, donc il faut utiliser les simples quotes.

Exemple avec du SQL :http://access.developpez.com/faq/ind...riteres#txtQry ou là : http://starec.developpez.com/tuto/fo...sdomaines/#LIV


Philippe

Merci, effectivement, ça fonctionne depuis que j'ai ajouté
"[LOGIN] = '" & GetLoginUser & "'"

Mais je rencontre 2 autres problèmes

1- Il me renvoie "-1" quand l'utilisateur est bien admin, est'ce normal ?

2- Quand je ne suis pas admin, il me renvoie un message d'erreur "Utilisation incorrecte de Null"
J'ai essayé d'y palier avec un if, mais ça na fonctionne pas...

If nomadmin=Null then...
Else Msgbox
end if

Désolé, j'ai trouvé tout seul !

J'ai inversé le if !

If nomadmin=-1 then ...
Else Msgbox("Vous n'etes pas autorisé")
end if

Merci pour votre aide

Re

Citation:

---

Envoyé par Zoethibault

1- Il me renvoie "-1" quand l'utilisateur est bien admin, est'ce normal ?

---

Est-ce que ton champ [Admin] est une valeur de type Booléen (Oui/Non), si c'est le cas, c'est normal.

Citation:

---

2- Quand je ne suis pas admin, il me renvoie un message d'erreur "Utilisation incorrecte de Null"
J'ai essayé d'y palier avec un if, mais ça na fonctionne pas...

---

Citation:

---

Envoyé par Philippe JOCHMANS

Déclares ta variable nomadmin de type variant, car s'il ne trouve rien, la fonction DLookup renvoie Null, ce qui ne passe pas avec une variable de type String.

---

Philippe