[AC-2007] selection multiple sur un sous formulaire [Résolu]

[zenico64]

Bonjour à tous,

Dans un formulaire "VueFichierIDA" j'ai un sous-formulaire "conteneurListeFichier" qui contient un formulaire "listeFichier" dont la recordSource est la suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
    requete = "SELECT [" & tablePays & "].[2G_File_Name] AS FileName2G, " & _
                     "[" & tablePays & "].SEISMIC_NAME, " & _
                     "[" & tablePays & "].[2G_SEISMIC_NAME] AS SeismicName2G, " & _
                     "[" & tablePays & "].[2G_seismic_name_corrected_file_name] AS CorrectedSeismicName2G, " & _
                     "[" & tablePays & "].[2G_seismic_name_corrected_officiel] AS CorrectedOfficielSeismicName2G, " & _
                     "[" & tablePays & "].rebus " & _
              "FROM [" & tablePays & "] " & _
              "WHERE ([" & tablePays & "].IDA_SAA)='" & IDA & "' " & _
              "ORDER BY [" & tablePays & "].[2G_File_Name];"
 
    Forms!VueFichierIDA!conteneurListeFichier.Form.RecordSource = requete

Le formulaire s'affiche avec les bons champs, tout est bien comme je le veux.

Je voudrais maintenant faire un bouton qui me permettrait de réaliser une action sur toutes les lignes sélectionnées dans ce sous-formulaire.

J'ai pas mal cherché mais j'ai pas trouvé le moyen de parcourir les objets sélectionnés dans un sous-formulaire.

J'ai quand même essayé de faire un truc du genre :

Code :

1
2
3
4
5
6
7
8
9
10
 
    Dim test
 
    test = FileName2G 'L’élément "FileName2G " de la première ligne sélectionnée
 
    selection.Next     'je vais à la suivante
 
    test = FileName2G  'L’élément "FileName2G " de la deuxième ligne sélectionnée
 
    ...

Mais ça me met l'erreur '429' : "Un composant ActiveX ne peut pas créer d'objet." à la ligne selection.Next

Si quelqu'un sait le faire, je suis preneur.

Merci d'avance !

[Edit] : J'ai omis de dire que j'affiche le sous formulaire en feuille de données

[loufab]

Bonjour,

Next n'existe pas.

C'est MoveNext sur un objet recordset.

Exemple :

Code :

me.recordset.movenext

Cordialement,

[Jeannot45]

D'autre part, si tu souhaites faire des sélections multiples (continues ou discontinues) il serait plus judicieux d'utiliser une Zone de Liste plutôt qu'un sous formulaire.

[zenico64]

Merci d'avoir répondu

Alors en effet Jeannot une zone de liste serait peut être mieux pour une selection multiple mais elle offre des temps de réponses trop long (du moins comme je l'utilisais)

J'ai cependant trouvé une solution et la voici :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
    'Affiche l'index de début de sélection et le nombre de lignes sélectionnées
    MsgBox indexStartSelection & "-" & countLinesSelection
    'Je me place au début de la sélection
    conteneurListeFichier.Form.Recordset.MoveFirst
    'Je peux aussi me placer à un endroit souhaité
    conteneurListeFichier.Form.Recordset.Move indexStartSelection - 1
 
    'Je parcours la sélection
    For i = 0 To countLinesSelection
 
        'J'affiche le numéro de ligne et le contenu d'une de mes cellules
        MsgBox conteneurListeFichier.Form.CurrentRecord & "-" & conteneurListeFichier.Form.CorrectedSeismicName2G
 
        'si je ne suis pas au dernier enregistrement de ma selection, je continue sinon je quitte
        If i <> countLinesSelection - 1 Then conteneurListeFichier.Form.Recordset.Move 1 Else Exit For
 
    Next i

Voilà de la matière pour ceux qui, comme moi, batailleront là dessus.

Merci à tous