Concevoir une liste qui en alimente une autre

Les deux tables en mode création une fois les champs créés et les tables enregistrées.

Les deux tables en mode feuille de données une fois les enregistrements saisis.

Le numéro de catégorie pour chaque métier est issu de la table des catégories...
Vous pouvez d'ailleurs faire en sorte que ce champ aille chercher directement la valeur du N° de catégorie à partir d'une liste déroulante
dans la table elle-même.

A partir des propriétés du champ IDCategorie de la table TBLMetiers, vous définissez les valeurs suivantes :

Cette personnalisation n'est utile que si vous saisissez les métiers un par un dans la table.

Pour la liste des Catégories, vous allez affecter les propriétés suivantes :

• Nom = cmbCategories
• Contenu = (voir ci-après)
• Nombre de colonnes = 2
• Largeurs colonnes = 0cm;10cm
• Largeur liste = 10cm

Explications :

- 0cm pour la première colonne puisque nous ne voulons pas voir l'identifiant de la catégorie (Numéro Auto) ;
- 10cm réservés au nom de la catégorie que nous voulons effectivement voir apparaître dans la liste déroulante ;

Nous choisissons 10cm mais cette largeur pourrait très bien être +/- grande ; cela dépend de la longueur du mot (ici, la catégorie est parfois définie par plusieurs mots).

Lorsque vous prenez l'Assistant Création Contrôle et que vous lui demandez de vous aider dans la conception d'une zone de liste déroulante
sur telle table ou telle requête, il vous propose par défaut de masquer la colonne numéro 1 puisqu'il est sous-entendu (normalisation oblige),
que vous avez effectivement mis un identifiant UNIQUE pour représenter chacun des enregistrements de la table source.
Bien entendu, cela est le cas si votre table possède au moins deux champs tels que vous les avez conçus dans les tables de ce projet.

Il en est de même si vous construisez le contrôle manuellement…

Ce sera alors à vous d'ajuster en conséquence...

Vous la nommez cmbCategories et laissez sa propriété Activé (Enabled) à Oui (True)

La propriété Contenu (RowSource) est ici représentée par une chaîne SQL que vous pouvez écrire directement.
Vous pouvez aussi affecter une requête existante ou la générer sur le pouce...

SELECT * FROM TBLCategories ORDER BY [Categorie];

Pour générer la chaîne SQL à partir d'une requête, cliquez sur le petit bouton doté de trois petit points qui juxtapose la propriété Contenu.

Pour la liste des Métiers, vous allez affecter les propriétés suivantes :

• Nom = cmbMetiers
• Contenu = Rien (Laissez vide)
• Nombre de colonnes = 3
• Largeurs colonnes = 0cm;10cm;0cm
• Largeur liste = 10cm

Explications :

- 0cm pour la première colonne puisque nous ne voulons pas voir l'identifiant du métier (Numéro Auto),
- 10cm réservés au métier que nous voulons le voir effectivement apparaître dans la liste déroulante,
- Et à nouveau 0cm parce nous ne voulons pas voir non plus la catégorie à laquelle il appartient (Numérique).

De façon identique et à votre appréciation, vous affectez 10cm pour la largeur, celle-ci tout comme la précédente pouvant être +/- grande ; cela dépend de la longueur du mot (ici, le métier est parfois défini par plusieurs mots).

Ce sera alors à vous d'ajuster en conséquence...

Vous la nommez cmbMetiers et sa propriété Activé (Enabled) sera égale à Non (False)

Vous disposez vos deux contrôles juxtaposés sur le formulaire avec la liste cmbCategories à gauche, et l'autre liste déroulante, cmbMetiers à droite.

Vous passez en Mode Formulaire pour pouvoir contrôler le bon fonctionnement de la liste déroulante des catégories :

=> lorsque vous cliquez dessus, vous devez obtenir la liste de toutes les catégories triées par ordre alphabétique.

La liste déroulante des métiers est quant à elle verrouillée pour l'instant.


Vous repassez alors en Mode Création et effectuez un clic droit sur le contrôle de liste déroulante cmbCategories :

=> dans le menu contextuel qui apparaît, vous choisissez "Créer code événement…".

Pour mettre en place le code événement, effectuez un clic droit sur le contrôle de liste déroulante des catégories...

Cliquez alors sur le menu "Créer code événement…".

Si vous n'avez pas l'habitude d'utiliser l'éditeur Visual Basic ou bien si vous n'avez pas coché dans les options d'Access, la rubrique intitulée "Toujours utiliser les procédures événementielles"...

...une boîte de dialogue de confirmation du choix de la rédaction de l'événement apparaît et propose à travers 3 rubriques la possibilité de mettre en place l'événement.

Dans cette boîte de dialogue intermédiaire, si elle apparaît, vous sélectionnez "Générateur de code".

Ce choix va instantanément ouvrir l'éditeur Visual Basic appelé plus exactement Visual Basic Editor et abrégé VBE.

Dans l'éditeur Visual Basic, une fenêtre blanche va vous proposer d'écrire un bout de code correspondant à l'événement de votre choix.
Ici, c'est l'événement BeforeUpdate() (Avant mise à jour) qui est proposé...

C'est le code événement par défaut chaque fois que vous faîtes ce genre d'opération mais dans ce projet, ce n'est pas cet événement qui nous intéresse puisque nous souhaitons pouvoir déclencher quelque chose après avoir choisi une catégorie dans la liste et non avant.

Private Sub cmbCategorie_BeforeUpdate(Cancel As Integer)

End Sub

Pour plus d'informations sur les événements des contrôles et autres objets, veuillez vous référer à l'aide en ligne en mettant en surbrillance l'événement souhaité et appuyez sur la touche F1.

Rappelez-vous qu'un événement est quelque chose qui se passe lorsque l'utilisateur effectue une certaine opération "avant", "pendant", "après"…, etc. sur tel ou tel contrôle.

L'événement qui nous intéresse est celui qui se nomme "Après MAJ" à savoir AfterUpdate().

Dans la partie haute de la fenêtre blanche sur laquelle vous êtes actuellement focalisée, vous voyez apparaître 2 petites listes déroulantes :

=> l'une porte le nom du contrôle en cours à savoir "cmbCategorie"
=> l'autre porte le nom de l'événement en cours à savoir "BeforeUpdate"…

Ces deux listes déroulantes représentent respectivement pour l'une, la liste des contrôles de votre formulaire et pour l'autre, la liste des événements potentiellement affectables à chacun de ces contrôles.

Il faut savoir qu'un contrôle de type liste déroulante ne possède pas les mêmes événements d'un contrôle bouton de commande par exemple et pour autant, ils ont des événements communs.
Il vous appartiendra alors de choisir l'événement le plus approprié lorsque tel ou tel contrôle est utilisé dans votre formulaire.

Vous choisissez donc dans la liste de droite l'événement AfterUpdate.
Le code correspondant à cet événement prend place au-dessus du précédent, chaque bloc de code étant par défaut trié alphabétiquement...

Vous pouvez si vous le souhaitez supprimer le bloc de code affairant à l'événement BeforeUpdate() car il ne sera pas utilisé.

Private Sub cmbCategorie_AfterUpdate()

End Sub

Ensuite, dans la zone de cet événement, vous pouvez saisir ce code :

Private Sub cmbCategories_AfterUpdate()
Dim lngIDCat   As Long
Dim SQL        As String

  '' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
  If Not IsNumeric(Me!cmbCategories) Then Exit Sub
  '' Affecte la valeur de IDCategorie à la variable lngIDCat
  lngIDCat = Me!cmbCategories
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT IDMetier, Metier, IDCategorie FROM TBLMetiers WHERE IDCategorie =" & lngIDCat & " ORDER BY Metier"
  '' Affecte la chaîne SQL à la liste des métiers
  cmbMetiers.RowSource = SQL
  '' Déverrouille la liste des métiers
  cmbMetiers.Enabled = True
  '' Donne le focus la liste des métiers
  cmbMetiers.SetFocus
  '' Déroule la liste des métiers
  cmbMetiers.Dropdown

End Sub

Explications du déroulement :

Le code est commenté pour une meilleure compréhension: en voici le détail :
Sur le principe, le code vérifie qu'une catégorie a été sélectionnée.
Du fait qu'un contrôle de type liste déroulante retourne la valeur de la propriété Colonne liée que nous avons définit à 1, lorsque vous sélectionnerez une catégorie dans la liste de gauche, le numéro représentant l'identifiant de l'enregistrement sera retourné.

C'est cette valeur que nous stockons dans la variable de type Long lngIDCat.

Une vérification de cette variable est effectuée par la fonction IsNumeric() de manière à contrôler si elle est affectée avec un nombre sans quoi, la sortie de la procédure par l'intermédiaire de l'instruction Exit Sub est exécutée.

La variable SQL de type String est affectée par une chaîne SQL qui représente la sélection de tous les métiers ayant pour IDCategorie la valeur de la variable qui, comme cela vient d'être cité, représente la catégorie sélectionnée dans la liste...

Par la suite, la propriété RowSource (Contenu) du contrôle de liste des métiers initialement à vide se voit affectée par la valeur de cette chaîne SQL...

Enfin, le code procède au déverrouillage du contrôle via la propriétéEnabled affectée True puis lui donne le focus.
Le code termine son exécution par la méthode Dropdownqui permet de dérouler la liste des métiers, disons, pour faire plus joli.