Discussion :

[Superpat9999]

Bonjour,
Je souhaite que lorsque l'on sélectionne la catégorie "Alimentation", la sous-catégorieFK n'affiche dans le formulaire que les rubriques qui correspondent à l'alimentation. Je pense que ce doit-être une requête, mais je ne sais pas le faire.
Merci de votre aide

[tee_grandbois]

bonsoir,
si tu veux rester sur une macro Access, je ferai comme ceci:



Sinon, en VBA il faut utiliser la propriété RowSource (Contenu en français) de la liste

PS: en principe pour stocker une clé étrangère, il est préférable d'utiliser la clé unique numérique (ID_Categorie) plutôt que son libellé (Categorie), plus efficace pour les jointures
d'autant plus qu'on peut changer un libellé, si par exemple, on s'est trompé (faute de frappe, erreur de saisie) ce qui peut rendre la mise à jour compliquée ...

[Superpat9999]

bonsoir,
si tu veux rester sur une macro Access, je ferai comme ceci:

Merci pour ta réponse, mais je suis navré, je ne trouve pas "DéfinirValeur"

[tee_grandbois]

bonjour,
oui, c'est vrai, il faut appuyer sur le bouton "Afficher toutes les actions" pour les actions "sensibles"
encore une stupidité de Microsoft, comme si masquer certaines actions pouvait empêcher les fausses manipulations ...

[Superpat9999]

Rebonjour tee_grandbois,
J'ai réussi à mettre la macro, mais la liste déroulante reste désespérément figée.
J'ai loupé quelque chose ?

[tee_grandbois]

puis-je voir ce que tu as fait ? (une impression d'écran)

[Superpat9999]

Je n'ai rien modifié sur les propriétés des données

[tee_grandbois]

c'est le bon code sauf qu'il faut le mettre sur la liste déroulante de la catégorie, pas celle de la sous-catégorie

[Superpat9999]

C'est fait, mais l'écran reste figé comme avant avec la liste complète visible et inactive.
Lorsque je clique sur une catégorie, j'ai une boîte de dialogue :

Je tape n'importe quoi et j'ai le n'importe quoi qui s'affiche avec un nombre de fois égal au résultat escompté.

[tee_grandbois]

je regarde la dernière version

[tee_grandbois]

tu as oublié l'accent sur Sous-CatégorieFK, comme quoi, il est mieux de faire au plus simple pour le nommage des champs (pas d'espaces, de caractères accentués ou réservés ...):
ancien code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT T_SousCategories.[Sous-CategorieFK] FROM T_SousCategories where Categorie=""" & [txt_Categorie] & """"

nouveau code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT T_SousCategories.[Sous-CatégorieFK] FROM T_SousCategories where Categorie=""" & [txt_Categorie] & """"

[Superpat9999]

Merci tee_grandbois, cela fait plaisir, je rentre du marché, un petit accent en moins et tout fonctionne. Je vais reprendre toute ma table (accents, clé et cie...)

[Superpat9999]

Bonjour tee_grandbois,
J'ai modifié mes tables pour les rendre plus accessibles. Ainsi la table de sous-catégories ne comporte plus le nom des Catégories, mais une référence à la table Catégorie.

Du coup dans le formulaire sous-Catégories, pour la lst_Catégories, dans la procédure "Après MAJ" je ne sais plus sur quel champ me référencer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With CodeContextObject
        DoCmd.SearchForRecord , "", acFirst, "[Categorie] = " & "'" & Screen.ActiveControl & "'"
        .lst_CategoriesSousCat.RowSource = "SELECT t_CatSsCat.[SousCategorie] FROM tCat_SsCat where CategorieFK=""" & .lst_Categories & """"
    End With

Les champs CategorieFK et lst_Categories n'étant pas correspondant.

[tee_grandbois]

Bonjour,
dans la propriété "Contenu" de la liste des catégories, il faut ajouter la colonne CategorieFK pour pouvoir filtrer la liste des sous-catégories:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT DISTINCT T_Categorie.Categorie, t_CatSsCat.CategorieFK FROM t_CatSsCat LEFT JOIN T_Categorie ON t_CatSsCat.CategorieFK = T_Categorie.ID_CategorieFK;

ensuite, dans la procédure "After_Update" de lst_Categories, il faut filtrer les sous-catégories avec la valeur de la colonne ajoutée (Column(1)) en enlevant les guillemets superflus puisqu'on ne filtre plus un champ de type texte (Categorie) mais numérique (CategorieFK). Il faut aussi ajouter l'identifiant ID_SsCat pour pouvoir par la suite se positionner sur l'enregistrement contenant la sous-catégorie choisie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub lst_Categories_AfterUpdate()
On Error GoTo Macro11_Err
 
    With CodeContextObject
        DoCmd.SearchForRecord , "", acFirst, "[Categorie] = " & "'" & Screen.ActiveControl & "'"
        .lst_CategoriesSousCat.RowSource = "SELECT SousCategorie, ID_SsCat FROM t_CatSsCat where CategorieFK=" & .lst_Categories.Column(1)
    End With
 
 
Macro11_Exit:
    Exit Sub
 
Macro11_Err:
    MsgBox Error$
    Resume Macro11_Exit
End Sub

code à mettre sur l'évènement "Après MAJ" de la liste lst_CategoriesSousCat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub lst_CategoriesSousCat_AfterUpdate()
On Error GoTo SousCat_Err
    DoCmd.SearchForRecord acDataForm, Me.Name, acFirst, "[Categorie] = '" & lst_Categories & "' AND ID_SsCat=" & Me.lst_CategoriesSousCat.Column(1)
 
SousCat_Exit:
    Exit Sub
 
SousCat_Err:
    MsgBox Error$
    Resume SousCat_Exit
 
End Sub

ci-joint la base modifiée au cas où ... Essai_SousCat3.zip

[Superpat9999]

Bonjour,
Je continue mes demandes d'aide sur le même sujet, peut-on trier la liste déroulante : lst_CategoriesSousCat dans l'ordre alphabétique ?
Merci de votre aide précieuse.