Dépassement de capacité

**ThierryAIM** · 05/10/2006, 15h10

On va jouer aux devinettes encore longtemps ??

Envoyé par _ChToM_

Et j'ai encore plus marrant :

Code :

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

1
2
3
     Do While idx < size_tmp And return_value = False
        idx = idx + 1
    Loop

Quand je fais ceci, ca me pete une erreur "Expression trop complexe" sur cette ligne la :

Code :

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

    ProgressBar1.value = val

qui n'ont déjà pas de rapport, vu ce que tu nous mets comme code puis tu nous sors :

Code :

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

1
2
3
Public Sub MajProgressBar(ByVal new_val As Integer)
    ProgressBar1.value = new_val
End Sub

on va pas t'arracher les lignes de code une par une !!!

**_ChToM_** · 05/10/2006, 15h32

Vais pas te mettre toutes mes lignes de code dans le forum.

Le problème est "simple". Je fais ma boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Function search_stat(ByVal idx_dest As Integer, ByVal COD_STAT As Integer) As Boolean
'On Error GoTo err_search_stat
    'Déclaration des variables
    Dim return_value As Boolean
    Dim idx As Integer
    Dim size_tmp As Integer
 
    return_value = False
    idx = 1
    size_tmp = tab_destinataire(idx_dest).size_tab_stat_get
 
    Do While idx < size_tmp And return_value = False
        idx = idx + 1
    Loop
    search_stat = return_value
End Function

Il me fait 851 tour de boucles pour parcourir mes enregistrements (avant c'était 618, mais la c'est 851), puis je sais pas pourquoi à ce tour là, il continue le programme en sortant bien de ma fonction ci-dessus, continue le traitement, et au moment où je veux mettre à jour ma barre de progression, il me péte une erreur "Expression trop complexe".

Si je l'enléve (la MAJ), ca passe nickel.

Je sais pas où se situe le probleme, puisque j'appelle la fonction suivante :

Code :

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

1
2
3
Public Sub MajProgressBar(ByVal new_val As Integer)
    ProgressBar1.value = new_val
End Sub

comme ca :

Code :

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

EcrMain.MajProgressBar i

avec i = 851

Pourquoi les 850 première fois ca a marché, et pas à la 851eme je sais pas.

Attends, ca c'est dans le cas ou je ne fais qu'un simple tour de boucle dans ma fonction search_stat

Now, si j'essaie de faire comme au début, c'est à dire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Function search_stat(ByVal idx_dest As Integer, ByVal COD_STAT As Integer) As Boolean
    Dim return_value As Boolean
    Dim idx As Integer
    Dim size_tmp As Integer
    Dim code_tmp As Integer
    Dim cod_err_tmp As Integer
    Dim cod_fct_tmp As Integer
    Dim cod_err_tmp2 As Integer
    Dim cod_fct_tmp2 As Integer
    
    return_value = False
    idx = 1
    size_tmp = tab_destinataire(idx_dest).size_tab_stat_get
   
    Do While idx < size_tmp And return_value = False
        code_tmp = tab_destinataire(idx_dest).get_value_tab(idx).code_get
        cod_err_tmp = tab_destinataire(idx_dest).get_value_tab(idx).cod_err_get
        cod_fct_tmp = tab_destinataire(idx_dest).get_value_tab(idx).cod_fct_get
        Debug.Print ModTraitErr.tab_info(2)
        Debug.Print val(ModTraitErr.tab_info(2))
        cod_err_tmp2 = val(ModTraitErr.tab_info(15))
        cod_fct_tmp2 = val(ModTraitErr.tab_info(2))
        If code_tmp = COD_STAT And cod_err_tmp = cod_err_tmp2 And cod_fct_tmp = cod_fct_tmp2 Then
            return_value = True
        Else
            idx = idx + 1
        End If
    Loop
    
    search_stat = return_value
    Exit Function

(en bleu, c'est là ou ca pete)

ce coup ci, il m'affiche une erreur "Dépassement de capacité" (à l'enregistrement 851 encore et toujours), au moment où j'essaie de faire ca :

Code :

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

Debug.Print val(ModTraitErr.tab_info(2))

alors que après contrôle, je suis certain qu'il y a bien soit un 7, soit un 6 dans tab_info(2).

Je ne sais pas ce qu'il me fait, suis totalement pommé dans son comportement.

Si j'essaie de passer en mode Debug en mettant des points d'arrêt à la ligne 851, il ne me pete aucune erreur...

Quelles lignes tu veux en plus???

Code :

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

Debug.print ModTraitErr.tab_info(2)

m'affiche 6

Code :

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

Debug.print val(ModTraitErr.tab_info(2))

devrait m'afficher 6 également. Mais il pete à ce moment là...

Pourquoi au moment de l'affectation ca pete, je sais pas.

**_ChToM_** · 05/10/2006, 16h01

Est-il possible que le programme est besoin de s'interrompre, même quelques instants, pour se "remettre les idées en place".

Je m'explique.

Pourquoi lorsque le programme tourne en continu, il m'affiche une erreur au bout d'un certain moment, alors que si je mets un point d'arrêt régulier dans l'éxécution du programme, celui ci ne me sort aucune erreur?

Qu'est ce qu'il fait au moment ou il se met en pause?

Y'a besoin de flusher quelque chose? Ou de lui dire de réinitialiser sa mémoire?

**Phifi** · 05/10/2006, 16h30

Et ton composant ProgressBar ? Comment est-il initialisé ? C'est bien beau de l'incrémenter mais si tu n'a pas une valeur de début et de fin, comment veux-tu qu'il estime une progression visuelle (ratio entre la valeur atteinte sur l'instant et la valeur max du traitement) ?

ProgressBar.Min et .Max sont implémentés ?

**_ChToM_** · 05/10/2006, 16h44

Ouaip, désolé de pas l'avoir précisé, mais au lancement du programme, j'appelle la procédure suivante :

Code :

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

1
2
3
4
Public Sub ConfigProgressBar(ByVal max As Integer)
    ProgressBar1.Min = 0
    ProgressBar1.max = max
End Sub

de la manière suivante :

Code :

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

EcrMain.ConfigProgressBar rs_tram_err.RecordCount

EcrMain étant ma fenêtre principale, et rs_tram_err étant un recordset comportant tous les enregistrements que je dois traiter.

Mais la ProgressBar marche très bien, mais je sais pas pourquoi il m'affiche une erreur la dessus.

**ThierryAIM** · 05/10/2006, 17h12

j'ai pas tout détaillé mais essaie de coller un DoEvents dans ta boucle pour voir ?

**_ChToM_** · 05/10/2006, 17h33

Le DoEvents n'a pas pour simple but d'intercepter les événements de l'utilisateur? Même si je lance le traitement en fond sans appeler la fenêtre, l'erreur se produit quand même.

Je testerai demain car la je suis plus au taf. Je vous tiendrai au courant.

Merci et bonne soirée.

**Delbeke** · 05/10/2006, 22h30

Je ne sais pas comment ca se passe en ADO , mais en DAO .RecordCount ne renvoie la bonne valeur que si, et seulement si on a fait un movelast avant.

**_ChToM_** · 06/10/2006, 09h11

Pas probleme en ADO pour moi. RecordCount contient bien la valeur attendue (après vérification dans la base MySQL)

**_ChToM_** · 06/10/2006, 09h22

Le DoEvents ne change rien.

D'apres ce que j'ai pu lire sur le DoEvents, il est à mettre dans une boucle qui fait un grand nombre de tour.

Je l'ai mis dans ma grande boucle (celle qui parcourt mes 5000 enregistrements) mais ca ne change rien.

J'ai également essayé de le mettre dans la boucle du search_stat, mais ca ne change rien non plus.

Et aujourd'hui le problème n'est plus au 851... mais au 852...

**_ChToM_** · 06/10/2006, 09h24

Est-il possible que l'endroit où il m'affiche l'erreur de capacité ne soit en fait pas la cause du problème.

Je sais qu'en C sous Emacs, lorsque l'on debuggé un programme, il peut arriver qu'il signale une erreur qui n'en est pas une...?

**_ChToM_** · 06/10/2006, 10h20

Bon j'ai "réussi" à contourner le problème en interceptant l'erreur et l'ignorant, plus de message d'erreur.

En mettant un resume à la fin du traitement de mon erreur, le processus redémarre sans me remettre d'erreur...

Je sais, c'est très moche mais j'ai pas mieux pour l'instant.

J'ai essayé en installant le SP6 de VB mais rien n'a changé.

**SfJ5Rpw8** · 06/10/2006, 10h31

..? "entoure" ton 6 histoire de voir s'il n'y as pas quelque chose que tu ne vois pas..?

Code :

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

1
2
3
4

Debug.Print "<" & ModTraitErr.tab_info(2) & ">"
Debug.Print val(ModTraitErr.tab_info(2))

ce qui ressemble un peu à ton code

Code :

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

1
2
3
4
5
6
7
 
Debug.Print "NOUVEAU!"
    Do While idx < size_tmp And return_value = False
        Debug.Print "$" & val(ModTraitErr.tab_info(2)) & "$"
        idx = idx + 1
    Loop
    Debug.Print "FIN!"

mais évite de "filtrer" le résultat par la fonction Val

**_ChToM_** · 06/10/2006, 11h19

<1>
<1>
<1>
<1>
<1>
<1>
<1>
<1>
<1>
<1>

Je l'avais déjà fait ce test mais rien devant ni derrière...

**SfJ5Rpw8** · 06/10/2006, 11h30

? c'est pas des 6...? et il n'y as qu'une ligne... ? tu n'as pas mis la ligne avec le val qui te provoque l'erreur..?

**_ChToM_** · 06/10/2006, 11h55

Heu ben ca dépend de l'enregistrement que je suis en train de traiter.

Sinon, ca peut être des 6. Tant que c'est un integer, c'est bon.

Ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Function search_stat(ByVal idx_dest As Integer, ByVal COD_STAT As Integer) As Boolean
...
    Debug.Print "Avant"
    Do While idx < size_tmp And return_value = False
        DoEvents
        Debug.Print "  <" & ModTraitErr.tab_info(15) & ">"
        Debug.Print " <<" & val(ModTraitErr.tab_info(15)) & ">>"
        Debug.Print "<<<" & CInt(val(ModTraitErr.tab_info(15))) & ">>>"
        code_tmp = tab_destinataire(idx_dest).get_value_tab(idx).code_get
        cod_err_tmp = tab_destinataire(idx_dest).get_value_tab(idx).cod_err_get
        cod_fct_tmp = tab_destinataire(idx_dest).get_value_tab(idx).cod_fct_get
        cod_err_tmp2 = CInt(val(ModTraitErr.tab_info(15)))
        cod_fct_tmp2 = CInt(val(ModTraitErr.tab_info(2)))
        If code_tmp = COD_STAT And cod_err_tmp = cod_err_tmp2 And cod_fct_tmp = cod_fct_tmp2 Then
            return_value = True
        Else
            idx = idx + 1
        End If
    Loop
    Debug.Print "Apres"
 
...

(De plus s'il détecte une erreur, je lui demande de m'afficher "ERREUR!!!!!!!!!!!!!!!!!!!!!!!!!!")

me donne :
...
Avant
<7>
<<7>>
<<<7>>>
<7>
<<7>>
<<<7>>>
Apres
Avant
<7>
ERREUR!!!!!!!!!!!!!!!!!!!!!!!!!!
Avant
<7>
<<7>>
<<<7>>>
<7>
<<7>>
<<<7>>>
Apres
Avant
<7>
<<7>>
<<<7>>>
<7>
<<7>>
<<<7>>>
Apres

**SfJ5Rpw8** · 06/10/2006, 11h59

ok ok ......
alors peu être du coté de ton tableau de chaine..? déclaration.?...

**_ChToM_** · 06/10/2006, 12h10

Voici la déclaration du tableau tab_info : Public tab_info(17) As String

Je ne le redimensionne jamais pendant le traitement, et il contient que des String

**_ChToM_** · 06/10/2006, 12h15

Je le remplis de la manière suivante (appel de la procédure stock_info) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Public Sub stock_info()
On Error GoTo internal_error
    'Sauvegarde des informations sur l'enregistrement en cours
    tab_info(1) = CStr(rs_tram_err("LIB_SERIE_CARTE"))
    tab_info(2) = CStr(rs_tram_err("COD_FCT"))
    tab_info(3) = CStr(rs_tram_err("COD_GRP"))
    tab_info(4) = CStr(rs_tram_err("NO_ZONE"))
    tab_info(5) = CStr(rs_tram_err("NO_LECTEUR"))
    tab_info(6) = CStr(rs_tram_err("DAT_OPER"))
    tab_info(7) = CStr(rs_tram_err("HEU_OPER"))
    tab_info(8) = CStr(rs_tram_err("NO_CARTE"))
    tab_info(9) = CStr(rs_tram_err("NO_CHRONO"))
    tab_info(10) = CStr(rs_tram_err("COD_STATUT"))
    tab_info(11) = CStr(rs_tram_err("COD_OPER"))
    tab_info(12) = CStr(rs_tram_err("CODE_TYP_OPER"))
    tab_info(13) = CStr(rs_tram_err("VAL_NBU_OPER"))
    tab_info(14) = CStr(rs_tram_err("VAL_NBU_PREC"))
    tab_info(15) = CStr(rs_tram_err("COD_ERREUR"))
    tab_info(16) = CStr(rs_tram_err("BL_INTEGR"))
    tab_info(17) = CStr(rs_tram_err("LIB_SIGNATURE"))
    Exit Sub
 
internal_error:
    ModErreur.internal_error "stock_info"
End Sub

Dépassement de capacité

VB 6 et antérieur

Discussions similaires

Partager

Partager