Discussion :

[piflechien73]

Bonjour,

J’ai fait une petite macro qui demande à l’utilisateur de definer une date “début” et une date “fin”

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub dateq()
Dim DATEFROM As Double
Dim DATETO As Double
 
'entrée
DATEFROM = InputBox("YYYYMMDD", "DATE FROM ?")
DATETO = InputBox("YYYYMMDD", "DATE TO ?")
End Sub

que j’appelle via une fonction

Code :

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

1
2
3
4
 
Public Function datedef()
Call dateq
End Function

utilisée dans une requête ACCESS.

Jusque là tout va bien.

Je voudrais en prime intégrer ces 2 valeurs comme condition dans cette meme requête

Genre

Code :

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

SELECT ….HAVING (((datedef())>"datefrom" And (datedef())<"dateto"))

Voir image.



Je veux également rappeler ces 2 valeurs dans une autre requête un peu plus tard. Est ce possible d’appeler ces 2 valeurs définies par VBA dans mon SQL pour en faire des filtres?

Merci par avance

[Jean-Philippe André]

Salut,
un rapide coup d'oeil dans la te donne une bonne piste à mon avis :
http://access.developpez.com/faq/?page=SQL#ReqParamVar