#33 : VBA Access G.Stock - Gestion Utilisateurs (Lister Utilisateurs)

Objectif : Créer un formulaire pour lister les Utilisateurs

Dans cette partie de notre projet G.Stock on va réaliser un formulaire pour afficher et manipuler la liste des utilisateurs (Ajouter , Editer , Supprimer ), pour simplifier et ganger le temps dans partie mise en forme du ce formulaire, je vais copier (CTRL + C)  et coller (CTRL + V) le Formulaire "F_ListClients" puis je saisie le nom "F_ListUsers".

ensuite sur la source de données du formulaire "F_ListUsers".

Ensuite on va accéder à la source de données puis générer la requête suivante via l'assistant de requête suivante : 

ou vous pouvez basculer en mode SQL (Affichage = > Mode SQL ) et on va saisir le code SQL suivant pour générer cette requête :

Code SQL de notre Requête

SELECT Users.idUser, Users.login, Users.passe, Users.NomUser, Users.Tel, Users.Email, Users.Photo, Users.idRole, Roles.LibRole
FROM Roles INNER JOIN Users ON Roles.idRole = Users.idRole
ORDER BY Users.idUser;

après  cette opération, on va lier chaque zone de texte de ce formulaire par la source de données équivalente   en passant par Feuille de propriété = > Source  de Contrôle.

par la suite on va écrire le code VBA  pour les boutons "Nouvel utilisateur" et le bouton "Supprimer".

Code VBA pour le bouton Nouvel Utilisateur  "btnNouvelUser"

Private Sub btnNouvelUser_Click()
DoCmd.OpenForm "F_AjouterUser"
End Sub

Code VBA pour le bouton Supprimer "btnSupprimerUser"

Private Sub btnSupprimerUser_Click()
Dim req As String
res = MsgBox("Voulez vrailent supprimer l'utilisateur " & Me.NomUser, vbYesNo, "Confirmation Suppresion ")
If res = vbYes Then
req = "DELETE * FROM Users WHERE idUser=" & Me.idUser
CurrentDb.Execute req
End If
DoCmd.Requery
End Sub

Pour Regarder/Parteger Cette vidéo

https://www.youtube.com/watch?v=2ofyo11d20I

Pour l'intégrer sur votre site internet ou blog, vous pouvez utiliser le code suivant

<iframe allowfullscreen="" frameborder="0" height="270" src="https://www.youtube.com/embed/2ofyo11d20I" width="480"></iframe>

 👉 Pour plus de détail, Regarder la Vidéo de ce Cours 

🔗 Télécharger le Code Source  G.Stock V1.30

***********************

***********************