Discussion :

[Commandeur]

Bonjour,

Je voudrais savoir si un peut mettre une petit pausse dans un code vba?
car quand execute mon code ci dessous, les formulaires ont pas le temp de bien disparetre ou de bien afficher pendant l'exucution de la macro.

avez-vous une solution? Mon code est-il correcte?

Code :

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

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
Option Compare Database
 
Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
 
 
'Fermeture formulaire
 
stDocName = "Message d'ouverture mjours"
    DoCmd.Close
 
'Ouverture formulaire msg Mise à jour en cours 
stDocName = "Barre deffilement"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
'Execution de la macro
 
stDocName = "Mise a jour produit"
    DoCmd.RunMacro stDocName
 
'Fermeture formulaire msg Mise à jour en cours
 
stDocName = "Barre deffilement"
    DoCmd.Close
 
'Ouverture du menu general
 
stDocName = "Menu"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
 
 
Exit_Commande0_Click:
    Exit Sub
 
Err_Commande0_Click:
    MsgBox Err.Description
    Resume Exit_Commande0_Click
 
End Sub

Merci de votre reponse

[loufab]

place des doevents après les commandes principales.

Code :

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

1
2
DoCmd.OpenForm stDocName, , , stLinkCriteria
doevents

Doevents permet au système de terminer les activités précédentes avant de continuer.

Cordialement,

[Commandeur]

Merci de ta reponse, sa marche nikel

juste votre avis, c'est mieux une macro ou un code vba?

[loufab]

Tu es très vite limité avec les macros.