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