Discussion :

[mawi]

Bonjour,

J'ai une zone de liste L_ouvrages qui permet de sélectionner un ouvrage afin d'ouvrir le formulaire correspondant.

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub L_ouvrages_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
 
    stDocName = "F_modification_ouvrages"
    stLinkCriteria = "[IdOuvrage]=" & Me![L_ouvrages]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub

Ce que je voudrais c'est pouvoir sélectionner plusieurs ouvrages dans la zone de liste et donc ouvrir le formulaire pour les ouvrages sélectionnés.

J'ai créé un bouton de commande pour l'ouverture du formulaire avec le code suivant, mais ça ne fonctionne 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
16
17
18
19
20
21
22
23
 
Private Sub B_ouvrir_ouvrages_Click()
Dim NbLignes As Long
Dim NoOuvrage As Long
Dim i As Long
Dim j As String
 
Dim stDocName As String
Dim stLinkCriteria As String
 
j = ""
 
NbLignes = Me.L_ouvrages.ListCount
 
For i = 1 To NbLignes
    If Me.L_ouvrages.Selected(i) = True Then NoOuvrage = j & Me.L_ouvrages.Value
Next i
 
stDocName = "F_modification_ouvrages"
stLinkCriteria = "[IdOuvrage]=" & j
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub

Je ne vois pas du tout comment faire!

Merci d'avance

[loufab]

Bonjour,

Dans une zone de liste (non déroulante) on peut utiliser la sélection multiple (1 propriété à régler dans le controle). Pour traiter les sélections utilise la propriété ItemsSelected du controle dans une boucle. En composant avec un In() tu devrais t'en sortir facilement.

3 choses sont donc à regarder :

La propriété Selection multiple du controle (voir l'aide pour son fonctionnement)
Le ItemsSelected dans VBA
la clause SQL In().

Cordialement,

[Jeannot45]

Bonjour,

Une idée peut-être (je n'ai pas essayé ): Créer par concaténation l'expression In(10;15;25)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = 1 To NbLignes
    If Me.L_ouvrages.Selected(i) = True Then NoOuvrage = j & Me.L_ouvrages.Value & ";"
Next i

' Suppression du dernier ;
j = Left(j,Len(j)-1)
' Création de la syntaxe finale
j= "In(" & j & ")"
stDocName = "F_modification_ouvrages"
stLinkCriteria = "[IdOuvrage]=" & j
DoCmd.OpenForm stDocName, , , stLinkCriteria

[mawi]

J'ai fait ça :

Code :

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

1
2
3
4
5
6
7
 
Dim ctl As Control
Dim varItm As Variant
Set ctl = Me.L_ouvrages
For Each varItm In ctl.ItemsSelected
    Debug.Print ctl.ItemData(varItm)
Next varItm

Tout fonctionne bien, ce sont bien les numéros d'ouvrages qui s'affichent dans la fenêtre exécution.
Maintenant ce que je voudrais c'est ouvrir le formulaire "F_modification_ouvrages" qui regroupe les infos sur les ouvrages en filtrant par le/les numéros d'ouvrages.

Merci

J'ai essayé ça :

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
 
Private Sub B_ouvrir_ouvrages_Click()
Dim NbLignes As Long
Dim NoOuvrage As Long
Dim i As Long
Dim j As String
 
Dim stDocName As String
Dim stLinkCriteria As String
 
Dim ctl As Control
Dim varItm As Variant
 
j = ""
 
Set ctl = Me.L_ouvrages
For Each varItm In ctl.ItemsSelected
    j = j & ctl.ItemData(varItm) & ";"
Next varItm
 
stDocName = "F_modification_ouvrages"
stLinkCriteria = "[IdOuvrage]=" & j
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub

mais j'ai un problème de syntaxe au niveau du filtre. Je ne vois pas trop comment faire..
peut être est-ce que je devrais passer par une requête sql au lieu d'un filtre pour ouvrir le formulaire...?

[loufab]

Regarde

Code :

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

In()

dans l'aide pour comprendre ce que le code donné par Jeannot45 fait.

Tu as tout en main, il suffit d'appliquer.

[mawi]

c'est bon, j'ai réussi :

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
 
Private Sub B_ouvrir_ouvrages_Click()
Dim NbLignes As Long
Dim NoOuvrage As Long
Dim i As Long
Dim j As String
 
Dim stDocName As String
Dim stLinkCriteria As String
 
Dim ctl As Control
Dim varItm As Variant
 
j = ""
 
Set ctl = Me.L_ouvrages
For Each varItm In ctl.ItemsSelected
    j = j & ctl.ItemData(varItm) & ","
Next varItm
 
 
' Suppression du dernier ;
j = Left(j, Len(j) - 1)
' Création de la syntaxe finale
j = "In (" & j & ")"
stDocName = "F_modification_ouvrages"
stLinkCriteria = "[IdOuvrage] " & j
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub

merci à tous de votre aide!