Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
 -  Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

Administrateur - Modifier mot de passe d'un utilisateur

Description 

Cette fonction permet de modifier le mot de passe d'un utilisateur du groupe de travail lié à la base de données en cours.

 
Synthaxe 

NewPassWordX()

Cette fonction peut être appelée depuis une macro, un menu personnalisé ou un bouton de formulaire.
Elle affichera 3 boîtes de dialogue afin de demander :

  • le nom du nouvel utilisateur dont on souhaite modifier le mot de passe,
  • l'ancien mot de passe de l'utilisateur,
  • le nouveau mot de passe souhaité de l'utilisateur.

Remarque : Pour effectuer cette opération, il faut bien évidemment connaître l'ancien mot de passe de l'utilisateur. Si l'ancien mot de passe est erroné, la modification sera annulée.

 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


Function NewPassWordX()

Dim wrkDefault As Workspace
Dim usrNew As User
Dim strOldPassWord As String
Dim strPassWord As String
Dim strNameUser As String

Set wrkDefault = DBEngine.Workspaces(0)

With wrkDefault
    Do While True

        strNameUser = InputBox("Entrez le nom de l'utilisateur à qui " _
            & "il faut changer le mot de passe :")
        strOldPassWord = InputBox("Entrez l'ancien mot de passe " _
            & "de l'utilisateur " & strNameUser & ":")
        strPassWord = InputBox("Entrez un nouveau mot de passe :")

        Set usrNew = .Users(strNameUser)

        Select Case Len(strPassWord)
            Case 1 To 14
                On Error GoTo ErrorOldPassWord
                usrNew.NewPassword strOldPassWord, strPassWord
                MsgBox "Mot de passe changé !"
                Exit Do
            Case Is > 14
                MsgBox "Mot de passe trop long !"
            Case 0
                usrNew.NewPassword strOldPassWord, ""
                MsgBox "Mot de passe changé !"
                Exit Do
        End Select

    Loop
End With

Exit Function

ErrorOldPassWord:
     MsgBox "Ancien mot de passe incorrect, " _
        & "sa mise à jour a donc été annulée", , _
        "Gestion des utilisateur"

End Function

 


Date de création : 14/09/2006 @ 17:05
Dernière modification : 20/09/2006 @ 20:01
Catégorie : Administrateur
Page lue 1583 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 6

Total visites : Total visites : 174530  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.16 seconde