Valeur dans un combobox
Résolu/Fermé
A voir également:
- Valeur dans un combobox
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Piece 2€ bonhomme valeur ✓ - Forum Loisirs / Divertissements
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
- Excel si valeur dans liste alors ✓ - Forum Excel
- Feuilles diddl valeur ✓ - Forum Graphisme
7 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
17 févr. 2009 à 13:26
17 févr. 2009 à 13:26
Bonjour,
Si la propriété Sort du combo (mettre par ordre alpha) est à False, en mettant un tableau annexe ?
A+
Si la propriété Sort du combo (mettre par ordre alpha) est à False, en mettant un tableau annexe ?
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
17 févr. 2009 à 14:12
17 févr. 2009 à 14:12
Quand tu rempli le combo par Add.... mettre dans une tableaux le "Field" Code postal (ou N° de la commune !)
Quand tu clic sur le combo, reprendre le code dans le tableau avec comme index le ListIndex du Combo
Quand un sélection est faite sur le comboBox
CodeCommune = TB(ComboBox.listindex)
A+
Quand tu clic sur le combo, reprendre le code dans le tableau avec comme index le ListIndex du Combo
dim Num as long dim TB() ComboBox.add..... ta requète redim Preserve TB(Num) TB(Num) = ta requète Codecommune Num = Num + 1
Quand un sélection est faite sur le comboBox
CodeCommune = TB(ComboBox.listindex)
A+
d'accord mais sachant que j'ai une boucle cela ne change rien?
Dim rec2 As ADODB.Recordset
Set rec2 = New ADODB.Recordset
rec2.Open "select distinct * from ville order by ville_nom", conn, adOpenDynamic, adLockOptimistic
Do While rec2.EOF = False
num_commune = rec2.Fields("ville_num")
cbocommune.AddItem (rec2.Fields("ville_nom"))
cbocommune.Tag = num_commune
rec2.MoveNext
Loop
mais comme vous pouvez le constater mon .tag ne stocke pas les valeurs...
Dim rec2 As ADODB.Recordset
Set rec2 = New ADODB.Recordset
rec2.Open "select distinct * from ville order by ville_nom", conn, adOpenDynamic, adLockOptimistic
Do While rec2.EOF = False
num_commune = rec2.Fields("ville_num")
cbocommune.AddItem (rec2.Fields("ville_nom"))
cbocommune.Tag = num_commune
rec2.MoveNext
Loop
mais comme vous pouvez le constater mon .tag ne stocke pas les valeurs...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
17 févr. 2009 à 14:36
17 févr. 2009 à 14:36
Bien sùr, sur VB6 il n'y a pas un "Tag" par ligne
mais ça change rien, tu peu mettre dans un tableau comme dit plus haut
et quand tu veux retrouver le num_commune
num_commune = TB(cbocommune.listindex)
mais ça change rien, tu peu mettre dans un tableau comme dit plus haut
dim Num as long
dim TB()
Do While rec2.EOF = False
cbocommune.AddItem (rec2.Fields("ville_nom"))
redim Preserve TB(Num)
TB(Num)= rec2.Fields("ville_num")
Num = Num + 1
rec2.MoveNext
Loop
et quand tu veux retrouver le num_commune
num_commune = TB(cbocommune.listindex)
ok et bah je te remercie beaucoup, a bientot et bonne journée
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
17 févr. 2009 à 14:49
17 févr. 2009 à 14:49
Pourquoi le bah ça ne te convient pas ??
