Discussion :

[blacksplint]

Bonjour,
Ce que je souhaiterai c'est récupérer le paramètre d'une requète paramètrée que l'on rentre dans la boite de dialogue. Ce paramètre est utilisé dans une sous requète.

Je travaille sur une base de donnée oracle qui est reliée à Accèss 2000. La base de donnée gère des appareils, des postes de travail (qui sont comme des appareils mais un poste est constitué de plusieurs appareils), les responsables appareils...
Mon but est d'avoir une liste des appareils (et caractéristiques) rattachés à un poste de travail dont on indique le numéro en paramètre.

La table appareil :
idappappareil
numéroappareil (le numéro des appareils et des postes)
...
La table APPCHAINE : (qui permet de rattacher les appareils et les postes)
idappappareilaval (les id des appareils rattachés à un poste)
idappappareilamont (les id des postes auquels sont rattachés des appareils)
...

La requète :
SELECT DISTINCT [APPAPPAREIL].[NUMEROAPPAREIL] AS NuméroAppareil, [APPAPPAREIL].[DESIGNATIONAPPAREIL] AS Désignation, [APPAPPAREIL].[MARQUEAPPAREIL] AS Marque, [APPAPPAREIL].[MODELEAPPAREIL] AS Modèle, [APPAPPAREIL].[NUMEROSERIE] AS NuméroSérie, [APPAPPAREIL].[DATEACQUISITION] AS DateAcquisition, [ENVSERVICE].[CODESERVICE] AS Service, [ENVSALLE].[NUMEROSALLE] AS Salle, [NOMPERSONNEL]+" "+[PRENOMPERSONNEL] AS Responsable

FROM ENVSERVICE, ENVSALLE, ENVPERSONNEL, APPAPPAREIL INNER JOIN APPUTILISATEUR ON [APPAPPAREIL].[IDAPPAPPAREIL]=[APPUTILISATEUR].[IDAPPAPPAREIL]

WHERE (((APPAPPAREIL.IDENVSERVICE)=[ENVSERVICE].[IDENVSERVICE]) AND ((APPAPPAREIL.IDAPPAPPAREIL) In (select distinct APPCHAINE.idappappareilaval from APPCHAINE, APPAPPAREIL where APPAPPAREIL.idappappareil= APPCHAINE.idappappareilaval and APPCHAINE.idappappareilamont=(select APPAPPAREIL.idappappareil from APPAPPAREIL where APPAPPAREIL.numeroappareil=[Numero du poste ?]))) AND ((APPAPPAREIL.IDENVSALLE)=[ENVSALLE].[IDENVSALLE]) AND ((APPAPPAREIL.IDRESPONSABLE)=[ENVPERSONNEL].[IDENVPERSONNEL]));

Merci d'avance pour vos réponses.

[MC2]

Bonjour,
récupérer sous quelle forme ?
Si c'est en VBA, il faut regarder du côté de la collection Parameters des QueryDef.

Code :

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

1
2
3
4
5
Set qy=CurrentDb.QueryDefs("Le nom de ta query")
qy.Parameters(1)...
'ou 
qy.Parameters("[Numero du poste ?]")...
'ou même un Set par = qy.parameters(1)...

[blacksplint]

A vrai dire je me demandai s'il y avait moyen de récupérer ce paramètre avec SQL car je ne parle pas très couramment le VBA. Mais si cela peut se faire en VBA pas de problème.
Mon but est de faire un état (pour que tout soit mis en forme pour impression) et que le paramètre de la requête apparaisse en haut de la page.
Donc j'essaie dès demain.
Merci pour ta réponse.

[Bevan]

Bonsoir

Je ne vois pas bien où est Oracle dans tout ça, mais dans Access il suffit de rajouter dans la partie select

Code :

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

[Numero du poste ?] as MonParam

Si par hazard il n'arrivait pas à faire le rapprochement il suffira de créer explicitement le paramètre dans la requête (click droit dans la zone des tables ou menu:requête, et paramètres)

[blacksplint]

Bien j'ai réussi à le récupérér aussi bien en VBA que dans la partie select et les 2 vont me servir.
Pour Bevan : j'avais déjà essayé ce moyen mais étrangement il m'affichai 2 fois la boite de dialogue ce qui fait que l'on pouvais avoir des infos incohérentes si on ne rentrai pas 2 fois la même valeur.

Merci.

[MC2]

Pour info : dans les requêtes directes Oracle, tu ne peux pas passer de paramètre, et de plus (pour Bevan), ce n'est pas la même syntaxe SQL qu'Access.
Il faut le faire en VBA.