Discussion :

[mcwk38]

Bonjour,
Après quelques recherches infructueuses dans le forum, je me heurte à un problème concernant la répétition d'un événement pour la base de données que je suis en train de construire.

En bref, je souhaite créer une base de données pour la gestion du budget familial et je souhaite pouvoir faire en sorte que les prélèvements automatiques se répètent de mois en mois.

Ex : Prélèvement de mon FAI tous les 5 du mois pour un montant de 40€...

Plutôt que de devoir le ressaisir tous les mois (ce qui n'est pas la vocation d'Access... ) Et là je sèche !!
Pouvez-vous me donner une solution pour que cela soit possible SVP ? (Je précise que je ne suis pas informaticienne, je me débrouille mais...je ne maîtrise pas le VBA)

Merci d'avance !!!

[User]

Salut,

Il te faut interroger la date pour voir si c'est un 5 du mois par exemple sur ouverture de ta base ou de ton formulaire de démarrage:

En VBA La fonction

Code :

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

Date()

Renvoie la date d'aujourd'hui

La fonction :

Code :

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

Day(LaDate)

Renvoie le jour de la date passée en argument.

Donc:

Code :

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

Day(Date())

Renvoie le jour de la date d'aujourd'hui.


L'idée est de tester si le jour d'aujourd'hui est un 5:

Code :

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

1
2
3
4
5
6
 if  Day(Date())=5 then
 
   ' si Date() est pas présente dans la table prélèvement.
   'Ajouter dans la table 40 euros et mettre à jour le champ date.
 
   end if

Voila pour le début, après pour ajouter 40 euros dans ta table tu peux utiliser une requête ajout ou un recordset...et pour tester si la date de prélèvement est déjà présente dans ta table tu peux Utiliser:

Code :

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

  if IsNull(DLookUp("DatePrelevement","TablePrelevement","[DatePrelevement]=Date()")) then

A+

[mcwk38]

Merci pour votre réponse rapide ! J'essaye ça

Bonne soirée !!!