Discussion :

[AsmCode]

Bonjour,

j'ai un petit problème, dans mon form_load() j'apelle une sub qui exécute une requête sql qui va afficher des datas sur mon form et selon les datas j'affiche une msgbox qui dit de faire attention aux notes si il y a un point d'exclamation dans la string. Ça fonctionne très bien, mais le msgbox apparait avant que la form soit affiché, je voudrais que le msgbox s'affiche une fois que tout est dessiné, après que le load est terminé en fait. J'ai essayé dans activate mais ce n'est pas ça.

[GillesDeVuif]

Bonjour.
Peut-être peux-tu t'inspirer de ce tuto : http://loufab.developpez.com/splashscreen/

en utilisant form_timer, et les propriétés Intervalle minuterie et sur minuterie de ton formulaire (tel que décrit au chapitre 3.2).

Cordialement.

[nico84]

Bonjour,

Autre piste : si le message est précédé de

Code :

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

me.requery

ça le fait aussi ?

[AsmCode]

Bonjour,

Autre piste : si le message est précédé de

Code :

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

me.requery

ça le fait aussi ?

Oui, ça le fait tout de même.

Pour le timer, je ne vois pas comment ça peut corriger le problème, puisque je ne sais pas combien de secondes le formulaire prend pour se charger ..

[GillesDeVuif]

Bonjour.

Pour le timer, je ne vois pas comment ça peut corriger le problème, puisque je ne sais pas combien de secondes le formulaire prend pour se charger ..

OK, mais as-tu testé un évènement form_timer en lançant ta sub après la mise à 0 du timer ?

Cordialement.

[nico84]

Il faudrait mettre avant le message une boucle du type

Code :

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

1
2
3
4
Do While
  ...load non terminé...
  DoEvents
Loop

Par exemple lire d'abord le nombre d'enregistrements attendu et boucler ensuite jusqu'à ce que le nombre d'enregistrements chargés soit égal à ce nombre :

Code :

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

Do While Me.RecordsetClone.RecordCount<rst!recordcount: doevents: loop

[LedZeppII]

Bonjour,

Force l'affichage avec la propriété Visible du formulaire.

Code :

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

1
2
3
4
Private Sub Form_Load()
If Not Me.Visible Then Me.Visible = True
MsgBox "chargé"
End Sub

A+

[AsmCode]

Super!! j'ai réussi avec votre aide, il suffit de vérifier si il est visible dans le timer du formulaire.

Mais j'ai un autre petit problème, je fais une vérification dans un textbox OnExit() mais il semble appeler cette event quand je charge le formulaire ?