SPLIT ET DAO : REMPLIR UNE COMBO AVEC PLUSIEURS CHAMPS ET LES RÉCUPÉRER 1 À 1 ENSUITE

SUR CHARGEMENT DU FORMULAIRE
'déclarations
'de la base
dim db as dao.database
'de la requête
dim rq_employes as dao.recordset
'de la variable qui va prendre le texte de la combo
dim var as string
'de la variable qui receuillera les différentes parties du texte de la combo
dim tableau() as string
'initialisations
'de la base et la requête
set db = opendatabase (« chemin de la base »)
Set rq__employes = db.OpenRecordset("select matricule, nom, prenom from salarie where num_entite in (SELECT entite.num_entité From entite Where (((entite.nom_entité) = '" & nom_entreprise & "')))")
'si il y a des enregistrements alors
If rq_employes.RecordCount > 0 Then
   'aller sur le premier enregistrement
   rq_employes.MoveFirst
    'Tant qu'il y a des enregistrements
    Do While rq_employes.EOF = False
        'ajouter le matricule, des espaces, le nom, des espaces, le prenom
        choix.AddItem rq_employes!matricule & "   " & rq_employes!nom & "   " & rq_employes!prenom
        'aller à l'enregistrement suivant
        rq_employes.MoveNext
    'refaire
    Loop
'sinon
Else
    'afficher dans la zone de texte qu'il n'y a pas d'enregistrements
    choix.Text = "pas d'employé pour cette entité"
'fin si
End If

SUR CLIC SUR LA COMBO
'initialisation de la variable var
var_combo = choix.Text
'la variable tableau va prendre autant de valeur qu'il y a dans var entre chaque " ". la syntaxe est : var_dynamique = split(var_chaine, séparateur)
tableau = Split(var_combo, " ")
'la première valeur du tableau est la première valeur du texte de la combo jusqu'à l'espace. Ici c'est le matricule, on le met dans la zone de texte.
Verif_num.text = tableau (0)