Discussion :

[HDU71000]

Bonjour,

et désolé pour le multi postage, mais je ne sais pas trop où poster, car cela concerne aussi bien les forms, query que vba.

Voici mon message :

Bonjour,
suite à mon message : https://www.developpez.net/forums/d1...s-liste-choix/

je me suis tourné vers des zones de liste à choix multiples pour mon form de filtrage.

Par contre, juste à la première liste (j'en aurai une dizaine), j'ai une erreur sur le code vba. En effet, j'aimerais, une fois les sélections faites, afficher un formulaire filtré selon les choix opérés :

Sur un formulaire indépendant, j'ai mis une zone de liste avec possibilité de choix multiple, et j'ai créé un bouton pour tester. Voici le code

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
Private Sub Commande13_Click()
 
  Dim varI As Variant
  Dim strFiltre As String
 
  strFiltre = ""
  If Me.listelangue.ItemsSelected.Count = 0 Then
    MsgBox "Aucune langue n'a été sélectionnée"
  Else
    For Each varI In Me!listelangue.ItemsSelected
      If strFiltre <> "" Then strFiltre = strFiltre & " OR "
        strFiltre = strFiltre & "[langue]='" & _
          Me!listelangue.ItemData(varI) & "'"
      Next varI
         DoCmd.OpenForm "f_organisme", acNormal, , strFiltre
  End If
End Sub

J'ai un beau message qui m'annonce que :



Merci.

[EricDgn]

Bonjour,

Si j'en crois ce post, une possibilité serait d'indiquer [Langue].Value

Si cela ne marche pas, je suggererais de tester sur une autre machine, et voir si l'erreur s'y produit. Si sur cette autre machine, il n'y a pas de problème, voir si ce n'est pas un problème Windows. Voir ceci et ceci. Non testé.

Cordialement.

[HDU71000]

Bonjour et merci,

j'ai résolu le souci en faisant comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
If Me.listelangue.ItemsSelected.Count = 0 Then 'idem
    'MsgBox "Aucune langue n'a été sélectionnée" pour obliger à sélectionner
    strFiltre = strFiltre
Else
    For Each varI In Me!listelangue.ItemsSelected
        If strFiltre <> "" Then strFiltre = strFiltre & " AND "
        strFiltre = strFiltre & "([Lookup_langue].[langue]=" & "'" & Me!listelangue.ItemData(varI) & "'" & ")"
    Next varI
End If

A+