Discussion :

[MAMANHOU]

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.

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

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.

Merci d'avance
Mamanhou

[nico84]

Bonjour,

Il y a probablement moyen d'utiliser la propriété "wherecondition" de openform ou le form_open de "f_essai" mais dans les 2 cas la sélection doit être dans une table et non en variables locales sur la fenêtre

Edit : ce que j'ai écrit ci-dessus concerne l'ouverture d'une fiche avec plusieurs enregistrements mais non l'ouverture de plusieurs fiches cote à cote

[MAMANHOU]

Bonjour nico84,

Donc vous pensez que cela n'est pas possible d'ouvrir plusieurs fiches d'aprés la sélection d'une liste déroulante et qu'il faut que je passe par une condition dans l'ouvertre du formulaire.

Bon je vais essayer de partir sur cette piste...
merci
Manahou

[pier.antoine]

Bonjour.

Je pense que cela est faisable.

Vous êtes sur la bonne voie.

Votre code, pour chaque élément sélectionné, ouvre le formulaire.
La solution consiste à récupérer chaque ID d'éléments sélectionnés dans la chaîne source, et ensuite ouvrir le formulaire.

Tentative.

Code :

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

1
2
3
4
5
6
7
8
str = "SELECT * FROM T_essai WHERE ("
For Each i In Me.lstresults.ItemsSelected
    str = str & " (T_essai.N°= " & i & ") or" ' 
next i
 
str = right(str, len(str)-3) & ");" ' cela permet d'enlever le dernier -or-
DoCmd.OpenForm ("f_essai")
Forms("f_essai").RecordSource = str

Le principe est là, mais il faut vérifier les parenthèses, etc...

Pierre