[VBA-A]Modification visual basic formulaire acess MàJ auto

Version imprimable

Bonjour à tous
:lol:
Je travaille sous Acess.

J'ai fait un formulaire qui appelle une macro, cela fontionne trés bien, mais je souhaiterais l'améliorer.

Au lieu qu'elle s'active au click de la souris, qu'elle se lance automatiquement toutes les 1/2 heures. :cry: sinon il faut l'intervention de qqu'un -> pas terrible ! :oops:

Il faut insérer une fonction timer je pense, mais je ne sais pas le code VB qu'il faut remplacer, insérer etc.... merciiiiiii

Voici ce que donne le code du formulaire

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Compare Database
 
 
Private Sub Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click()
On Error GoTo Err_Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click
 
    Dim stDocName As String
 
    stDocName = "Macro exe la MàJ des fichiers HTM du site pour les adres"
    DoCmd.RunMacro stDocName
 
Exit_Formulaire_exe_Macro_exe_la_MàJ_des:
    Exit Sub
 
Err_Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click:
    MsgBox Err.Description
    Resume Exit_Formulaire_exe_Macro_exe_la_MàJ_des
 
End Sub
Private Sub Fermer_ce_formulaire_sans_lancer_la_macro_Click()
On Error GoTo Err_Fermer_ce_formulaire_sans_lancer_la_macro_Click
 
 
    DoCmd.Close
 
Exit_Fermer_ce_formulaire_sans_lancer_la:
    Exit Sub
 
Err_Fermer_ce_formulaire_sans_lancer_la_macro_Click:
    MsgBox Err.Description
    Resume Exit_Fermer_ce_formulaire_sans_lancer_la
 
End Sub
Private Sub Lancement_macro_mise_à_jour_site_Web_pdt_Click()
On Error GoTo Err_Lancement_macro_mise_à_jour_site_Web_pdt_Click
 
    Dim stDocName As String
 
    stDocName = "Macro exe la MàJ des fichiers HTM site pdt"
    DoCmd.RunMacro stDocName
 
Exit_Lancement_macro_mise_à_jour_site_We:
    Exit Sub
 
Err_Lancement_macro_mise_à_jour_site_Web_pdt_Click:
    MsgBox Err.Description
    Resume Exit_Lancement_macro_mise_à_jour_site_We
 
End Sub

Merci

Utilise l'evenement Timer de ton formulaire

Code:

1
2
3
4
5
6
7
Private Sub Form_Load()
    Me.TimerInterval=1800000 '-- 1800000 millisecondes = 1/2 heure
End Sub
 
Private Sub Form_Timer()
    ' --> ici le code à executer
End Sub

1 pièce(s) jointe(s)

Ok merci bcp......... super, je teste

Je mets le timer avant mon code à éxécuter ?

Mais comment le timer va marcher dans Acess ? il faut que je laisse Acess tj ouvert ?
Désolée....... connait pas grand chose ne VB :oops:

le code sera donc :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Option Compare Database Private Sub Form_Load() Me.TimerInterval=1800000 End Sub Private Sub Form_Timer() Private Sub Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click() On Error GoTo Err_Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click Dim stDocName As String stDocName = "Macro exe la MàJ des fichiers HTM du site pour les adres" DoCmd.RunMacro stDocName Exit_Formulaire_exe_Macro_exe_la_MàJ_des: Exit Sub
Hello, pense aux balises poour encadrer ton code : Sélectionner le code + Clic sur Pièce jointe 1651 et ajoute le TAG [VBA-A] Modifié par ouskel'n'or

07/06/2006, 11h10
ThierryAIM
Citation:

Envoyé par freya91

Mais comment le timer va marcher dans Acess ? il faut que je laisse Acess tj ouvert ?
Désolée....... connait pas grand chose ne VB :oops:

Oui, ca je vois ... :cry:

Et si j'étais toi, je choisirais des noms de Sub ou de controles encore plus longs, ça n'en serait que plus pratique !! :roll:
Code:

1 2 3 4 5 6 7 Private Sub Form_Load() Me.TimerInterval=1800000 End Sub Private Sub Form_Timer() Call Lancement_macro_mise_à_jour_site_Web_pdt_Click End Sub
et pour executer du code VBA, il vaut mieux que Access reste ouvert et ton formulaire aussi
Sinon, ce n'est plus le meme problème, mais là je renonce d'avance ;)
07/06/2006, 11h20
freya91

Super merci

je vais tester tout cela et laisser Access ouvert.

Tks :D :D :D :D :D :D

Heu pour les noms, ce n'est pas ma faute :oops: c'est access qui créée des noms de sub et de controle aussi long.

Si si, c'est peut être parceque ma base est en .ADP et non en .mdb

bon en tout cas merci bcp et j'essaie d'alléger le tout