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

**Delbeke** · 06/08/2007, 14h32

Il est egalement possible que l'erreur se declenche sur

Code :

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

If tm.GetState = 2 Then

Essaye de mettre juste avant un

Code :

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

MsgBox "Test de Tm " & tm.GetState

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

**OhMonBato** · 06/08/2007, 14h36

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 ?

**ced600** · 06/08/2007, 14h41

Tiens je te prête la mienne :
tm signifie : Tu te démerdes, Moi je compte sur tes dons de divination.

**nono27200** · 06/08/2007, 14h46

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

ced600 :

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

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

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 :

Il est egalement possible que l'erreur se declenche sur

Code :

Code :

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

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

Code :

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

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.....

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

Encore Merci à tous pour votre aide !!!!!!!!-----------

**OhMonBato** · 06/08/2007, 14h56

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 :

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

1
2
3
4
5
 Dim toto As Control
 
For Each toto In MainWindows
  MsgBox toto.Name
Next

**ced600** · 06/08/2007, 14h56

Peux tu poster tout ton code ?

**OhMonBato** · 06/08/2007, 14h58

A priori non :

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...

**ced600** · 06/08/2007, 15h03

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

**Vld44** · 06/08/2007, 15h03

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 :

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

1
2
3
4
dim objMain as mainwindow
 
set objMain = new mainwindow
objMain.show [vbmodal] ' <= à toi de voir

**nono27200** · 06/08/2007, 15h07

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...

!!++!!

**nono27200** · 06/08/2007, 15h22

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 :

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

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

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

Mes labels sont directement dans mon Form MainWindow

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....

**ced600** · 06/08/2007, 15h25

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

**nono27200** · 06/08/2007, 15h26

Code LoadBtn_Click (le bouton 1 qui fontionne)

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
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 :

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
 
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 :

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
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 !!!

**nono27200** · 06/08/2007, 15h28

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

**ced600** · 06/08/2007, 15h33

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 :

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

1
2
3
4
5
6
7
t1 = Now
    r = tm.PriceBlock
    t2 = Now
    lt = DateDiff("s", t1, t2)
 
    RefreshInterface
    RefreshLogList

**nono27200** · 06/08/2007, 15h37

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.......

)

**ced600** · 06/08/2007, 15h45

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

Avais tu vraiment le choix ?

**ced600** · 06/08/2007, 15h46

Que fait "RefreshDealList" ?

**Vld44** · 06/08/2007, 15h47

et en appelant directement bouton2, ça plante aussi ?

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

**nono27200** · 06/08/2007, 15h51

RefreshDealLIst :

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
 
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

++

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

VB 6 et antérieur

Discussions similaires

Partager

Partager