OVH Cloud OVH Cloud

Erreur à la con

3 réponses
Avatar
JAG
Bonjour ,
je suis en train de programmer tranquillemnt en Vba. Me=20
vient l'id=E9e d'utiliser la fonctin DLookUP pour aller=20
chercher la valeur d'un champ d'une table . Ma syntaxe=20
est correcte seulement le gentil debugger m'envoie le=20
message suivant : "You canceled the previous operation!".=20
J'en suis fort aise mais je ne vois pas ce qui peut=20
couiller. si vou avez une id=E9e je suis pret =E0 vous=20
=E9couter.
merci d'avance

3 réponses

Avatar
Hubert Canevet
ça serait quand même plus facile avec la syntaxe complète,
y compris celle des lignes précédentes, enfin je suppose.

-----Message d'origine-----
Bonjour ,
je suis en train de programmer tranquillemnt en Vba. Me
vient l'idée d'utiliser la fonctin DLookUP pour aller
chercher la valeur d'un champ d'une table . Ma syntaxe
est correcte seulement le gentil debugger m'envoie le
message suivant : "You canceled the previous operation!".
J'en suis fort aise mais je ne vois pas ce qui peut
couiller. si vou avez une idée je suis pret à vous
écouter.
merci d'avance
.



Avatar
JAG
La voila :
Public Function Eng_Identify_Position()

'Test to know if the user is already identified.
If Identified = 0 Then

'Definition of the message box to get the
position of the user
Dim Msg, Style, Title, Ctxt, MyPassword
Msg = "Please enter your password." 'Define
message
Title = "Identification" ' Define title.
Ctxt = 1000 ' Define topic
MyPassword = InputBox(Msg, Title, , , , "",
Ctxt) 'Get the password

' Tests on the password to know if it's good.
If MyPassword = "HPM" Then 'Good password

'Look for and Save the position
//If IsNull(DLookup
("[Position]", "Eng_List_Positions", "[Password] =
MyPassword")) //Then
Position = "General Manager"
Else

Position = DLookup
("[Position]", "Eng_List_Positions", "[Password] =
MyPassword")

End If

Je ne te mets pas la suite car le debugger ne va pas plus
loin que le ligne entourée de //
-----Message d'origine-----
ça serait quand même plus facile avec la syntaxe
complète,

y compris celle des lignes précédentes, enfin je suppose.

-----Message d'origine-----
Bonjour ,
je suis en train de programmer tranquillemnt en Vba. Me
vient l'idée d'utiliser la fonctin DLookUP pour aller
chercher la valeur d'un champ d'une table . Ma syntaxe
est correcte seulement le gentil debugger m'envoie le
message suivant : "You canceled the previous
operation!".


J'en suis fort aise mais je ne vois pas ce qui peut
couiller. si vou avez une idée je suis pret à vous
écouter.
merci d'avance
.

.





Avatar
h.canevet
Bonjour,

Quand je disais qu'avec la syntaxe on s'y retrouve mieux ...

Je suis quand même étonné : est-ce que cette erreur n'aurait pas dû se
manifester par une erreur 13 (type incompatible) ?

Si jamais il y avait encore un souci on aura besoin du numéro de
l'erreur avec le message "You canceled the previous operation!", ainsi
que quelques informations sur la procédure qui appelle cette fonction.

Une erreur n'empêche pas l'autre.

Cela étant c'est vrai que sur la ligne indiquée, on a du mal à
imaginer autre chose comme problème. Peut-être y a-t-il un contrôle
qui s'appelle MyPassword, et si il n'y a rien dedans la requête est
interprétée comme une erreur de type 32755 (abandon par
l'utilisateur).

L'essentiel c'est que ça marche.
____________________________________________
"3stone" wrote in message news:<#...
Salut,

JAG

If IsNull(DLookup ("[Position]", "Eng_List_Positions", "[Password] = MyPassword"))


MyPassword est une variable, non ?

"[Password] = '" & MyPassword & "'"


ou, faire directement référence à la zone de saisie...

"[Password] = '" & Forms!NomForm!txtPassword & "'"