Discussion :

[David à Sherbrooke]

Voici mon code

Code :

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

1
2
3
4
5
If [Délai] = "Délai 1er ECG - appel CHUS" Then
    DoCmd.GoToControl "Délai 1er ECG - appel CHUS"
    DoCmd.ApplyFilter , "[Délai 1er ECG - appel CHUS] <> Null"
    DoCmd.RunCommand acCmdSortAscending
    MsgBox [Texte26]

[Texte26] est calculé et mise à jour après "ApplyFilter" et "RunCommand acCmdSortAscending"

Par contre "MsgBox [Texte26]" est lancé avant que les 2 commandes précédentes aient terminé. Il ne m'affiche donc rien

Avez vous une solution pour moi?

[Muhad'hib]

Bonjour à toi aussi

Bienvenu sur le forum,

Et si tu mets un DoEvents avant le msgbox ?

Code :

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

1
2
3
4
5
6
7
 
If [Délai] = "Délai 1er ECG - appel CHUS" Then
    DoCmd.GoToControl "Délai 1er ECG - appel CHUS"
    DoCmd.ApplyFilter , "[Délai 1er ECG - appel CHUS] <> Null"
    DoCmd.RunCommand acCmdSortAscending
    DoEvents
    MsgBox [Texte26]

A+

[David à Sherbrooke]

Merci Muhad'hib mais ca ne fonctionne pas dans ce cas.

Par contre j'ai trouvé le problème:
[Texte26] était un champ calculé dans mon formulaire (= compte()) et les champs calculés prennent plus de temps à se mettre à jour. Il ne sont dont pas utilisable tout de suite.
J'ai trouvé comme solution hier soir de trouver différemment cette valeur:

Code :

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

N = DCount(Controle, "Délais de transfert", condition)

J'ai donc fini par finaliser mon formulaire (calcul de moyennes et de médianes). Et ai entrepris de faire un sauvegarde sur une clé USB où là Miracle, je retrouve ce quasi même code que j'avais perdu il y a quelques semaines et que je m'arrachais les cheveux à désespérer de retrouver. Et dedans, la vrai solution (que j'étais persuadé d'avoir trouvé il y a quelques semaines):

Il suffit de mettre la commande:

Code :

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

Me.Recalc

Pour que toutes les valeurs d'un formulaire se mettent à jour.

J'espère que cela vous sauvera du temps

Sur ce, bonne année