Discussion :

[samsam85]

Bonjour et Bonne Année

Comment récupérer plusieurs enregistrements d’un sous formulaire ?Database3.zip

Table1 : Nom2

Formulaires
Form ( Indépendant ) avec deux champs ( Nom1 ; NomRecup )
SousFormTable1 avec un Champs ( Nom2)

Y-a-t-il un moyen pour obtenir [NomRecup] = [Nom2 enregistrement1 ; Nom2 enregistrement2 ; Nom2 enregistrement3 etc…..] du SousFormTable1 Actif (comme sur l'ecran )

J'aime beaucoup les explications pour mieux comprendre

Merci pour votre Aide

[User]

Bonjour,

Il faudrait mettre à jour la propriété recordsource du sous-formulaire avec une chaîne sql :

Code :

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

Me.SousFormTable1.Form.RecordSource = "select Nom2 from Table1 where [Nom2] in (" & liste_noms & ")"

La liste des noms serait récupérée sur l'événement après-maj de la zone de texte NomRecup.

J'ai commenté le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub NomRecup_AfterUpdate()
    Dim liste_noms As String, i As Long ' liste de noms
    Dim tab_noms As Variant ' tableau des noms
 
    tab_noms = Split(nz(Me.NomRecup," "), ";") ' on éclate le texte contenu dans NomRecup, dans un tableau ("banane","orange","mangue")
    liste_noms = Chr(34) & Trim(tab_noms(LBound(tab_noms))) & Chr(34) ' on copie le 1er élément dans la liste liste_noms = "banane"
    For i = LBound(tab_noms) + 1 To UBound(tab_noms) ' on parcourt les éléments suivants du tableau
        liste_noms = liste_noms & "," & Chr(34) & Trim(tab_noms(i)) & Chr(34)
    Next i
    ' à la fin liste_noms = ""banane","orange","mangue""
    ' la chaîne sql passée à la propriété recordsource du sous-formulaire : "select * from table1 where [Nom] in ("banane","orange","mangue")"
    Me.SousFormTable1.Form.RecordSource = "select Nom2 from Table1 where [Nom2] in (" & liste_noms & ")"
 
End Sub

[samsam85]

Bonjour User
D'abord bonne année malgré ce flou sanitaire !!

j'ai fait quelques tentatives mais sans succès

Comment faire pour mettre à jour la propriété recordsource du sous-formulaire avec une chaîne sql Me.SousFormTable1.Form.RecordSource = "select Nom2 from Table1 where [Nom2] in (" & liste_noms & ")"On l'écrit où ?

Merci

[User]

Il faut d'abord générer le code de la procédure événementielle Après maj de la zone de texte NomRecup :

Code :

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

1
2
3
Private Sub NomRecup_AfterUpdate()
 
End Sub

Pour cela, il faut cliquer sur [...] à droite sur la ligne Après maj dans la feuille des propriétés :

[samsam85]

J'ai fait tout ça mais sans resultat

[User]

Il faut que tu supprime cette ligne au début :

Code :

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

Me.SousFormTable1.Form.RecordSource = "select Nom2 from Table1 where [Nom2] in (" & liste_noms & ")"

Le code doit être comme je te l'ai indiqué ici.

[samsam85]

Oui j'ai remarqué mon erreur néanmoins ça ne fonctionne pas non plus

[User]

chez moi sur ta base quand je tape par exemple :

Banane ; orange

j'ai bien les 2 enregistrements correspondant dans le sous-formulaire.

Quand tu dis que ça ne fonctionne pas, peux tu donner le message d'erreur et la copie d'écran de ton formulaire lors de la saisie ?

[samsam85]

Mon but c'est de les voir s'inscrire comme etant la valeur du NomRecup dans le formulaire principal

Nom2
Banane
Orange --------- les différentes ligne encourt dans le sous formulaire
Poire

NomRecup
Banane ; Orange ; Poire

[User]

Comme ça :

[User]

En gros tu demandes l'inverse. essaye ce code sur ouverture de ton formulaire :

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
Private Sub Form_Open(Cancel As Integer)
    Dim rst As DAO.Recordset
    Dim liste_noms As Variant ' tableau des noms
 
    Set rst = Me.SousFormTable1.Form.Recordset
    liste_noms = ""
    Do Until rst.EOF
        liste_noms = liste_noms & rst!Nom2 & ";"
        rst.MoveNext
    Loop
 
    If liste_noms <> "" Then
        Me.NomRecup = Left(liste_noms, Len(liste_noms) - 1)
    Else
        Me.NomRecup = ""
    End If
 
End Sub

C"est tellement pas habituel comme demande..

[samsam85]

Pourriez-vous m'envoyer votre Base pour voir la différence avec la mienne

Je ne sais pas pourquoi elle ne marche pas chez moi

peut-on faire un copier des différentes lignes du sous formulaire actif et les coller dans le champs NomRecup du formulaire principal avec un espace entre chaque ligne collée
ça sera plus simple pour moi

[User]

La base est postée dans mon dernier message.

Il faut supprimer le code sur après maj de la zone de texte nomrecup, et ne garder que le code sur ouverture du formulaire.

Il faut aussi remettre la table1 comme source du sous-formulaire.

[samsam85]

Oui j'ai fait le nécessaire et ca fonctionne bien
Merci

Juste pour finir

Comment faire un copier des différentes lignes du sous formulaire actif et les coller dans le champs NomRecup du formulaire principal avec un espace entre chaque ligne collée ?

[User]

Bonjour,

Pouvez-vous m'expliquer le but de la manœuvre ?

[samsam85]

Bonjour User

J'ai commis une erreur dans l'envoi de la base , en effet le Nom2 du sous formulaire est une liste déroulante de nom de fruits (NomFruit)

Le Code marche bien mais il me renvoie l'ID (la colonne 1) de la liste . Comment modifier ton code pour avoir la colonne 2 de la liste et de ce fait l'intitulé de fruits et non leur ID
Merci

[User]

Dans le code rst!NomFruit fait référence au champ de la table source du sous-formulaire et non pas à la liste déroulante.

[samsam85]

Ca me donne erreur

[samsam85]

Merci pour ton aide car j'en ai besoin pour finir

[User]

...