Discussion :

[Zoethibault]

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 :

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

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) ?

[Invité]

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

[Zoethibault]

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

[Zoethibault]

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

[Invité]

Re

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.

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...

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