Discussion :

[ASG29]

Bonjour à tous !

Tout d'abord, je m'excuse si la question a déjà été abordée, j'ai cherché en vain dans les kilomètres de conseils déjà postés !

Mon problème est le suivant :

J'ai une base de donnée avec un fichier client, je peux filtrer mes données avec différents critères.

J'ai un état, qui est une étiquette adresse que je souhaite imprimer.

Ma requête :

Code sql :

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

1
2
3
SELECT [Nouvelle base].Société, [Nouvelle base]!Nom & " " & [Nouvelle base]!Prénom AS [Nom et prénom], [Nouvelle base].Fonction, [Nouvelle base].Adresse, [Nouvelle base].CP, [Nouvelle base].Commune, [Nouvelle base].AGP, [Nouvelle base].AGS, [Nouvelle base].Département, [Nouvelle base].Profil, [Nouvelle base].Responsable
FROM [Nouvelle base]
WHERE ((([Nouvelle base].AGP) Like IIf([Forms]![Consultation_OPA]![Cocher185],True,"*")) AND (([Nouvelle base].AGS) Like IIf([Forms]![Consultation_OPA]![Cocher189],True,"*")) AND (([Nouvelle base].Département) Like [Formulaires]![Consultation_OPA]![List_Dpt]) AND (([Nouvelle base].Profil) Like [Formulaires]![Consultation_OPA]![List_Profil]) AND (([Nouvelle base].Responsable) Like [Formulaires]![Consultation_OPA]![List_Resp]));

Si j'applique tous les filtres, ça marche, mais si je choisie de ne pas filtrer par département (par exemple) j'obtiens une erreur...

Comment préciser dans ma requête qu'il faut imprimer même si je ne filtre pas ?

[belu33fr]

Bonjour,
Je pense que leplus judicieux est de constituer la clause Where à la volée lors de l'ouverture de l'etat. Ceci est le plus souple.

Dans le open de l'etat:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Where as string
IF [Forms]![Consultation_OPA]![Cocher185] THEN
   Where="[Nouvelle base].AGP =True"
END IF
IF [Forms]![Consultation_OPA]![Cocher189] THEN
   IF Where<>"" then Where=Where & " AND "
   Where=Where & "[Nouvelle base].AGS = True"
END IF
 
...... suite
 
Me.Filter=Where

[ASG29]

Bonjour,

Merci d'avoir répondu, mais malheureusement je n'y suis toujours pas arrivée...
Je débute en programmation et je découvre à peine Access et malgrès des heures de lecture de FAQ, tuto, cours et sources je n'arrive pas à m'y faire !

Par contre je me suis rendue compte que j'avais le même problème avec l'export vers Excel !

Il faut absolument que tous les filtres soit actifs pour que ça fonctionne mais les futurs utilisateurs de la base n'auront pas besoin d'appliquer tous les filtres à chaque fois...

Si vous avez d'autres idées elles seront les bienvenues !

Merci !

[ASG29]

Merci à ceux qui se sont penchés sur mon problème, mais ça y est !
Je l'ai réglé !
Avec cette requête :

Code sql :

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

1
2
3
SELECT [Nouvelle base].Société, [Nouvelle base]!Nom & " " & [Nouvelle base]!Prénom AS [Nom et prénom], [Nouvelle base].Fonction, [Nouvelle base].Adresse, [Nouvelle base].CP, [Nouvelle base].Commune, [Nouvelle base].AGP, [Nouvelle base].AGS, [Nouvelle base].Département, [Nouvelle base].Profil, [Nouvelle base].Responsable
FROM [Nouvelle base]
WHERE ((([Nouvelle base].AGP) Like IIf([Forms]![Consultation_OPA]![Cocher185],True,"*")) AND (([Nouvelle base].AGS) Like IIf([Forms]![Consultation_OPA]![Cocher189],True,"*")) AND (([Nouvelle base].Département) Like IIf(IsNull([Forms]![Consultation_opa]![List_Dpt]),"*",[Forms]![Consultation_opa]![List_Dpt])) AND (([Nouvelle base].Profil) Like IIf(IsNull([Forms]![Consultation_opa]![List_Profil]),"*",[Forms]![Consultation_opa]![List_Profil])) AND (([Nouvelle base].Responsable) Like IIf([Forms]![Consultation_opa]![List_Resp]="Tous","*",[Forms]![Consultation_opa]![List_Resp])));

Problème résolu