1 pièce(s) jointe(s)
Les champs multi-valués et la recupération des données
Bonjour à tous,
Comme beaucoup de monde je bute sur la récupération des infos dans des champs multi-valués :calim2:
J'ai trouvé sur la toile beaucoup de chose pour récupérer en VBA ces données mais ca ne me convient pas car j'ai dans tout les cas des problèmes de type de données incompatible! 8O
Pour simplifier j'ai créé un fichier simple en PJ pour faire les essais.
J'ai une table qui contient une colonne "Emplacement" et une deuxième colonne "Contenu" multi-valués:
Emplacement |
Contenu |
Armoire 1 |
Clef; Douilles |
Armoire 2 |
Clef; Perceuse |
Armoire 3 |
Clef; Douilles; Perceuse; Vis |
Voici mon programme :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub Commande0_Click()
Me.Requery
Dim sql As String
Dim Outils(10) As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Rangement WHERE Emplacement = 'Armoire 1';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
Outils(1) = rs.Fields("Contenu").Value
MsgBox ("Pause")
Else: MsgBox ("Armoire introuvable")
End If
End Sub |
J'ai tenté de récupérer l'info "Douilles" qui est la seconde valeur de mon champs multi-valué pour ma requête avec "Armoire 1" en tant qu'emplacement mais au mieux je récupère "Clef"(la première valeur du champs multi-valué) et au pire j'ai une erreur de type.
Je pense avoir compris qu'il faut utiliser "Fields" mais comment c'est la question!
Quelqu'un a t'il déjà réussi? J'ai l'impression que sur les forums, les gens abandonnent et finissent par faire autrement!
C'est bien que Microsoft invente les champs multi-valués mais c'est compliqué en VBA je trouve :aie:
Merci d'avance pour le coup de main :mrgreen: