Discussion :

[cellahugo]

Bonjour, j'ai crée une requête qui doit permettre d'afficher les appartements en fonction de l'étage. Une boite de dialogue s'ouvre, et nous demande de renseigner la valeur de l'étage. Si on met une valeur, aucun probleme. Mais si je ne renseigne aucune valeur alors là rien ne s'affiche, je voudrais au contraire que si je ne rentre rien alors tous les appartements s'affiche.

Comment je peux faire.

En gros dans les critères je mets [numéro appart] pour que cette box s'ouvre. et je voudrais donc rajouter

If [numéro appart] = ""
Then (((( Tout les appart s'affiche)))

Comment faire ??

Merci d'avance.

[pgz]

Bonjour.

Je vois 2 solutions. La première est de faire une procédure VBA qui demande la valeur du paramètre (InputBox) et qui modifie le SQL de la requête suivant la réponse, donc sans WHERE si pas de valeur saisie.

Sans VBA, mais un peu capilotracté : la clause WHERE de la requête pourrait s'écrire

Code :

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

WHERE Etage Like IIf(Nz([EtageDemandé],"")="","*",[EtageDemandé])

Bon courage,

PGZ

[cellahugo]

Ma valeur vient en réalité d'un formulaire. Que dois je donc faire ?


Par rapport à ta premiere solution. Comment dois je faire pour la mettre en forme ?

[francishop]

Bonjour;

Et un simple :

Code :

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

Comme "*" & [Quel étage?] & "*"

Cordialement

[pgz]

Je n'en sais pas assez pour te donner une solution adaptée, mais tu demandes

Par rapport à ta premiere solution. Comment dois je faire pour la mettre en forme ?

Voilà un peu de code pour modifier le SQL d'une requête qui existe

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
Dim db as DAO.Database, qdf as QueryDef, sSQL as string, sParam as string
 
Set db = CurrentDb
Set qdf = db.QueryDefs("MaRequête")
 
sSQL = "SELECT ..." 'sans clause WHERE
 
sParam = Nz(Forms("MonForm").Paramètre,"")
 
if sParam <> "" Then sSQL = sSQL & " WHERE Etage = " & sParam & ";"
 
qdf.SQL = sSQL 'ici la requête "MaRequête" est prête
 
Set qdf = Nothing
Set db = Nothing
...

Bon courage,

PGZ

[cellahugo]

FRANCISHOP MERCI!!!!!

CA faisait 8 heures que je cherchais, terminé messieurs, le meilleur projet ACCESS de l'école est pour ma gueule merci encore... Je v pouvoir prendre une tete ce soir !!