Discussion :

[Gesphy]

Bonjour,

J'ai une requête qui fonctionne, elle me donne les 200 N° de Dossier concernés (de la table Dossier).

Code SQL :

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

1
2
3
4
5
SELECT dossier.NODOS
FROM dossier INNER JOIN presta ON dossier.NODOS = presta.NODOS
WHERE (((presta.DATE)<Date()-60))
GROUP BY dossier.NODOS, dossier.ETAT, presta.DFACT
HAVING (((dossier.ETAT)="O") AND ((presta.DFACT) Is Null));

J'ai un Formulaire basé sur la table Dossier et j'aimerais par VBA lui appliquer un filtre pour que seuls les 200 Dossier de ma requête s'affichent.
La syntaxe suivante ne donne pas d'erreur à la compilation ou à l'exécution, MAIS aucun enregistrement ne s'affiche dans mon formulaire !

Code :

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

1
2
3
    DoCmd.ApplyFilter "", "[NODOS] IN ( SELECT dossier.NODOS FROM dossier INNER JOIN presta ON dossier.NODOS = presta.NODOS " & _
                          "where (((Presta.Date) < Date - 60)) GROUP BY dossier.NODOS, dossier.ETAT, presta.DFACT " & _
                          "HAVING (((dossier.ETAT)=""O"") AND ((presta.DFACT) Is Null)) )"

Qui aurait une idée ?
Merci

[tee_grandbois]

bonjour,

Code :

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

"where (((Presta.Date) < Date - 60))

pourquoi les parenthèses de la fonction Date() ont disparus ?

[Gesphy]

Merci beaucoup tee_grandbois, avec les () cela fonctionne !
C'est étrange qu'elles aient disparu car j'avais fait un copier-coller de ma requête ?!

[Gesphy]

encore un dernier mot: j'ai refais mon copier-coller, et de nouveau Date() se transforme automatiquement en: Date
Assez étrange non ?

[tee_grandbois]

oui, étrange mais je n'ai pas d'explication si ce n'est que VBA peut de temps en temps "dysfonctionner" et faire de l'autocorrection incorrecte lorsque les instructions à coller sont sur plusieurs lignes.
A l'avenir, colle le texte dans un éditeur de texte et enlève les sauts de ligne avant de le coller dans VBA quitte à le découper en plusieurs lignes après