Discussion :

[jacma]

Bonjour
Le code suivant plante avec l'erreur d'exécution28 (espace de pile insuffisant), ce malgré de DoEvents

Code :

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

1
2
3
mshGridLignes.TextMatrix(x, y) = CSng(txtSaisie)
DoEvents
txtSaisie.Visible = False

En pas à pas, ou avec un arrêt sur la dernière ligne, pas de problème. C'est d'ailleurs en le constatant que j'avais mis le DoEvents, sans résultat.
Qu'est-ce qui se passe et comment palier le problème :
Merci.

[HPJ]

Ce code doit être dans une procédure de gestion d'événement et l'une de ses instructions doit provoquer un appel récursif...
Dans quelle méthode se trouve ce bout de code :

[jacma]

Effectivement. Il est dans la procédure évènementielle "txtSaisie_Validate(Cancel As Boolean)".

[HPJ]

Le fait de mettre txtSaisie.Visible à False doit provoquer l'appel de txtSaisie_Validate et le code boucle sans fin...

[khany]

c'est le gros problème avec VB

Par ex, tu veux modifier une datagrid liée à une BD, tu affiches des combo ou des choix pour modification suivant l'endroit où tu clic dans la datagrid donc sur l'événement RowColChange !

si tu fais un Requery pour visualiser tes modif importantes, il repasse 2 fois par le RowColChange et tu te demandes pq les contrôle ou foorm de modif se réaffichent

donc, il faut un booléen (ou autre) pour ne pas passer par les affichage dans ton événement !

idem si tu affectes un col et/ou row différent pour pointer à une cellule précise ! il repasse par RowColChange

c'est en faisant du pas à pas que j'ai remarqué cela et le pq du bouclage de mon appli

[jacma]

C'est bien celà. Il suffit d'utiliser la procédure évènementielle LostFocus pour régler le problème.
Merci.

[HPJ]

C'est bien celà. Il suffit d'utiliser la procédure évènementielle LostFocus pour régler le problème.
Merci.

...ou bien déclarer un booléen enCours dans la form et...

Code :

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

1
2
3
4
5
6
7
8
9
Sub txtSaisie_Validate(Cancel As Boolean)
   On Error Goto Erreur
   If not enCours Then
      enCours = True
      ................................
Erreur:
      enCours = False
   End if
End Sub

[khany]

C'est pile ce que j'ai fait hpj car je passe par cet événement trop souvent

[HPJ]

Oui, c'est ce que j'avais compris dans ton message précédent.