Discussion :

[bambino13]

Salut,

j'ai un problème avec une condition if then else if then else end if

J'ai une erreur quand j'exécute mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim coutU, ConsoM, DelaiA  'variable qui stocke le coût selon les différentes cas
 
SQL="Select b.[description], b.[Coût STd], b.[Coût PMP], b.[Coût PMP déporté],a.[Groupe_art],a.[Unite],b.[Kv modifiée],b.[Kv],b.[Delai LREP (j)],b.[Delai d'appro (j)] " & _
" from cli_maj_extractions.T_EXTR_BASAMONT b, cli_maj_extractions.T_CALCUL_ARTICLE_AMONT a " & _
" where A.ARTICLE = b.code_article and  b.code_article =  " & request.form("Code_Article") & ""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL, conn_SQL , 3, 3
'tant qu'il y a des données pour un code article
while not RS.eof
If (RS("Groupe_art")="MRPRM" or RS("Groupe_art")="MRPRMD") then coutU= RS("Coût STd")
Else If (RS("Coût PMP déporté")!="" or RS("Coût PMP déporté")!=999999) then coutU = RS("Coût PMP déporté")
     Else coutU=RS("Coût PMP")
End If

J'ai une erreur à cette ligne la :

Code :

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

Else If (RS("Coût PMP déporté")!="" or RS("Coût PMP déporté")!=999999) then coutU = RS("Coût PMP déporté")

Merci, je sais pas peut-être est-ce la syntaxe du if qui est mauvaise !

voici l'erreur générée :

Type d'erreur :
Erreur de compilation Microsoft VBScript (0x800A03FA)
/Projet 'Intranet - AVK'/Form_AVK.asp, line 247

[roro06]

Bonjour

La bonne syntaxe en vbscript n'est pas

Code :

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

!=

mais :

Code :

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

<>

[bambino13]

Merci, j'ai changé mais j'ai toujours le même problème :

Type d'erreur :
Erreur de compilation Microsoft VBScript (0x800A03FA)
/Projet 'Intranet - AVK'/Form_AVK.asp, line 214


Voici mon 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
<% 
'sélectionne les informations relatives à notre article renseigné dans le formulaire AVK 
dim coutU  'variable qui stocke le coût selon les différentes cas
 
SQL="Select b.[description], b.[Coût STd], b.[Coût PMP], b.[Coût PMP déporté],a.[Groupe_art],a.[Unite],b.[Kv modifiée],b.[Kv],b.[Delai LREP (j)],b.[Delai d'appro (j)] " & _
" from cli_maj_extractions.T_EXTR_BASAMONT b, cli_maj_extractions.T_CALCUL_ARTICLE_AMONT a " & _
" where A.ARTICLE = b.code_article and  b.code_article =  '" & request.form("Code_Article") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL,conn
'tant qu'il y a des données pour un code article
while not RS.eof
If rs("Groupe_art")="MRPRM" or rs("Groupe_art")="MRPRMD" then coutU= rs("Coût STd")
Else If rs("Coût PMP déporté")<>"" or rs("Coût PMP déporté")<>999999 then coutU = rs("Coût PMP déporté")
	Else coutU=rs("Coût PMP")
End If
%>

La ligne d'erreur est :

Code :

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

Else If rs("Coût PMP déporté")<>"" or rs("Coût PMP déporté")<>999999 then coutU = rs("Coût PMP déporté")

Merci d'avance

[E.Bzz]

Bonjour,

Code :

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

1
2
3
4
5
If rs("Groupe_art")="MRPRM" or rs("Groupe_art")="MRPRMD" then coutU= rs("Coût STd")
Else If rs("Coût PMP déporté")<>"" or rs("Coût PMP déporté")<>999999 then coutU = rs("Coût PMP déporté")
	Else coutU=rs("Coût PMP")
   End IF
End If

A+

[roro06]

Bonjour

les espaces, dans les noms de champs, c'est pas glop en général (les accents non plus, au passage). Si tu ne peux pas faire autrement, il faut les mettre entre crochets :

Code :

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

Else If rs("[Coût PMP déporté]")<>"" or rs("[Coût PMP déporté]")<>999999 then coutU = rs("[Coût PMP déporté]")

[Immobilis]

Salut,

C'est pas parce que tu fais deux comparaisons d'un même champ avec deux types différents. Un coup tu compares un chaîne un autre un nombre. Faudrait savoir.
Utilises des fonctions de conversion.

A+

[kaiser59]

Merci, j'ai changé mais j'ai toujours le même problème :

Type d'erreur :
Erreur de compilation Microsoft VBScript (0x800A03FA)
/Projet 'Intranet - AVK'/Form_AVK.asp, line 214


Voici mon 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
<% 
'sélectionne les informations relatives à notre article renseigné dans le formulaire AVK 
dim coutU  'variable qui stocke le coût selon les différentes cas
 
SQL="Select b.[description], b.[Coût STd], b.[Coût PMP], b.[Coût PMP déporté],a.[Groupe_art],a.[Unite],b.[Kv modifiée],b.[Kv],b.[Delai LREP (j)],b.[Delai d'appro (j)] " & _
" from cli_maj_extractions.T_EXTR_BASAMONT b, cli_maj_extractions.T_CALCUL_ARTICLE_AMONT a " & _
" where A.ARTICLE = b.code_article and  b.code_article =  '" & request.form("Code_Article") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL,conn
'tant qu'il y a des données pour un code article
while not RS.eof
If rs("Groupe_art")="MRPRM" or rs("Groupe_art")="MRPRMD" then coutU= rs("Coût STd")
Else If rs("Coût PMP déporté")<>"" or rs("Coût PMP déporté")<>999999 then coutU = rs("Coût PMP déporté")
	Else coutU=rs("Coût PMP")
End If
%>

La ligne d'erreur est :

Code :

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

Else If rs("Coût PMP déporté")<>"" or rs("Coût PMP déporté")<>999999 then coutU = rs("Coût PMP déporté")

Merci d'avance

Salut,

De mémoire, si tu commences ta syntaxe de if comme tu le fais sur une ligne, tu l'as termine par la même occasion.

Essaye :

Code asp :

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

1
2
3
4
5
6
7
8
9
10
while not RS.eof
If rs("Groupe_art")="MRPRM" or rs("Groupe_art")="MRPRMD" then 
   coutU= rs("Coût STd")
Else If rs("Coût PMP déporté")<>"" or rs("Coût PMP déporté")<>999999 then 
    coutU = rs("Coût PMP déporté")
	Else
    coutU=rs("Coût PMP")
End If
End if
end while

De plus, évite de commencer une boucle sans vérifier ce que te retourne t'as requête

Tu peux très bien vérifier si elle retourne >= 1 enregistrement en faisant :

Code asp :

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

1
2
3
4
5
if not rs.eof then
  'mon traitement si retourne valeur
else
  response.write "Aucun article ne correspond à votre demande"
end if

Enfin, est ce que t'as requête retourne qqch en l'essayant directement sur SQL Server ou Access je ne sais pas ce que tu utilises

[bambino13]

Merci à vous pour vos réponses,

kaiser59 tu avais raison c'était à cause de ma syntaxe ou je m'étais le if et le then sur la même ligne.


Merci pour vos conseils et solutions.