Discussion :

[el'picard]

Bonjour,

je souhaite créer une macro qui va me permettre de modifier un critère (restriction de date) dans plusieurs requêtes.
le hic est que je n'ai jamais utilisé le mode macro dans access (2002 sp3).
le but serait d'avoir une box qui s'ouvre au lancement de la macro du genre :"date ? : ............." et qu'une fois remplie je n'ai plus qu'à cliquer sur "ok" pour que le critère soit changé dans mes diverses requêtes.

j'espère avoir été clair sur ma demande, si ça n'est pas le cas, n'hésitez pas à me demander plus de détails.

Merci d'avance pour vos réponses.

[loufab]

Bonjour,

Le problème de la macro c'est qu'elle ne sait pas stocker de valeur, se sera donc difficile de programmer une telle fonctionnalité.

Je verrai plutot une petite procedure VBA.

Cordialement,

[Jordmund]

Pour ouvrir la box il y a l'instruction InputBox

Pour le reste (mise à jour requete) il faut passer par de la programmation, mais y a plus simple.

Tu peux faire formulaire paramètres ou tu spécifies ton critère, et celui ci sera appellé par ta requète.

[random]

tu peux utliser ces deux fonctions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function posedate() As Date
Dim u As Variant
Do
u = InputBox("entrez ladate")
Loop Until IsDate(u)
posedate = litdate(u)
End Function
 
Function litdate(Optional v As Variant) As Date
Static u As Date
If Not IsMissing(v) Then u = v
litdate = u
End Function

au premier appel tu définis la valeur aux appels suivants tu la lis

[el'picard]

Merci de vos réponses
J'ai utilisé les fonctions proposées par random

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
17
18
19
20
21
22
23
24
25
26
27
Function posedate() As Date
Dim u As Variant
Do
u = InputBox("entrez la date de début")
Loop Until IsDate(u)
posedate = litdate(u)
End Function
 
Function litdate(Optional v As Variant) As Date
Static u As Date
If Not IsMissing(v) Then u = v
litdate = u
End Function
 
Function posedatefin() As Date
Dim w As Variant
Do
w = InputBox("entrez la date de fin")
Loop Until IsDate(w)
posedatefin = litdatefin(w)
End Function
 
Function litdatefin(Optional x As Variant) As Date
Static w As Date
If Not IsMissing(v) Then w = x
litdatefin = w
End Function

ceci me permet de rentrer une date de début et date de fin dans une des requêtes de ma base.

mais comment utiliser ces dates dans une autre requête de la même base sans avoir à les entrer à nouveaux ?

[random]

tout simplement en utilisant litdate()

par exemple where madate<litdate()

[loufab]

Il faut d'une part copier le code sql de la requete dans le code (une variable texte fait l'affaire) et modifier la partie where pour intégrer la date.

Regarde le tuto sur le debugage des requetes dans VBA.

Cordialement,

EDIT : yes random ! j'y pense jamais...

[el'picard]

j'ai rien bité !
je pense que vous me surestimez.
quoiqu'il en soit si je rentre le critère : Entre litdate() Et litdatefin(),
bah... ça marche pas : erreur 13 (incompatibilité de type) apparait aussi sec.
help me please

[random]

cela indique que la valeur avec laquelle tu compares litdate() n'est pas une date
essaye

Code :

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

1
2
3
 
SELECT madate,iif(IsDate([madate]),"voilà une date","ici autre chose")  AS dateoupas
FROM matable;