j'ai cette erreur qui apparait et je ne sais pas pourquoi?? J'ai chercher des informations dans les forums mais je n'ai rien trouver qui a pu m'aider pour ce problèmes.
Voici mon code
il n'y a aucun enregistrement dans la table CeduleOfficielle, du moins pour l'instant .
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 NoCal2 = NoCal strCalProd = "SELECT * FROM [CalendrierProd] WHERE [NoCal] = " & NoCal2 & "" Set rstProd = Server.CreateObject("ADODB.Recordset") rstProd.Open strCalProd, objConn, adOpenForwardOnly, adLockReadOnly compteur = Request.Form("txtNombreModule") While compteur <> 0 strSumCedOfficielle = "SELECT SUM([nbModuleClient]) AS nbModule FROM [CeduleOfficielle] WHERE [NoCal]= " & NoCal2 & " GROUP BY [NoCal]" Set rstSum = Server.CreateObject("ADODB.Recordset") rstSum.Open strSumCedOfficielle, objConn, adOpenForwardOnly, adLockReadOnly 'response.write(strSumCedOfficielle) nbModule = rstProd("NbreModules") nbModuleDispo = nbModule - rstSum("nbModule") 'la ligne ayant l'erreur If Request.Form("txtNombreModule") < nbModuleDispo Then rstCedOfficielle.AddNew rstCedOfficielle("NoClient") = strNoClient rstCedOfficielle("Client") = Client rstCedOfficielle("nbModuleClient") = compteur rstCedOfficielle("NoJob") = NoJob rstCedOfficielle("NoCal") = NoCal rstCedOfficielle.Update compteur = 0 else tempo = Request.Form("txtNombreModule") - nbModuleDispo rstCedOfficielle.AddNew rstCedOfficielle("NoClient") = strNoClient rstCedOfficielle("Client") = Client rstCedOfficielle("nbModuleClient") = nbModuleDispo rstCedOfficielle("NoJob") = NoJob rstCedOfficielle("NoCal") = NoCal rstCedOfficielle.Update compteur = tempo NoCal2 = NoCal2 + 1 rstProd.MoveNext end If Wend
Si quelqu'un à des sugesstion ou des idées...je suis preneur et désespéré
Partager