erreur d'execution 8577 vb6.0

**soussie** · 12/04/2015, 16h22

Bonjour,
quand j'exécute mon application sous vb 6.0 j'obtient le message d'erreur suivant : erreur d'exécution 8577 : le texte de la commande de mise en forme des données comporte une erreur de syntaxe à la position 220 de la commande, ou a proximité de celle ci.le texte de commande à proximité de l'erreur est Courriers RELATE) AS COURRIERS
voici le code :

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
Private Sub Cmd_imprime_Click()
 
If Lbl_Num_Borderau.Caption = "" Or Combo_dest.Text = "" Or (DataGrid_apercu.ApproxCount = 0 And Combo_type_brd.ListIndex <> 3) Then
        msg = "Aucun bordereau séléctionné !"
        Style = vbCritical + vbOKOnly
        Title = "Impression impossible"
        Response = MsgBox(msg, Style, Title, "Demo.hlp", 1000)
        Exit Sub
End If
 
Select Case Combo_type_brd.ListIndex
Case 0:
    If PremiereImpression = True Then
 
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
 
        DataEnvironment1.rsborderau.Open
        DataReport1.Refresh
        DataEnvironment1.rsborderau.Close
 
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
          DataEnvironment1.rsborderau.Open 'ajouté
        DataReport1.Refresh
        DataEnvironment1.rsborderau.Close
 
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
         DataEnvironment1.rsborderau.Open 'ajouté
        DataReport1.Refresh
    Else
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
    End If
 
    DataReport1.Title = Lbl_ref_apercu.Caption & "     " & Lbl_date_dp_apercu.Caption & "     " & Lbl_localite_apercu.Caption & "-" & Lbl_dest_apercu.Caption & "     " & Lbl_num_brd_apercu.Caption
 
    DataReport1.Refresh
 
    On Error GoTo passerimpression1
 
    DataReport1.PrintReport
    Form1.ZOrder 0
 
    requette = "SELECT * From [BORDERAUX DEPART] WHERE cod_brd_dp = '" & Lbl_Num_Borderau.Caption & "'"
    Set rsBrdImp = base.OpenRecordset(requette)
    rsBrdImp.Edit
    rsBrdImp!imp = True
    rsBrdImp.Update
    rsBrdImp.Close
passerimpression1:
    DataEnvironment1.rsborderau.Close
    PremiereImpression = False
    GoTo fnslct
Case 1:
    If PremiereImpression = True Then
 
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataEnvironment1.rsborderau.Open
        DataReport2.Refresh
        DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
 
 
       ' DataReport2.Refresh
       ' DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
             DataEnvironment1.rsborderau.Open
        DataReport2.Refresh
    Else
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
    End If
 
    DataReport2.Title = Lbl_ref_apercu.Caption & "     " & Lbl_date_dp_apercu.Caption & "     " & Lbl_localite_apercu.Caption & "-" & Lbl_dest_apercu.Caption & "     " & Lbl_num_brd_apercu.Caption
    'DataEnvironment1.rsborderau.Open 'ajouté
    DataReport2.Refresh
    On Error GoTo passerimpression2
    DataReport2.PrintReport
    Form1.ZOrder 0
 
    requette = "SELECT * From [BORDERAUX DEPART] WHERE cod_brd_dp = '" & Lbl_Num_Borderau.Caption & "'"
    Set rsBrdImp = base.OpenRecordset(requette)
    rsBrdImp.Edit
    rsBrdImp!imp = True
    rsBrdImp.Update
    rsBrdImp.Close
passerimpression2:
 
    DataEnvironment1.rsborderau.Close
    PremiereImpression = False
    GoTo fnslct
Case 2:
    If PremiereImpression = True Then
 
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataEnvironment1.rsborderau.Open
        DataReport3.Refresh
        DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataReport3.Refresh
        DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataReport3.Refresh
    Else
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
    End If
    DataReport3.Title = Lbl_ref_apercu.Caption & "     " & Lbl_date_dp_apercu.Caption & "     " & Lbl_localite_apercu.Caption & "-" & Lbl_dest_apercu.Caption & "     " & Lbl_num_brd_apercu.Caption
    DataReport3.Refresh
    On Error GoTo passerimpression3
    DataReport3.PrintReport
    Form1.ZOrder 0
 
    requette = "SELECT * From [BORDERAUX DEPART] WHERE cod_brd_dp = '" & Lbl_Num_Borderau.Caption & "'"
    Set rsBrdImp = base.OpenRecordset(requette)
    rsBrdImp.Edit
    rsBrdImp!imp = True
    rsBrdImp.Update
    rsBrdImp.Close
passerimpression3:
 
    DataEnvironment1.rsborderau.Close
    PremiereImpression = False
    GoTo fnslct
 
Case 3:
    If PremiereImpression = True Then
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataEnvironment1.rsborderau.Open
        DataReport4.Refresh
        DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataReport4.Refresh
        DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataReport4.Refresh
    Else
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
    End If
    DataReport4.Refresh
    On Error GoTo passerimpression4
    DataReport4.PrintReport
    Unload DataReport4
 
    requette = "SELECT * From [BORDERAUX DEPART] WHERE cod_brd_dp = '" & Lbl_Num_Borderau.Caption & "'"
    Set rsBrdImp = base.OpenRecordset(requette)
    rsBrdImp.Edit
    rsBrdImp!imp = True
    rsBrdImp.Update
    rsBrdImp.Close
passerimpression4:
 
    DataEnvironment1.rsborderau.Close
    PremiereImpression = False
    GoTo fnslct
Case 4:
    If PremiereImpression = True Then
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataEnvironment1.rsborderau.Open
        DataReport5.Refresh
        DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataReport5.Refresh
        DataEnvironment1.rsborderau.Close
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
        DataReport5.Refresh
    Else
        DataEnvironment1.rsborderau.Source = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'}  AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre}  AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
    End If
 
    DataReport5.Title = Lbl_ref_apercu.Caption & "     " & Lbl_date_dp_apercu.Caption & "     " & Lbl_localite_apercu.Caption & "-" & Lbl_dest_apercu.Caption & "     " & Lbl_num_brd_apercu.Caption
    DataReport5.Refresh
    On Error GoTo passerimpression5
    DataReport5.PrintReport
    Form1.ZOrder 0
 
    requette = "SELECT * From [BORDERAUX DEPART] WHERE cod_brd_dp = '" & Lbl_Num_Borderau.Caption & "'"
    Set rsBrdImp = base.OpenRecordset(requette)
    rsBrdImp.Edit
    rsBrdImp!imp = True
    rsBrdImp.Update
    rsBrdImp.Close
passerimpression5:
 
    DataEnvironment1.rsborderau.Close
    PremiereImpression = False
    GoTo fnslct
fnslct:
End Select
End Sub

**soussie** · 14/04/2015, 10h10

bonjour, j'attend toujours une aide.j'obtient le message d'erreur quand je lance l'impression des états

**ProgElecT** · 14/04/2015, 12h59

Salut

Envoyé par soussie

le texte de la commande de mise en forme des données comporte une erreur de syntaxe à la position 220 de la commande, ou a proximité de celle ci.
le texte de commande à proximité de l'erreur est Courriers RELATE) AS COURRIERS

Courriers RELATE) AS COURRIERS n'existe pas comme tel dans le code soumis.
AS Courriers RELATE existe 20 fois
SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = cod_site AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'} AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp = Sites.cod_site ORDER BY Courriers.ordre} AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers Existe 20 fois ?????
Pourquoi ne pas mettre cela dans une variable.

Code :

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

1
2
3
4
5
6
7
Dim MeReq As String
MeReq = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = '" & cod_site & "' AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'} " & _
        " AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp ='" & Sites.cod_site & "' ORDER BY Courriers.ordre} " & _
        " AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
 
'----- et remplacer pour les 20 lignes ------
        DataEnvironment1.rsborderau.Source = MeReq

J'ai fait des modifications (judicieuses ou pas

) car il me semble qu'il y a des erreurs de fourniture de valeur de variable ou passage du nom de la variable.
Pour le debug, il te suffirait de ne modifier que la déclaration valeur de MeReq

Là j'ai un gros doute cod_brd_dp' TO 'cod_brd_dp passage de valeur pour cod_brd_dp ou passage nom de variable, de plus xyz To xyz ne devrait pas mener très loin.

**soussie** · 15/04/2015, 10h56

bonjour, merci infiniment pour votre aide.
voila d'après votre code mon nouveau code.
en cliquant sur le bouton imprimer(cmd_imprime) j'ai eu une erreur d'execution 424: un objet et requis
merci pour une explicatio.

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
Private Sub Cmd_imprime_Click()
 
If Lbl_Num_Borderau.Caption = "" Or Combo_dest.Text = "" Or (DataGrid_apercu.ApproxCount = 0 And Combo_type_brd.ListIndex <> 3) Then
        msg = "Aucun bordereau séléctionné !"
        Style = vbCritical + vbOKOnly
        Title = "Impression impossible"
        Response = MsgBox(msg, Style, Title, "Demo.hlp", 1000)
        Exit Sub
End If
 
Dim MeReq As String
MeReq = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = '" & cod_site & "' AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'} " & _
        " AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp ='" & Sites.cod_site & "' ORDER BY Courriers.ordre} " & _
        " AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"
 
'----- et remplacer pour les 20 lignes ------
        DataEnvironment1.rsborderau.Source = MeReq
 
End Sub

**ProgElecT** · 15/04/2015, 12h34

Salut

j'ai eu une erreur d'execution 424: un objet et requis

A quelle ligne ? , 17 pour le DataEnvironment1 ?

**soussie** · 15/04/2015, 13h00

re,
a la ligne :

Code :

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

1
2
3
MeReq = "SHAPE {SELECT * from [BORDERAUX DEPART], Sites where cod_dest = '" & cod_site & "' AND cod_brd_dp= '" & Lbl_Num_Borderau.Caption & "'} " & _
        " AS borderau APPEND ({Select * from Courriers, Sites where Courriers.cod_exp ='" & Sites.cod_site & "' ORDER BY Courriers.ordre} " & _
        " AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"

toute cette partie est colorée en jaune

**soussie** · 15/04/2015, 13h03

encore un détail, la fleche de l'erreur est vers la ligne : " AS Courriers RELATE 'cod_brd_dp' TO 'cod_brd_dp') AS Courriers"

**ProgElecT** · 17/04/2015, 11h40

Salut

N'ayant jamais utilisé se type de requête SQL, regarde du coté de IX. Mise en forme des données - Comprendre les Recordset ... peut être que tu y comprendras/trouveras une réponse.

erreur d'execution 8577 vb6.0

VB 6 et antérieur

Discussions similaires

Partager

Partager