Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    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
    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!

    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:


    [TH]Emplacement[/TH]
    [TH]Contenu[/TH]
    Armoire 1 Clef; Douilles
    Armoire 2 Clef; Perceuse
    Armoire 3 Clef; Douilles; Perceuse; Vis

    Voici mon programme :
    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 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

    Merci d'avance pour le coup de main

  2. #2

###raw>template_hook.ano_emploi###