Discussion :

[mo9rissat]

Bonjour,

Dans mon formulaire Access, j’utilise une zone de liste qui affiche les notes des étudiants et que je remplis à partir d’une requête Union, l'exécution de la raquête ressemble à ça :
--Tous--
19
03
05
11
10
Quand l’utilisateur clique sur Tous, il doit voir dans un nouveau formulaire, les détails tous les étudiants (tous les enregistrements de la table) ;
Quand il clique sur une note (19 par exemple), il doit voir les détails de tous les étudiants ayant comme note 19 ;
Je veux que ma zone de liste permette aux utilisateurs de sélectionner plusieurs valeurs. C’est-à-dire utiliser la sélection multiple. Pour ce faire, dans les propriétés de la zone de liste « Sélection multiple » j’ai mis « Etendue ». Mais j’ai vu que cela tout seul ne suffit pas, et que je dois rajouter du code VBA. Donc j’ai rajouté un bouton Valider où j’ai utilisé le code VBA suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmd0_Click()
    Dim x As Long
        For x = 0 To Me.lst0.ListCount - 1
            If Me.lst0.Selected(x) = True Then
                If [lst0].Value = "--All--" Then
                DoCmd.OpenQuery "AllQuery"
                Else
                DoCmd.OpenQuery "CompleteQuery"
                End If
            End If
            Next x
End Sub

Où
Lst0 : le nom de ma zone de liste ;
AllQuery : La requête que je veux afficher au cas où l’utilisateur clique sur tous;
CompleteQuery : La requête que je veux afficher au cas où l’utilisateur clique sur une note définie.
Quand je clique sur Valider, cela m’emmène vers une requête vide. C’est-à-dire on m’affiche aucun enregistrement.
Je sais que j'ai des erreurs au niveau du code VBA, mais je ne sais pas où exactement. Quelqu'un peut m'aider?

[marot_r]

Pourrais-tu poster le SQL de AllQuery et de CompleteQuery.

De plus si je suis bien ton code, il devrait ouvrir autant de requêtes que tu as de sélection. C-à-d 3 classes sélectionnées, 3 reqêtes qui s'ouvrent. Est-ce bien ce que tu veux faire ?

A+

[mo9rissat]

Pourrais-tu poster le SQL de AllQuery et de CompleteQuery.

Bonjour,

Le code SQL de AllQuery est

Code :

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

Select * from Student;

Le code SQL de CompleteQuery est

Code :

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

Select * from Student Where ([MyQuery].[MyField]=[Forms]![MyForm]![MyList])

De plus si je suis bien ton code, il devrait ouvrir autant de requêtes que tu as de sélection. C-à-d 3 classes sélectionnées, 3 reqêtes qui s'ouvrent. Est-ce bien ce que tu veux faire ?

A+

Non, réellement, ce n'est pas ça ce que je veux, je veux qu'il m'affiche le résultat des sélections dans une seule requête, c'est à dire si l'utilisateur sélectionne 3 valeurs, on va m'afficher les informations concernant les enregistrements (étudiants) ayant la note qui ressemble aux valeurs sélectionnées, le tout dans la même requête.
J'espère que j'ai bien expliqué le problème.

[marot_r]

Je n'ai pas testé ce code mais cela devrait marcher.

Il faut changer dynamiquement le SQL de la requête.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub cmd0_Click()
    if me.lst0="--All--" then
           DoCmd.OpenQuery "AllQuery"
        else
 
           dim clauseIn as string
 
           Dim x As Long: For x = 0 To Me.lst0.ListCount - 1
              If Me.lst0.Selected(x) = True Then
 
                  if clauseIn<>"" the
                     clauseIn=clauseIn & ", "
                  end if
 
                  clauseIn=clauseIn & me.lst0.ItemData(i)                
              End If
 
           Next x
 
           clauseIn=" in(" & clauseIn & ")"
 
           dim db as dao.database:set db=currentdb
           dim q as dao.qerydef:set q=db.querydefs("CompleteQuery")
           q.sql="Select * from Student Where ([MyQuery].[MyField]" & clauseIn & ")"
           set q=nothing
           set db=nothing
 
           DoCmd.OpenQuery "CompleteQuery"
 
    end if
 
End Sub

Si c'est un test que tu fais les noms de tes objets sont corrects, si c'est une vraie application je te suggère de mettre des noms plus descriptif (ex Lst0 pourrait être ListeDesClasses).

A+
A+

[mo9rissat]

Bonjour,
Ect ce que tu peux m'expliquer les lignes du code de 11 à 16?

Si c'est un test que tu fais les noms de tes objets sont corrects, si c'est une vraie application je te suggère de mettre des noms plus descriptif (ex Lst0 pourrait être ListeDesClasses).

Merci pour ton aide et pour ton conseil, oui je vais essayer de les renommer.

J'ai essayé ce code, Mais ça n'a pas marché...

[marot_r]

J'ai essayé ce code, Mais ça n'a pas marché...

Peux-tu donner plus de détails ?

As-tu un message d'erreur ?

Cela ne donne pas le résultat attendu ?

Cela ne donne pas de résultat du tout ?

Autre chose ?

A+

[mo9rissat]

Oui quand je clique sur le bouton exécutant le code VBA, on m'affiche un message d'erreur:

Erreur d'exécution '3075'
Erreur de syntaxe (opérateur absent) dans l'expression <<(student.Note in(--All--))>>.

Où Student est le nom de ma table; Note: le nom de mon champ.

[marot_r]

Bizare, on dirait que le test

Code :

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

if me.lst0="--All--" then

n'a pas fonctionné.

Peux-tu mettre un point d'arrêt sur la ligne : .lst0="--All--" then (en cliquant dans la marge à gauche, cela va mettre un gros point rouge) et puis exécuter ton code normalement en sélectionnant --All--.

Access va s'arréter sur cette ligne, amène le curseur sur me.list0 et voit ce que Access affiche.

A+