Formation gestion de favoris sous Access

Formation gestion de favoris sous Access, tutoriel & guide de travaux pratiques en pdf.

Programmation

Analyse

Programmer en VBA est un peu comme partir en vacances, il faut établir un itinéraire bien précis avant le départ pour éviter de se perdre. Cette étape est la plus complexe car elle nécessite de connaître les possibilités techniques offertes par le langage. Ici, j’ai choisi d’utiliser une collection pour alimenter le contrôle gallery du ruban. Pourquoi ? Comme énoncé dans le tutoriel Programmation du ruban, le seul moyen d’afficher les favoris que l’utilisateur va ajouter consiste à rafraîchir le contrôle. Ce mécanisme aura pour objectif d’exécuter les fonctions de rappels afin de reconstruire chaque élément (Item) du gallery. Cela signifie que si à 10H00 le contrôle possède 10 favoris et qu’à 11H00 l’utilisateur décide d’en rajouter un autre, il faudra réinsérer aussi ceux datant de 10H00. Il faudra donc à priori relire toute la table tblFavoris. Je trouve dommage d’être contraint à relire des informations sur disque qui ont déjà été stcokées en mémoire. Une collection permettra donc d’y remédier en conservant une liste de ces objets. Dès lors, en cas d’ajout, il suffira de parcourir uniquement celle-ci pour reconstruire rapidement le contrôle Gallery.
Qui dit collection, dit objets. En effet, il n’est pas possible de stocker des enregistrements dans une collection. Notre collection sera donc une liste d’objets contenant les données des enregistrements de la table tblFavoris.

La classe classClient

D’autres auteurs ont déjà publié de nombreux articles sur la programmation orientée objet. Je vous invite à consulter celui de Xavier VLIEGHE : Introduction à la POO illustrée par VB6, pour de plus amples renseignements.
Voici le contenu du module de classe classClient
Option Compare Database
‘Déclaration des noms d’images :
Const STRIMAGEHOMME_BLANC = « boy_white.jpg » Const STRIMAGEHOMME_BLEU = « boy_blue.jpg » Const STRIMAGEFEMME_BLANC = « girl_white.jpg » Const STRIMAGEFEMME_BLEU = « girl_blue.jpg »
‘Déclaration des attributs de la classe Private p_intNumClient As Integer Private p_strNomClient As String Private p_strPrenomClient As String Private p_bolSexeClient As Boolean
‘Méthode qui permettra d’initialiser l’objet avec les valeurs adéquates Public Sub Personnaliser(intNumClient As Integer, strNomClient As String, _ strPrenomClient As String, bolSexeClient As Boolean) p_intNumClient = intNumClient p_strNomClient = strNomClient p_strPrenomClient = strPrenomClient p_bolSexeClient = bolSexeClient End Sub
‘Méthode qui retourne le nom formaté du client Property Get NomComplet() As String NomComplet = StrConv(p_strNomClient &  »  » & p_strPrenomClient, vbProperCase) End Property
‘Méthode qui retourne le chemin de l’image blanche à utiliser Property Get ImageBlanche() As String ImageBlanche = CurrentProject.Path & « \ » & IIf(p_bolSexeClient, STRIMAGEHOMME_BLANC, STRIMAGEFEMME_BLANC) End Property ‘Méthode qui retourne le chemin de l’image bleue à utiliser.