retour vers le passé ?

[trend67]

Bonjour à tous,
Je reviens avec une nouvelle question , si quelqu'un sait y répondre aussi vite que les fois précédentes, ce serait
J'ai une base access (lourde) qui me permet de mesurer des phénomènes (retours clients) à une date donnée (par une table "singleton", le 1er du mois courant en général).
Je souhaiterai être capable de tracer l'évolution temporelle du phénomène. Dans le futur, c'est facile, il me suffit de reporter les résultats chaque mois.

Où ça devient plus coton, c'est pour retracer le "passé" (j'ai les données sur 3 ans et demi, mais je n'exploite que depuis peu). La solution "bestiale" est de mettre dans ma table "singleton" 1er janvier 2008, exécuter mes requêtes, noter les résultats, puis mettre 1er février 2008... et recommencer jusqu'au 1er juillet 2011.
Sauf que ça suppose que je reste éveillé devant mon PC (chaque calcul prend environ 1 heure, donc j'en ai pour 42 heures...)

Mon réve serait de le faire "automatiquement" (je tape mes 42 dates dans une table, je lance le truc, je pars en week-end (48 heures) et lundi matin j'ai mes résultats

Quelqu'un sait-il comment faire ? Merci d'avance de vos lumières !!

[marot_r]

Comment stockes-tu tes résultats ?

Une solution relativement simple :

• Créer une boucle en VBA qui va modifier ta base Singleton avec les différentes dates.
• Lancer le calcul par VBA
• Enregistrer les résultats
• Recommencer jusqu'à ce que toutes tes dates aient été traitées.

Ici un exemple de code qui ferait cela :

Code :

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
28
29
30
31
32
33
private sub CalculerLePasse()
   dim db as dao.database:set db=currentdb
   dim r as dao.recordset:set r=db.openrecordset("Singleton")
   dim dateDebut as date : dateDebut=dateserial(2008,01,01)
 
   do while dateDebut<=dateserial(2011,01,01)
      r.edit
      r![DateDebut]=dateDebut
      r.update
 
      'Ici le code pour exécuter les requêtes
      docmd.setWarning false 'Évite les messages de confirmation des requêtes
      docmd.openQuery("TaRequeteDeTraitement1")
      docmd.openQuery("TaRequeteDeTraitement1")
      docmd.openQuery("TaRequeteDeTraitement2")
      docmd.openQuery("TaRequeteDeTraitement3")
      '
      ' Mettre ici autant d'appel de requête que nécessaire
      '
      docmd.setWarning true 'Rétabli les messages de confirmation des requêtes
 
      'Ici mettre le code pour sauvegarder les résultats
      ' Difficile de te donner des détails
      ' car tout dépend de la façon dont tu veux le faire
      ' par ex : copie dans une table, exportation vers Excel, Sauvegarde dans un fichier texte
 
      'Passe au mois suivant
      dateDebut=DateAdd("m",1,dateDebut)
   loop
 
   r.close:set r=nothing
   set db=nothing
end sub

Autre solution : créer 42 copies paramétées de ton appli et les lancer avec un .bat :o). Même si cela parait farfelu, j'ai eu un cas où j'ai procéder comme cela et c'était la meilleur méthode dans mon cas.

A+

[curt]

Bonsoir trend67,

à priori ça n'a rien de bien méchant.

Une table dans laquelle tu mets tes dates
Une boucle pour lister chaque date
Une requête insertion paramétrée pour remplir ta table Singelton.

Il faudrait peut être avoir ta base pour creuser plus en profondeur, mais ça me semble abrodable.

------------------------------

Oups , Marot_r vient déjà de te répondre !!!!

Curt

[trend67]

Merci à tous les deux !!!
Je suis pour l'instant totalement ignare en VBA, mais comme Marot_r m'a donné 95% de la solution, c'est l'occasion de commencer !!!

J'essaye et vous tiens au courant !!

Encore merci !!!!

[marot_r]

Attention j'avais fait une faute de frappe l'instruction est DoCmd.SetWarning et non DoCmd.Setwraning.

J'ai corrigé le code du post précédent.

A+