• Les Produits : ensembles des tables , formulaires , requête , module, et états...etc , qui gère l'entité produits (Afficher , ajouter , supprimer , mettre à jour ,...etc.).;
• Les Clients : partie qui permet de gérer les clients ;
• Les Commandes : cette partie qui se charger de créer des commandes pour les Clients et bien sûr concernant un au plusieurs produits, ensuite créer des factures pour chaque client ;
• Les Règlements : dans cette partie consacré aux règlements des factures avec la possibilité que dans une facture on peut avoir plusieurs mode de règlements (Espèce, Chèque, Carte Bancaire ,...etc);
• Les Rapports : L'ensemble des rapports qui peuvent déterminer l'état et la situation de notre  stock et aussi l’état des paiements;
• Les Utilisateurs : dans cette partie on va gérer les comptes utilisateurs et leurs rôles et bien sûr leurs  droits d'accès pour chaque formulaire;
• Tableau de Bord : le tableau montré ci-dessus affiche les mouvements (Entrées/Sortie) des produits et la situation  du stock et paiements;
• Gestion des clés d'activation de la version finale de notre projet : on va créer un petit application séparée qui va gérer les clés d'activations (Serial KEY) afin de livrer le package d’installation de ce projet avec une SERIAL KEY  pour l'activer

Objectif : Créer un formulaire éditer utilisateur 

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

🔗 Télécharger le Code Source  Projet G.Stock V P34

par la suite on va ajouter un Module nommé "Cryptage" (Insertion = > Module) dedans ajoutons la fonction crypté ainsi :

Code VBA de la Fonction Crypter

Public Const cle As String = 1234

Public Function Crypter(passe As String) As String

Dim str As String

str = ""

For i = Len(passe) To 1 Step -1

str = str & Hex(Asc(Mid(passe, i, 1)) + Int((cle / 40)))

Next i

Crypter = str

End Function

La  fonction prend chaque caractère du mot de passe (fonction : MID) , retourne le code ASCII de cette caractère (fonction : ASC) puis ajoute la clé de cryptage divisée sur 40 , enfin convertir le numéro obtenu en Hexadécimale (le fiction : HEX)

Donc pour tester et exécuter cette fonction avant de l'intégrer dans notre projet , et sans passer par un formulaire et événement , on va se servir  Affichage => Fenêtre Exécution  (raccourci clavier : CRTL + G ),  puis on saisie  le nom de la fonction précédé par  ? . 

Pour exécuter la fonction via la fenêtre exécution

?Crypter("P@ssw@ord")

82908D5E9591915E6E

La Fonction ASC: Renvoie une donnée de type entier qui représente le code ASCII du caractère . Exp : asc("A") = 65 , asc("a") = 97

La fonction MID : mid(chaîne , début, longueur) , Renvoie une donnée de type Variante (Chaîne) contenant un nombre défini de caractères d’une chaîne. Exp : str="Mohamed", mid(str,1,1) = "M" , mid(str,5,3) = "med"

La fonction Hex : Renvoie une donnée de type Chaîne qui représente la valeur hexadécimale d’un nombre.

Objectif : Créer un formulaire qui permet d'ajouter un utilisateur

👀 Le code de la fonction  getExtFile

👀L'événement Exit de la zone de texte txtPasseConfirmation

👀L’événement clic sur le bouton btnAjouterUser

La fonction InStrRev : Renvoie la position d’une occurrence d’une chaîne dans une autre chaîne, à partir de la fin de la chaîne. Exp : InstrRev ("alphabet", "a") Résultat: 5

La fonction Right: Renvoie une donnée de type Variante (Chaîne) contenant un nombre défini de caractères du côté droit d’une chaîne.
Syntaxe :Right( chaîne, longueur )

L'objet FileSystemObject : également appelé FSO, fournit un modèle simple d’objets permettant d’accéder au système de fichiers de l’ordinateur. Vous devez simplement créer une instance de FileSystemObject dans VBA pour ensuite générer, lire, supprimer, itérer des dossiers et effectuer de nombreuses autres opérations sur le système de fichiers de votre ordinateur.