Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access problème création mot de passe (code VB)

problème création mot de passe (code VB)

5 réponses
Avatar
Gilles.ramby
Bonjour
J'ai créé le code ci-dessous pour demander un mot de passe ...



Private Sub dates_DblClick(Cancel As Integer)

Dim reponse As String

reponse = InputBox("tapez votre mot de passe", "Password")

If reponse = "COUCOU" Then

Me.dates.Locked = False

Else

MsgBox "Mot de passe incorrect"

End If

End Sub



Mais lorsque l'utilisateur veut modifier son mot de passe, il est obligé de
modifier le code.

Je cherche une solution pour que dans une boite de dialogue, je puisse
changer le mot de passe (du genre : ancien mot de passe - nouveau mot de
passe).
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gafish
Bonjour,

Il faudrait dans ce cas que tu stockes le mot de passe non pas dans le code,
mais dans une table. Ainsi tu vas regarder par requête si le mot de passe
est bon, et s'il veut le modifier tu fais un update sur ta table.
Le seul problème, c'est que le mot de passe apparaîtra en clair dans la
table, mais de toute facon il était déja en clair dans le code.

Arnaud

"Gilles.ramby" a écrit dans le message
news: _vw2d.5740$
Bonjour
J'ai créé le code ci-dessous pour demander un mot de passe ...



Private Sub dates_DblClick(Cancel As Integer)

Dim reponse As String

reponse = InputBox("tapez votre mot de passe", "Password")

If reponse = "COUCOU" Then

Me.dates.Locked = False

Else

MsgBox "Mot de passe incorrect"

End If

End Sub



Mais lorsque l'utilisateur veut modifier son mot de passe, il est obligé
de

modifier le code.

Je cherche une solution pour que dans une boite de dialogue, je puisse
changer le mot de passe (du genre : ancien mot de passe - nouveau mot de
passe).




Avatar
Gilles.ramby
Je suis preneur ; je t'envoie un message dans ta BAL
"Brubru" a écrit dans le message de news:
ciebih$n1k$
En effet, il faut stocker le Mot de passe dans une table....
Pour éviter qu'il apparaisse en clair, tu peux faire une boucle sur la
longueur du mot de passe. Dans cette boucle, tu extrait la valeur
numérique

du caractère avec la fonction acs(Caractère). Ensuite tu modifies cette
valeur numérique, en ajoutant +5 par exemple, et tu retraduit cette
nouvelle

valeur en caractère avec la fonction chr(ValeurNumérique).
Ainsi dans la table, si le mot de passe est TOTO, tu auras une autre
valeur

d'afffichée.
Cela oblige à inclure la fonction de codage/décodage à chaque fois, mais
je

n'ai pas trouvé mieux.
Si tu veux, j'ai une base exemple qui fait ça et je peux te l'envoyer.

--
Brubru
===== > "Gafish" a écrit dans le message de news:
#
Bonjour,

Il faudrait dans ce cas que tu stockes le mot de passe non pas dans le
code,

mais dans une table. Ainsi tu vas regarder par requête si le mot de
passe


est bon, et s'il veut le modifier tu fais un update sur ta table.
Le seul problème, c'est que le mot de passe apparaîtra en clair dans la
table, mais de toute facon il était déja en clair dans le code.

Arnaud

"Gilles.ramby" a écrit dans le message
news: _vw2d.5740$
Bonjour
J'ai créé le code ci-dessous pour demander un mot de passe ...



Private Sub dates_DblClick(Cancel As Integer)

Dim reponse As String

reponse = InputBox("tapez votre mot de passe", "Password")

If reponse = "COUCOU" Then

Me.dates.Locked = False

Else

MsgBox "Mot de passe incorrect"

End If

End Sub



Mais lorsque l'utilisateur veut modifier son mot de passe, il est
obligé



de
modifier le code.

Je cherche une solution pour que dans une boite de dialogue, je puisse
changer le mot de passe (du genre : ancien mot de passe - nouveau mot
de



passe).












Avatar
Brubru
En effet, il faut stocker le Mot de passe dans une table....
Pour éviter qu'il apparaisse en clair, tu peux faire une boucle sur la
longueur du mot de passe. Dans cette boucle, tu extrait la valeur numérique
du caractère avec la fonction acs(Caractère). Ensuite tu modifies cette
valeur numérique, en ajoutant +5 par exemple, et tu retraduit cette nouvelle
valeur en caractère avec la fonction chr(ValeurNumérique).
Ainsi dans la table, si le mot de passe est TOTO, tu auras une autre valeur
d'afffichée.
Cela oblige à inclure la fonction de codage/décodage à chaque fois, mais je
n'ai pas trouvé mieux.
Si tu veux, j'ai une base exemple qui fait ça et je peux te l'envoyer.

--
Brubru
===== "Gafish" a écrit dans le message de news:
#
Bonjour,

Il faudrait dans ce cas que tu stockes le mot de passe non pas dans le
code,

mais dans une table. Ainsi tu vas regarder par requête si le mot de passe
est bon, et s'il veut le modifier tu fais un update sur ta table.
Le seul problème, c'est que le mot de passe apparaîtra en clair dans la
table, mais de toute facon il était déja en clair dans le code.

Arnaud

"Gilles.ramby" a écrit dans le message
news: _vw2d.5740$
Bonjour
J'ai créé le code ci-dessous pour demander un mot de passe ...



Private Sub dates_DblClick(Cancel As Integer)

Dim reponse As String

reponse = InputBox("tapez votre mot de passe", "Password")

If reponse = "COUCOU" Then

Me.dates.Locked = False

Else

MsgBox "Mot de passe incorrect"

End If

End Sub



Mais lorsque l'utilisateur veut modifier son mot de passe, il est obligé
de

modifier le code.

Je cherche une solution pour que dans une boite de dialogue, je puisse
changer le mot de passe (du genre : ancien mot de passe - nouveau mot de
passe).








Avatar
Brubru
Pour m'écrire changer le "brubruno" en "bruno" tout court
--
Brubru
===== "Gilles.ramby" a écrit dans le message de
news: Bxy2d.5759$
Je suis preneur ; je t'envoie un message dans ta BAL
"Brubru" a écrit dans le message de news:
ciebih$n1k$
En effet, il faut stocker le Mot de passe dans une table....
Pour éviter qu'il apparaisse en clair, tu peux faire une boucle sur la
longueur du mot de passe. Dans cette boucle, tu extrait la valeur
numérique

du caractère avec la fonction acs(Caractère). Ensuite tu modifies cette
valeur numérique, en ajoutant +5 par exemple, et tu retraduit cette
nouvelle

valeur en caractère avec la fonction chr(ValeurNumérique).
Ainsi dans la table, si le mot de passe est TOTO, tu auras une autre
valeur

d'afffichée.
Cela oblige à inclure la fonction de codage/décodage à chaque fois, mais
je

n'ai pas trouvé mieux.
Si tu veux, j'ai une base exemple qui fait ça et je peux te l'envoyer.

--
Brubru
===== > > "Gafish" a écrit dans le message de news:
#
Bonjour,

Il faudrait dans ce cas que tu stockes le mot de passe non pas dans le
code,

mais dans une table. Ainsi tu vas regarder par requête si le mot de
passe


est bon, et s'il veut le modifier tu fais un update sur ta table.
Le seul problème, c'est que le mot de passe apparaîtra en clair dans
la



table, mais de toute facon il était déja en clair dans le code.

Arnaud

"Gilles.ramby" a écrit dans le
message



news: _vw2d.5740$
Bonjour
J'ai créé le code ci-dessous pour demander un mot de passe ...



Private Sub dates_DblClick(Cancel As Integer)

Dim reponse As String

reponse = InputBox("tapez votre mot de passe", "Password")

If reponse = "COUCOU" Then

Me.dates.Locked = False

Else

MsgBox "Mot de passe incorrect"

End If

End Sub



Mais lorsque l'utilisateur veut modifier son mot de passe, il est
obligé



de
modifier le code.

Je cherche une solution pour que dans une boite de dialogue, je
puisse




changer le mot de passe (du genre : ancien mot de passe - nouveau
mot




de
passe).
















Avatar
Yann
Salut,
Tu as aussi une autre solution et taper directement dans
le code avec
Inputbox$("Mot de passe",strNewPassword)
Application.VBE.VBProjects("NomDuProjet").VBComponents
("NomDuModule").CodeModule.ReplaceLine 4,"If reponse
= """& strPassword & """ Then"

PS: Il faut que le module de changement de mot de passe
ne soit pas le même que celui où on fait le changement.

Bye
Yann

-----Message d'origine-----
En effet, il faut stocker le Mot de passe dans une
table....

Pour éviter qu'il apparaisse en clair, tu peux faire une
boucle sur la

longueur du mot de passe. Dans cette boucle, tu extrait
la valeur numérique

du caractère avec la fonction acs(Caractère). Ensuite tu
modifies cette

valeur numérique, en ajoutant +5 par exemple, et tu
retraduit cette nouvelle

valeur en caractère avec la fonction chr
(ValeurNumérique).

Ainsi dans la table, si le mot de passe est TOTO, tu
auras une autre valeur

d'afffichée.
Cela oblige à inclure la fonction de codage/décodage à
chaque fois, mais je

n'ai pas trouvé mieux.
Si tu veux, j'ai une base exemple qui fait ça et je peux
te l'envoyer.


--
Brubru
======
"Gafish" a écrit dans le
message de news:

#
Bonjour,

Il faudrait dans ce cas que tu stockes le mot de passe
non pas dans le


code,
mais dans une table. Ainsi tu vas regarder par requête
si le mot de passe


est bon, et s'il veut le modifier tu fais un update
sur ta table.


Le seul problème, c'est que le mot de passe apparaîtra
en clair dans la


table, mais de toute facon il était déja en clair dans
le code.



Arnaud

"Gilles.ramby" a
écrit dans le message


news: _vw2d.5740$
Bonjour
J'ai créé le code ci-dessous pour demander un mot de
passe ...






Private Sub dates_DblClick(Cancel As Integer)

Dim reponse As String

reponse = InputBox("tapez votre mot de
passe", "Password")




If reponse = "COUCOU" Then

Me.dates.Locked = False

Else

MsgBox "Mot de passe incorrect"

End If

End Sub



Mais lorsque l'utilisateur veut modifier son mot de
passe, il est obligé



de
modifier le code.

Je cherche une solution pour que dans une boite de
dialogue, je puisse



changer le mot de passe (du genre : ancien mot de
passe - nouveau mot de



passe).








.