Discussion :

[docjo]

Bonjour

Mon état repose sur une requete. J'aimerai filtrer l'ouverture de l'état selon la valeur d'un champs. Cela j'arrive à le faire. Mais j'aimerai filtrer avec plusieurs possibilités: j'ai donc fait un formulaire intermédiaire avec 5 cases à cocher réprésentant les possibilités

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
 
Private Sub Commande10_Click()
 
    Dim stDocname_etat As String
    Dim stwhere As String
 
    stDocname_etat = "E_Transmissions"
    If transm_modA = True Then
    stwhere = "[module]=" & "'Module A'"
    ElseIf transm_modB = True Then
    stwhere = "[module]=" & "'Module B'"
    ElseIf transm_modC = True Then
    stwhere = "[module]=" & "'Module C'"
    ElseIf transm_RCPED = True Then
    stwhere = "[module]=" & "'REA Chir Pediatrie'"
    Else
    If transm_SIPED = True Then
    stwhere = "[module]=" & "SI Pediatrie'"
    End If
 
    DoCmd.Close
 
    DoCmd.OpenReport stDocname_etat, acPreview, , stwhere
End Sub

Je dois ensuite me débrouiller à faire chaque situation possible soit 'Module A' et 'Module B' puis 'Module A' et 'Module C', etc... enfin 'Module A' et 'Module B' et 'Module C' etc...
J'imagine que l'on peut aussi passer par une liste à choix multiples.
Merci d'avance

[docjo]

J'ai parcouru le forum à la recherche des listes à choix multiples.
J'ai eu l'idée de ceci mais marche pas.

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
Private Sub Commande10_Click()
 
    Dim varItem As Variant
    Dim stDocname_etat As String
    Dim stwhere As String
 
    stDocname_etat = "E_Transmissions"
 
    For Each varItem In Me!Listemodule.ItemsSelected
    stwhere = "[module]=" & Me!Listemodule & ""
    Next varItem
 
    DoCmd.OpenReport stDocname_etat, acPreview, , stwhere
        DoCmd.Close acForm, "F_transmissions"
End Sub

[docjo]

j'ai essayé le code proposé dans le forum (ici) en créant une table pour stocker les valeurs mais le code suivant me stocke des valeurs nulles alors que dans ma liste apparait bien des items.

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
Private Sub Commande10_Click()
 
    Dim varItem As Variant
    Dim stDocname_etat As String
    Dim stwhere As String
 
    stDocname_etat = "E_Transmissions"
 
    DoCmd.SetWarnings False
 
 
    DoCmd.RunSQL ("Delete * From T_Temp_choixmodule")
 
    For Each varItem In Me!Listemodule.ItemsSelected
    DoCmd.RunSQL ("Insert into [T_Temp_choixmodule]([Choix_module]) values('" & Me!Listemodule & "')")
 
    Next varItem
 
    If DCount("Choix_module", "T_Temp_choixmodule") = 0 Then
    Msgbox "Vous devez choisir une réa", vbOKOnly
    Else
    DoCmd.OpenReport stDocname_etat, acPreview
    DoCmd.Close acForm, "F_transmissions"
    End If
    DoCmd.SetWarnings True
 
End Sub

Si quelqu'un a une petite idée ou un conseil, merci d'avance