Lien entre combobox et textbox avec une base

"je veux que l'id_département s'affiche dans le combo et dans le textbox s'affiche le libellé corespondant" ?????????????? ça sert à quoi ? perturber l'utilisateur ?

Private Sub Form_Load()
' Adodc2 ??????????? il ny aurait pas plus parlant que ça ??????
Adodc2.CursorLocation = adUseClient ' ???????????????? adUseServer, on ne lit qu'une fois et seulement dans une direction
Adodc2.CursorType = adOpenDynamic ' ????????????????? adOpenForwardOnly, on ne lit qu'une fois et seulement dans une direction et je ne penses pas qu'on va updater ce recordset
Adodc2.ActiveConnection = p_adoConnect.ConnectionString
Adodc2.Open "select Libellé from département Where id_département = ' " & Combo1(4).Text & " ';"
'Textd.Text = Adodc2!Libellé ' Text est la prop par défaut donc Textd = "XXX" est suffisant

i = 0 ' i ?????????????? à quoi bon ? on ajoute un après l'autre de toute façon
Do While Not Adodc2.EOF
Combo1(4).AddItem Adodc2!id_département, i ' ???? "é" dans le noms d'un champ, je vois des pb arriver
' i ?????????????? à quoi bon ? on ajoute un après l'autre de toute façon
' Combo1(4) ??????????? il ny aurait pas plus parlant que ça ?????? ça commence à faire
chier ces trucs. non seulement ça porte pas de nom, maintenant c'est même un array sans nom, WTF
Textd.Text = Adodc2!Libellé ' même chiasse qu'avant
i = i + 1 ' ???? à quoi bon ? on ajoute un après l'autre de toute façon
Adodc2.MoveNext

Loop
Adodc2.Close
set Adodc = Nothing ' on s'en fout, on a pas besoin de récupérer de la memoire
end sub

bonsoir,

je veut que l'id s'affiche plusque le libellé

parceque cette application gére l'horaire, des groupe dans une grande société on peux trouver deux groupes qui porte le m nom

mais l'horaire est different donc l'id c different

l'enregistrement selon l'id est important

et vu le grand nombre de groupe l'user ne peut pas apprendre tous les codes donc le libellé et aussi important

ceci c'est copier / coller, mais surement pas programmer

Do While Not Adodc2.EOF
Combo1(4).AddItem Adodc2!id_département, i
Textd.Text = Adodc2!Libellé
i = i + 1
Adodc2.MoveNext
---------------------------------------------------------------------------------------------------
Sub cboDepartment_OnChange

'Dim le nécessaire !!!!!!!!!!!!!!!!!!!!!!!!!

rsDepartments.Open "SELECT Description FROM Departments WHERE id_Department = ' " & cboDepartment & " '"
If rsDepartments.EOF Then
txtDepartment = "Department not found"
Else
txtDepartment = rsDepartments!Description ' PAS D'ACCENT, PAS DE CHOSE BIZARRES, PAS DES CARACTERES QUI N'EXISTENT PAS EN ANGLAIS

rsDepartments.Close
Set rsDepartments = Nothing ' POURQUOI VOUS OBLIEZ TOUJOURS CECI. VOUS ATTENDEZ TOUS QUE LE BONHOMME DE LA POUBELLE (Garbgage Collector) PASSE ?

End Sub
---------------------------------------------------------------------------------------------------
"et vu le grand nombre de groupe l'user ne peut pas apprendre tous les codes donc le libellé et aussi important"
on général on n'affiche pas des codes pour les usrs, sauf s'ils le demandent