Discussion :

[adelsunwind]

Bonsoir,
J ai le code suivant qui execute la fermeture du form en cours et l ouverture d un autre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set req = db.CreateQueryDef("selection5", "select * from [Annuelle_GP] where [Annuelle_GP].[nom de la station]= '" & indic & "' and Cstr([Annuelle_GP].[Date annuelle])= '" & an & "'")
 
 
             DoCmd.OpenForm "Annuelle_gp", acNormal, "selection5", , acFormEdit, acWindowNormal
             Forms![Annuelle_gp]![nom de la station] = indic
             Forms![Annuelle_gp]![Date annuelle] = an
             Forms![Annuelle_gp]![encours].Visible = True
             Forms![Annuelle_gp]![cours] = True
             Forms![Annuelle_gp]![Étiquette48].Visible = False
 
             DoCmd.Maximize
             DoCmd.Close acForm, "calibration", acSaveYes

Seulement le temps que le traitement se fasse l utilisateur voit apparaitre la fenetre Access avec toutes les tables ce qui n est pas trés ergonomique dixit les utilisateurs. Quelqu'un sait il pourquoi.
Parfois j ai même un genre d'écran noir qui apparait quand un form se ferme et un autre s ouvre.
Merci pour vos conseils.

[Mr T 94]

Salut,
Essayes la fonction "EchoOff" pour figer l'écran pendant ton traitement (n'oublie pas "EchoOn" à la fin pour rétablir l'affichage).
A+

[Gabout]

Bonjour,

Plus précisément

Code :

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

DoCmd.Echo False

puis à la fin

Code :

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

DoCmd.Echo True

A+

[Mr T 94]

Merci pour la rectification Gabout, j'ai toujours tendance à utiliser le langage Macro.