Discussion :

[infor_mat]

Bonjour,

Je voudrais lier deux combobox. l'un à une table Agence(IdAgence) et l'autre à une table Secteur(IdSecteur, IdAgence) de façon à avoir
1- sur le premier combobox Agence tous les agences de la tables
2- sur le second combo, lorsqu'une agence est sélectionnée, les secteur de cette agence doivent être chargés.

Merci d'avance

[hi-wave]

salut a vous.

puisque c'est d'un combobox dont il s'agit, il vous faudra
un recordset chargé grace a une requete :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select idagence from ......

et une boucle du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
while not recordsetset.EOF then
combobox1.additem(recordset(0))
end while

pour remplir le premier combobox

et pour le 2eme une requete du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select idsecteur from...... where idagence like '"& combobox1.text &"';"

ensuite une boucle du même style que la haut
et je pense que ça pourrait aller.

[infor_mat]

Merci beaucoup pour la réponse mais ça ne marche pas. Et j'ai le message "Method or data member not found" et j'ai le AddItem sélectionné.
Peut-être qu'il ne reconnaît pas la méthode AddItem.
J'ai aussi essayé de mettre un datagrid et lui donner comme RecordSource les requêtes mais ça ne marche toujours pas.
Où se situe le problème à votre avis?

[hi-wave]

en fait personnellement j'utilise plutot des datacombo pour ce genre de manip.
ils sont plus simple a manipuler pour les donnees de BD.

voici un exemple pour remplir un datacombo avec un des champs d'une table

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
20
21
22
23
24
 
dim strconn as string
dim conn as adodb.connetion
dim recset as adodb.reccordset
dim chaine as string
 
'les lignes pour ouvrir se onnecter a la BD
strconn="chaine de connecction et tous le sparamètres de connexion"
set conn =  createobject("adodb.connection")
conn.open strconn
 
'les lignes pour remplir le recordset
chaine = "select ......... from.......;"
set recset = ccreateobject("adodb.recordset")
recset.open chaine,conn,3 ' c'est juste l'essentiel sinon d'autres details sont souvent necessaires
 
'ensuite il faut dessiner sur la feuille un controle datacombo et
set datacombo.datasource= recset
set datacombo.rowsource = recset
datacombo.listfield = recset("champ a faire apparaitre")
datacombo.datafield = recset("champ a faire apparaitre")
 
'par preaution vider le recordset
set recset =  nothing

et faire la même manip pour le deuxieme datacombo en accordant la requete

[muzele]

Jette un coup d'oeil sur ce topic:
http://www.developpez.net/forums/d39...ction-critere/

Tu trouvera surement la réponse à ton sujet!
Voir la réponse de : bricoyeye

[infor_mat]

salut,
En fait c bien un dataCombo que j'utilise aussi. Mais apparemment, il ne supporte pas les méthodes AddItem et Clear.
J'ai aussi essayé d'utiliser les propriétés datasource e RowSource. J'ai un message d'erreur.
Auriez-vous une idée sur ce qui cause problème?

[hi-wave]

pour les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
dataombo.listfield = recset(x) 
datacombo.datafield = recset(x)

ajoute la propriété name

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
dataombo.listfield = recset(x).name
datacombo.datafield = recset(x).name