Problème Exécution en Release mais pas en Debug

Version imprimable

Voir 40 message(s) de cette discussion en une page

06/08/2007, 14h32
Delbeke

Il est egalement possible que l'erreur se declenche sur

Code:

If tm.GetState = 2 Then

Essaye de mettre juste avant un

Code:

MsgBox "Test de Tm " & tm.GetState

Il serait d'ailleurs interressant de savoir ce qu'est cet objet Tm
06/08/2007, 14h36
OhMonBato

Ha zut, je comptais sur toi pour nous le dire, je me disais "Espérons que Delbeke se pointe avec sa boule de cristal". Tu l'as cassée ? :aie:
06/08/2007, 14h41
ced600

Tiens je te prête la mienne :
tm signifie : Tu te démerdes, Moi je compte sur tes dons de divination.
:mouarf:
06/08/2007, 14h46
nono27200

Merci pour toutes vos réponse et pour votre aide.
Je vais donc essayer de répondre le plus précisemment possible à tout le monde :P

ced600 :

Citation:

Une possibilité est que tu détruis ton lasttimelabel après la première exécution et donc il n'est plus accessible à la deuxième exécution.
Vérifie si tu ne le detruis pas.

Non aucune destruction n'est faite. Je peux par exemple cliquer plusieurs fois sur le bouton1 qui fonctionne bien (appelé dans le code LoadButon). Ce clic permet de charger un fichier. Je peux par exemple charger un fichier, puis recliquer dessus pour charger un autre fichier à la place.....

OhMonBato

Citation:

Soit ce n'est pas une copie brute de ton code, soit y'a erreur parce que "End if" APRES "End Sub" ça le fait pas....

Désolé, j'ai été un peu vite. C'est en fait
Exit Sub
End If

Citation:

Mais on ne sait pas d'où vient cette procédure... Est elle dans le code de la feuille où sont placés tes contrôles ? Dans un module à part ? Peux tu essayer en précisant le nom de ta feuille avant le nom du contrôle voir si tu as toujours l'erreur ?

Tout est dans la même Form (Appelée MainWindow). J'ai tout de même essayé de forcer le nom en faisant un MainWindows.LastTimeLabel.Caption, mais ça ne change rien

Delbeke :

Citation:

Il est egalement possible que l'erreur se declenche sur

Code :

Code:

If tm.GetState = 2 ThenEssaye de mettre juste avant un

Code :

Code:

MsgBox "Test de Tm " & tm.GetState

J'ai mis des MsgBox un peu partout (je n'ai pas posté le code tout polué par les MsgBox), mais je rentre bien dans le If, et c'est vraiment au moment de l'appel au 1er objet de la feuille que je plante.
Exemple ici, je plante sur LastTimeLabel.Caption, mais si je commente cette ligne, je rentre bien dans le if qui suit (If lt2 = -1 Then) et à ce moment là je plante sur le LastTimeValideLabel.Caption, etc, etc.....

Citation:

Il serait d'ailleurs interressant de savoir ce qu'est cet objet Tm

Mon objet Tm est un objet un peu complexe appelé "TransactionManager".
Je peux regarder un peu plus en détail dedans, mais l'objet existe et est bien reconnu (par exemple, il a une propriété Count que j'arrive à afficher dans une MsgBox).
Cet Objet TransactionManager est défini dans une des dll qui sont rattachées à mon Exe.

--------- Je vois pendant que je poste ce message que de nouveaux messages sont postés sur le forum. Je répondrai aux autres questions dans quelques minutes :D Encore Merci à tous pour votre aide !!!!!!!!-----------
06/08/2007, 14h56
OhMonBato
pour vérifier que tes controles sont toujours là avec leur nom d'origine, tu peux ajouter ça en début de ta procédure :
Code:

1 2 3 4 5 Dim toto As Control For Each toto In MainWindows MsgBox toto.Name Next
06/08/2007, 14h56
ced600

Peux tu poster tout ton code ?
06/08/2007, 14h58
OhMonBato

A priori non :

Citation:

Envoyé par nono27200

Le code que j'ai mis est en fait une partie d'une fonction. Pour des raisons de confidentialité du client, je suis désolé, mais je dois en mettre le moins possible...
06/08/2007, 15h03
ced600

Tes labels se trouve où ? Directement sur la form ? dans un panel ou un autre container ?
06/08/2007, 15h03
Vld44
tu charges comment ta mainwindow ? Essaye si ce n'est pas déjà comme ça que tu fais de l'instancier de la sorte dès le départ :
Code:

1 2 3 4 dim objMain as mainwindow set objMain = new mainwindow objMain.show [vbmodal] ' <= à toi de voir
06/08/2007, 15h07
nono27200

J'essaie tout ça et je vous reviens avec les réponses.

Pour ce qui est du code à poster, c'est chaud... :?

Je poste une réponse dans qques minutes dès que j'ai fait les tests que vous me proposez...

!!++!!
06/08/2007, 15h22
nono27200

Bon alors voilà des nouvelles... On avance petit à petit...
Citation:
pour vérifier que tes controles sont toujours là avec leur nom d'origine, tu peux ajouter ça en début de ta procédure :

Code :

Code:

1 2 3 4 5 Dim toto As Control For Each toto In MainWindows MsgBox toto.Name Next
Excellent comme Idée
Résultat :
Passage avec le bouton1 (LoadBtn) -> 33 éléments
Passage avec le bouton2 (PriceBtn) -> Plantage Erreur 440

Citation:

Tes labels se trouve où ? Directement sur la form ? dans un panel ou un autre container ?

Mes labels sont directement dans mon Form MainWindow

Citation:

tu charges comment ta mainwindow ? Essaye si ce n'est pas déjà comme ça que tu fais de l'instancier de la sorte dès le départ :

Ma MainWindow est lancée par défaut et c'est toujours sur cette form que je clique (au fur et à mesure des clics, certains boutons s'activent ou pas, mais je reste toujours UNIQUEMENT sur la même Form....
06/08/2007, 15h25
ced600

Peux tu mettre le code qui se trouve derriere le bouton 2 ?

Un peu plus de Code (Accepté par la hiérarchie :) )

Code LoadBtn_Click (le bouton 1 qui fontionne)

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Private Sub LoadBtn_Click()
On Error GoTo ErrorHandler:
    InitComboDeal
 
    CommonDlg.DialogTitle = "Charger un lot"
    CommonDlg.DefaultExt = "xml"
    CommonDlg.Filter = "*.xml"
    CommonDlg.FilterIndex = 0
    CommonDlg.ShowOpen
 
    If (True) And (CommonDlg.filename <> "") Then
 
        Dim content As String
 
        'Open CommonDlg.FileName For Binary Access Read As #1
        'Input #1, content
        'Close #1
 
        Dim Node As MSXML2.IXMLDOMNode
        Dim block As MSXML2.IXMLDOMElement
        Dim bs As BlockSerializer
        Dim xmldoc As MSXML2.DOMDocument30
        Dim root As MSXML2.IXMLDOMElement
 
        Set bs = New BlockSerializer
        Set xmldoc = New MSXML2.DOMDocument30
        If Not xmldoc.Load(CommonDlg.filename) Then MsgBox "Error loadXML" 'Error (0)
 
        For Each Node In xmldoc.documentElement.childNodes
            If Node.nodeName = "BLOCK" Then
                Set block = Node
            End If
        Next
 
        bs.ReadBlockTM tm, block
 
    End If
    RefreshInterface
    RefreshDealList
    RefreshLogList
    Exit Sub
 
ErrorHandler:
    MsgBox "Impossible de charger le lot !"
    tm.RollbackBlock
    RefreshInterface
    RefreshDealList
    RefreshLogList
End Sub

Code de PriceBtn_Click (bouton2 qui plante)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub PriceBtn_Click()
    Dim t1 As Date
    Dim t2 As Date
    Dim r As Boolean
 
    t1 = Now
    r = tm.PriceBlock
    t2 = Now
    lt = DateDiff("s", t1, t2)
 
 
    RefreshLogList
    RefreshInterface
 
    If Not r Then
       ErrorDialog.ViewError tm.GetLastErrorObject
    End If
 
End Sub

Code de RefreshInterface, la procédure où ça plante. Elle est appelée par les 2 boutons, et les 2 boutons passent chacun au même endroit, dans le If tm.Getstate = 2

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
 
Private Sub RefreshInterface()
    If tm Is Nothing Then
        LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
        Frame2.Enabled = False
        Frame2.Caption = "Lot en cours"
        'Frame3.Enabled = False
        'LogGrid.Visible = False
        StatusLabel.ForeColor = &H0
        StatusLabel.Caption = "NOT CREATED"
 
        CreateBtn.Enabled = True
        InitBtn.Enabled = False
        BeginBtn.Enabled = False
        PriceBtn.Enabled = False
        RollbackBtn.Enabled = False
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = False
        SaveBtn.Enabled = False
        LoadBtn.Enabled = False
        CopyBtn.Enabled = False
        PasteBtn.Enabled = False
        LoadDealBtn.Enabled = False
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = False
        AddDealBtn.Visible = False
        InstrCombo.Visible = False
        DealList.Visible = False
        ViewerBtn.Visible = False
        Viewer2Btn.Visible = False
 
        Exit Sub
    End If
    If tm.GetState = 0 Then
 
        LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
        Frame2.Enabled = False
        Frame2.Caption = "Lot en cours"
        'Frame3.Enabled = False
        'LogGrid.Visible = False
        StatusLabel.ForeColor = &HFF&
        StatusLabel.Caption = "(0) NOT READY"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = True
        BeginBtn.Enabled = False
        PriceBtn.Enabled = False
        RollbackBtn.Enabled = False
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = False
        LoadBtn.Enabled = False
        CopyBtn.Enabled = False
        PasteBtn.Enabled = False
        LoadDealBtn.Enabled = False
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = False
        AddDealBtn.Visible = False
        InstrCombo.Visible = False
        DealList.Visible = False
        ViewerBtn.Visible = False
        Viewer2Btn.Visible = False
 
        Exit Sub
    End If
    If tm.GetState = 1 Then
 
        LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
        Frame2.Enabled = False
        Frame2.Caption = "Lot en cours"
        'Frame3.Enabled = False
        'LogGrid.Visible = False
        StatusLabel.ForeColor = &H80C0FF
        StatusLabel.Caption = "(1) READY"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = False
        BeginBtn.Enabled = True
        PriceBtn.Enabled = True
        RollbackBtn.Enabled = False
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = False
        LoadBtn.Enabled = True
        CopyBtn.Enabled = False
        PasteBtn.Enabled = True
        LoadDealBtn.Enabled = True
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = False
        AddDealBtn.Visible = False
        InstrCombo.Visible = False
        DealList.Visible = False
        ViewerBtn.Visible = False
        Viewer2Btn.Visible = False
 
        Exit Sub
    End If
    If tm.GetState = 2 Then
 
    '---------------
     Dim toto As Control
 
 
    MsgBox (MainWindow.Count)
 
    For Each toto In MainWindow
        MsgBox toto.Name
    Next
    '---------------
 
 
 
 
        MsgBox ("avant nouveau test")
        MainWindow.LastTimeLabel.Caption = "TEST"
        MsgBox ("après nouveau test - avant ancien test")
       LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        MsgBox ("après ancien test")
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
 
        Frame2.Enabled = True
        Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID
        'Frame3.Enabled = True
        'LogGrid.Visible = True
        StatusLabel.ForeColor = &HC000&
        StatusLabel.Caption = "(2) TRANSACTING"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = False
        BeginBtn.Enabled = False
        PriceBtn.Enabled = True
        RollbackBtn.Enabled = True
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = True
        LoadBtn.Enabled = True
        CopyBtn.Enabled = True
        PasteBtn.Enabled = True
        LoadDealBtn.Enabled = True
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = True
        AddDealBtn.Visible = True
        AddDealBtn.Enabled = True
        InstrCombo.Visible = True
        DealList.Visible = True
        ViewerBtn.Visible = True
        Viewer2Btn.Visible = True
        Exit Sub
    End If
    If tm.GetState = 3 Then
 
    MsgBox ("State 3")
 
        'LastTimeLabel.Caption = CStr(lt) & " s" & ", " & CStr(lt / tm.Deals.Count) & " s/deal"
        'If lt2 = -1 Then
        '    LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        'Else
        '    LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        'End If
 
        Frame2.Enabled = True
        Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID
        'Frame3.Enabled = True
        'LogGrid.Visible = True
        StatusLabel.ForeColor = &HFF00&
        StatusLabel.Caption = "(3) VALIDABLE"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = False
        BeginBtn.Enabled = False
        PriceBtn.Enabled = True
        RollbackBtn.Enabled = True
        CommitBtn.Enabled = True
        CancelPriceBtn.Enabled = True
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = True
        LoadBtn.Enabled = True
        CopyBtn.Enabled = True
        PasteBtn.Enabled = True
        LoadDealBtn.Enabled = True
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = True
        AddDealBtn.Visible = True
        AddDealBtn.Enabled = False
        InstrCombo.Visible = True
        DealList.Visible = True
        ViewerBtn.Visible = True
        Viewer2Btn.Visible = True
 
        Exit Sub
    End If
End Sub

En espérant que ça vous éclaire !!!

06/08/2007, 15h28
nono27200

Je voudrais juste rappeler la chose hallucinante qui se produit, c'est qu'en Debug, ça fonctionne, mais en release ça plante !!!

:arf:
06/08/2007, 15h33
ced600
Chaque chose en son temps.

Pour le code du bouton deux pourrais tu essayer d'inverser l'appel de ces deux fonctions : RefreshLogList, RefreshInterface.
Et donc de faire :
Code:

1 2 3 4 5 6 7 t1 = Now r = tm.PriceBlock t2 = Now lt = DateDiff("s", t1, t2) RefreshInterface RefreshLogList
06/08/2007, 15h37
nono27200

Idem.....

En regardant ce qu'il y a dans RefreshLogList, en fait ce n'est que du code commenté... on n'y ferait pas appel ce serait pareil... (je ne suis pas à l'origine du code... je l'ai récupéré et je suis chargé de le migrer... :? ------ je ne sais pas si j'ai bien fait d'accepter cette mission....... :D )
06/08/2007, 15h45
ced600

Citation:

je ne sais pas si j'ai bien fait d'accepter cette mission

Avais tu vraiment le choix ?
06/08/2007, 15h46
ced600

Que fait "RefreshDealList" ?
06/08/2007, 15h47
Vld44

et en appelant directement bouton2, ça plante aussi ?

question con, t'es sûr de ce que renvoie tm.PriceBlock ? Booléen ?

RefreshDealLIst :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub RefreshDealList() DealList.Clear Dim DList As Collection Dim CurrDeal As GenericDeal Set DList = tm.Deals If DList Is Nothing Then Exit Sub For Each CurrDeal In DList DealList.AddItem CurrDeal.TKDealID & " - " & CurrDeal.InstrumentName Next End Sub
Je regarde plus précisemment et je te donne plus d'infos sur son utilité !!

Je vais essayer de le virer de la procédure de bouton1 et voir si ça plante au niveau du bouton 1

++

Voir 40 message(s) de cette discussion en une page