fonction qui s'autoexecute a chaque periode de temps defini

fonction qui s'autoexecute a chaque periode de temps defini - VB/VBA/VBS - Programmation

Marsh Posté le 05-11-2006 à 19:40:44    

Salut tout le monde, :hello:  
 
J’ai une table A qui contient toutes les activitesjournalieres qui se passent sur un plancher de production. Cette table grossit enormement a chaque mois en taille, ce qui ralentit de beaucoup la vitesse d’execution de tous les requetes et etats qui sont bases sur cette table. Je cherche donc une solution pour resoudre ce probleme de lenteur.
Donc j’ai pense faire une function qui automatiquement, a chaque debut du mois (ou a chaque 15 du mois), deplace les vieux enregistrements vers une table B. Pour etre plus precise, je veux deplacer les enregistrements qui sont vieux d’au moins 2 mois. Par exemple, si la function s’autoexecute a chaque 15 du mois, donc le 15 novembre, il va deplacer vers la table B, tous les enregistrements qui sont anterieurs au mois de septembre.
Mais je ne sais pas vraiment comment m’y prendre pour creer cette fonction. Quelqu’un a une idée? Ou peut etre une facon differnete pour resoudre mon probleme?
 
Merci d’avance :jap:  

Reply

Marsh Posté le 05-11-2006 à 19:40:44   

Reply

Marsh Posté le 05-11-2006 à 20:17:49    

bonsoir,
Utilise la Sub Workbook_Open
En petit nègre...
If Day(Date) >15 And (Month(Date) - Month(DatePremierEnregistrement)>2) Then
 Détecter le nombre d'enregistrements à archiver
 Couper les enregistrements à archiver
 Ouvrir le fichier archive
 Détecter la première ligne vide
 Coller les enregistrements à archiver
 Fermer le classeur archive
End if
 
A+

Reply

Marsh Posté le 06-11-2006 à 04:37:54    

J'utilise Access

Reply

Marsh Posté le 06-11-2006 à 07:57:58    

Bonjour,
Ton logiciel ne tournant pas les WE, ni les jours fèries, je suppose, il serait peut-être bon de mettre dans une table (nouvelle ou utilisable à cet effet) la date de la dernière sauvegarde.
Tu peux essayer de caser cela dans:
 
Private Sub Form_Open(Cancel As Integer)
 
End Sub  
 
ou dans une macro dont le nom sera Autoexec
 
 
 
 
Cordialement


Message édité par seniorpapou le 06-11-2006 à 08:03:18
Reply

Marsh Posté le 07-11-2006 à 06:47:05    

Je vais essayer ca! Merci a tous pour votre aide

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed