Synchronisation dans le code Visual Basic

Version imprimable

Voici mon code
Code:

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?

Bonjour à toi aussi ;)

Bienvenu sur le forum,

Et si tu mets un DoEvents avant le msgbox ?

Code:

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+

05/01/2007, 17h37
David à Sherbrooke

Youpi: fini le problème

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:

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:

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