Discussion :

[Sofie109]

Bonjour,

J'ai un gros problème: je ne sais pas comment résoudre ce problème car il nécessite de créer une programmation VBA et, hélas je ne suis qu'une novice!

Voici le problème :

Je doit préparer une requête qui sera exécutée tous les vendredis et qui sortirait les interventions d'un prestataire (TOTO) entre le vendredi d’avant et le jeudi d’avant.

J'ai d'abort crée une requête (REQUETE 1) des interventions du prestataire TOTO ou l'on trouve les champs :

- Date (jj/mm/aa)
- Numéro d'interventions

Cette requête est automatiquement actualisée tous les jours.

J'ai commencé à créer un formulaire avec 2 champs :

- La date que l'on rentrera (la date des vendredis)
- Un bouton OK pour arriver sur la table qui affichera les interventions du prestataire TOTO via REQUETE 1.

Aidez moi s'il vous plait!

[cafeine]

Hello,

pour commencer, merci de changer d'urgence de titre et de mettre quelque chose de précis.

Titre imprécis
Novice en VBA - problème de programmation


Titre correct
[Débutant] Critères de requete sur dates

[Sofie109]

C'est modifié! Désolée!

[Heureux-oli]

Dans la requête, tu dois aller cherche le champ date que tu remplis sur le formulaire.

Pour ce faire, en mode création de la requête, tu clic droit dans le champ Critère et un assistant va s'ouvrir.

Il te propose une arborescence et tu essaie de trouver ton champ.

Ensuite, tu refais un listbox sur ton formulaire et tu lui dit gentiment que la source de données est la requête.

Ensuite tu associe au bouton un code qui devrait ressembler à ça :

Code :

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

1
2
3
4
 
Sub MonBouton_Click()
Me.listBox1.requery
End sub

Si tu utilises les assistants, ils vont faire une partie du travail à ta place et il ne te restera qu'à fignoler

[random]

ne te focalises pas trop sur "qui doit être exécutée tous les vendredi"
si le 1er mai tombe un vendredi ta requête sera exécutée au mieux le
4 qui va tomber un lundi

il te faut un select
date,
numintervention
from matable
where date>=[entrez la date]
and date <=[entrez la date]+ 7
and prestataire='toto';

si le paramètre [entrez la date] tu peux le remplacer par jeudi() et ajouter
dans un module la fonction suivante

Code :

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

1
2
3
4
5
6
7
8
9
 
Function jeudi() As Date
Dim madate As Date
madate = Date
Do Until Weekday(madate) = vbThursday
madate = madate - 1
Loop
jeudi = madate
End Function

nb évite de nommer un champ date, un champ de dattes est déconseillé (risque de diabète et de confusion)

[Sofie109]

J'essaie de suite!

[Sofie109]

En fait dans la zone de texte du formulaire ou l'on rentre la date le format sera : jj/mm/aa.
Et une fois la date rentrée, le formulaire me marque dans la zone de liste les interventions de J-7 à J-1, J étant la date rentrée dans la zone de texte!

[random]

c'est normal on est jeudi

[Sofie109]

En fait dans la zone de texte du formulaire ou l'on rentre la date le format sera : jj/mm/aa.
Et une fois la date rentrée, le formulaire me marque dans la zone de liste les interventions de J-7 à J-1, J étant la date rentrée dans la zone de texte!

J'aimerai arriver à faire cela mais je n'y arrive pas car c'est du VBA...

[random]

tu modifies le format ta zone de texte de façon à écrire en corps maigre,
ça facilite la résolution de problème sous access