Discussion :

[mimou2009]

[INDENT][INDENT]Bonjour a tous

merci d'abord a tout les membres de ce forum

j'ai une base de données qui gère la répartition des examens dans une faculté et qui contient les tableaux suivants:
-tableau niveau: id niveau; niveau; libellé
-Tableau heure examen
-Tableau affectation des examens le problème c'est que j'ai un formulaire qui contient 3 zones de listes et un sous-formulaire

-la première zone de liste (liste niveau) contient la liste des niveaux
-la deuxième zone de liste (liste jour) contient la liste des jours d'examens
-la troisième zone de liste (liste heures) contient la liste des heures d'examens

avec un double click par exemple sur la zone liste niveau j'ai sur le sous-formulaire les examens de ce niveau et avec un autre double click sur la liste jour j'ai les examens de ce niveau et du jour sélectionné et si je fais une troisième double-click sur la liste jour je peux avoir sur le sous-formulaire la liste des examens du niveau sélectionné dans le jour sélectionné et dans l'heure sélectionnée mon souci c'est d'avoir à chaque liste un bouton qui annule l'effet dû double-click de cette liste c à d si je sélectionne par double click le niveau par exemple X qui sera affiché sur le sous-formulaire je veux avec qui click sur un bouton éliminé ou annulé ou comment dire je éviter l'effet du double-click de la liste et retourner en arrière voir ci-dessus le code qui affiche le contenu sur le sous-formulaire d'un niveau sélectionné par double click

Nom du formulaire :F_ListeEmargement
Nom du sous-formulaire:EMARG

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListNiveau_DblClick(Cancel As Integer)
If ((IsNull(Forms![F_ListeEmargement]![ListHeure])) And (IsNull(Forms![F_ListeEmargement]![ListJour]))) Then
    EMARG.SourceObject = "Query.R_Choix_Niveau"
ElseIf ((IsNull(Forms![F_ListeEmargement]![ListHeure]))) Then
    EMARG.SourceObject = "Query.R_Choix_Jour_Niveau"
ElseIf ((IsNull(Forms![F_ListeEmargement]![ListJour]))) Then
    EMARG.SourceObject = "Query.R_Choix_Heure_Niveau"
Else
    EMARG.SourceObject = "Query.R_Choix_Jour_Heure_Niveau"
End If
EMARG.Requery

[marot_r]

Bonjour.

À la lecture de ton code je pense que la solution la plus simple est de créer une procédure et de l'appeler après leur mise à jour.
Et je pense que tu as des listes déroulantes, pas des listes (tout-court) car elles ne peuvent pas être null.

Ça donne quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
private sub AppliquerFiltre()
 
    If IsNull(me.ListHeure) And IsNull(me.[ListJour]) Then
        me.EMARG.SourceObject = "Query.R_Choix_Niveau"
    ElseIf IsNull(me.[ListHeure]) Then
        me.EMARG.SourceObject = "Query.R_Choix_Jour_Niveau"
    ElseIf IsNull(me.[ListJour]) Then
        me.EMARG.SourceObject = "Query.R_Choix_Heure_Niveau"
    Else
        me.EMARG.SourceObject = "Query.R_Choix_Jour_Heure_Niveau"
    End If
 
    me.EMARG.Requery
end sub

Me. réfère au formulaire en cours et j'ai enlevé les parenthèses supplémentaires qui ne changeaient rien aux expressions.

Ici un exemple pour la liste des niveaux à répéter pour les 2 autres.

Code :

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

1
2
3
Private Sub ListNiveau_AfterUpdate()
    call appliquerFiltre
end sub

Là dés que tu vas faire un choix (une valeur ou pas de valeur) tes filtres seront appliqués en conséquence.
Cela t'évite d'avoir un bouton exprès pour effacer.

Note que le sujet a été TRÈS couvert ici :

• Les meilleurs cours et tutoriels pour apprendre Microsoft Access
• Interface : les formulaires dans Microsoft Access
• Formulaires de recherche

https://access.developpez.com/cours/...#interfaceform

Il y a des recherches pour tous les goûts et tous les niveaux de complexité.

Enfin pour répondre à ta question, il suffit de faire un bouton dont le code est :

Code :

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

me.ListeNiveau=null 'À adapter pour chaque liste.

puis de demander l'application du filtre.

[mimou2009]

merci pour votre réponse mais où je peux métre ce code : AppliquerFiltre() c a d dans quelle evennement
par ce que j'ai essayé de le métre dans le formulaire evennement fitre appliquer
et j'ai métre Call AppliquerFiltre Aprés Mise ajour de la liste il me donne toujour erreur de compilation "sub ou fonction non définie"
merci pour votre aide

[marot_r]

Bonjour.

Code :

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

1
2
3
private sub AppliquerFiltre()
    'ici le code
end sub

est à mettre "dans" le code associé au formulaire, pas dans un événement en particulier.
Après, il faut l'appeler de chacune des listes.

A+