Bonjour,
J'aimerais pouvoir modifier le code ci dessous pour que je puisses ouvre plusieurs fiches en même temps, mais je ne sais pas comment faire.
J'ai une liste Résultat sur un formulaire et j'aimerais sélectionner plusieurs lignes à l'intérieur et surtout accéder à toutes leurs fiche. ce code ne m'ouvre que la 1ère fiche sélectionnée.
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 Private Sub Commande239_Click() 'ouvre la fiche sélectionnée Dim i As Variant Dim str As String i = Me.lstresults.Column(0) If Me.lstresults.ItemsSelected.Count > 0 Then For Each i In Me.lstresults.ItemsSelected str = "SELECT * FROM T_essai WHERE (T_essai.N°= " & i & ")" DoCmd.OpenForm ("f_essai") Forms("f_essai").RecordSource = str Next i Else MsgBox "Selectionnez une ou plusieurs lignes" End If End Sub
Merci d'avance
Mamanhou
Partager