Discussion :

[mat777]

bonjour,
je voudrais pouvoir utiliser dans une requete, la valeur que l'utilisateur va séléctionner dans la combo (comboStartBloc) pour pouvoir faire une autre combo en fonction de son choix.

Code :

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

1
2
3
4
SELECT id_panel
FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc
WHERE bloc.label = comboStartBloc

Pouvez vous-me dire comment faire.
Merci

[Jean-Philippe André]

bonjour,
tu peux regarder du cote de [Forms]![MonForm]!comboStartBloc

[mat777]

salut,
merci pour ton "indice".

J'ai insérer cela dans ma requete :

Code :

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

1
2
3
SELECT id_panel
FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc
WHERE bloc.label=[Forms]![MonForm]!comboStartBloc;

Le problème c'est que au moment crucial de choir le bon ID_PANEL dans la 2 eme combo, un boite de dialogue s'ouvre, et je dois rentrer manuellement le "[Forms]![MonForm]!comboStartBloc;"

Peux-tu m'éclaircir encore un peu?
MercI

[Jean-Philippe André]

il faut que tu indiques le nom du formulaire

Code :

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

[Forms]![Nomduformulaire]!...

[mat777]

désole, j'avais pas fait attention.
J'ai adapté avec ce que tu à dis

Code :

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

[Forms]![Formulaire1]!comboStartBloc;

mais ca ne renvoie rien dans l'autre combo.
Y a t-il d'autres choses à adapter encore?

[Jean-Philippe André]

alors oui, si ton label est un champs de type texte, il faut ajouter des apostrophes. je ne pense pas que le .value soit obligatoire, mais on ne sait jamais ^^

[mat777]

ok alors

lorsque je fais :

Code :

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

1
2
3
SELECT id_panel
FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc
WHERE bloc.label='[Forms]![Formulaire1]!comboStartBloc.value';

cela ne fonctionne pas.

Mais si je fais (codage en dur) :

Code :

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

1
2
3
SELECT id_panel
FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc
WHERE bloc.label='B3';

cela me donne le résultat souhaité.

Il y a donc un souci dans ce '[Forms]![Formulaire1]!comboStartBloc.value'
J'ai essayé avec "value" et sans.

Merci

[Siguillaume]

Code :

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

1
2
3
SELECT id_panel
FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc
WHERE bloc.label='[Forms]![Formulaire1]!comboStartBloc.value';

Je te propose:

Code :

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

1
2
3
 
" SELECT id_panel FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc " & _
" WHERE bloc.label='"  & [Forms]![Formulaire1]!comboStartBloc.value & "';"

comme requete. Si l'execution se fait dans un code VBA, je te propose de facon integrale:

Code :

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

1
2
3
4
5
6
7
8
 
dim mabd as DAO.database
dim str as string
dim larequete as DAO.recordset
set mabd=currentdb
str=" SELECT id_panel FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc " & _
" WHERE bloc.label='"  & [Forms]![Formulaire1]!comboStartBloc.value & "';"
set larequete=mabd.openrecordset(str)

Bon courage!

[mat777]

Salut, j'ai essayé via VBA :

Code :

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

1
2
3
4
5
6
Dim mabd As DAO.Database
Dim larequete As DAO.Recordset
Set mabd = DBEngine.OpenDatabase("D:\DatabaseFO\DataFO.mdb")
 
Set larequete = mabd.OpenRecordset("SELECT id_panel FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc WHERE bloc.label= '" + comboStartBloc.Value + "'")
comboStartPanel = larequete.Fields("ID_PANEL").Value

mais cela renvoie le message : "aucun enregistrement en cours ".
De nouveau si je mets la valeur du comboStartBloc en dur, cela fonctionne.
C'est surement un problème de syntaxe mais lequel ?

Merci

[Siguillaume]

Bonjour!
Pour verifier si effectivement la requete fonctionne avec le bon parametre, essaie de faire:
Msgbox "SELECT id_panel FROM panels INNER JOIN bloc ON bloc.id_bloc=panels.id_bloc WHERE bloc.label= '" + comboStartBloc.Value + "'"

Pour voir si la valeur de comboStartBloc.Value est celle utilise.

[mat777]

En effet il y a un problème, il ne me revoie pas la valeur de l'élément selectionné dans la combo, il me renvoie la clé primaire correspondante.
Comment faire pour qu'il me renvoie le string qui est séléctionné dans la combo ?

Ca résoudrait mon problème.

[Jean-Philippe André]

bonjour,
tu dois regarder dans les propriétés de la combo, la colonne associée (boundcolumn).

[mat777]

ca va j'ai trouvé enfait il faut utiliser cette propriété :

Code :

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

comboStartBloc.SelText

par contre savez-vous comment réinitialiser une combo de facon à ce qu'elle ne contienne plus rien.
j'ai besoin de ca juste avant de renvoyer des nouvelles valeurs dedans.
J'avais pensé à un combo.clear mais apparement ca n'existe pas.

Merci

[Jean-Philippe André]

essaie :

Code :

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

combo.rowsource=""

[mat777]

Ok cela fonctionne tres bien.
La majortié de mes problèmes sont résolus.

Merci à tous.
Vous m'avez bien aidé.