Discussion :

[onha94]

Bonjour a vous,

voila je fais apparaître une liste d'enregistrement avec des cases a cocher sur chacune des lignes et les utilisateurs sélectionnent différentes lignes.

Mon problème c'est que je n'arrive pas à mettre à jours ma base Access en fonction des cases qui ont étés sélectionnés.

Pourriez vous m'aider ?

Merci
Onha

mon code qui affiche les lignes

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
 
<form method="post" action="invsave.asp">
<table align="center" class="auto-style5">
	<tr>
		<td class="auto-style4">Référence</td>
		<td class="auto-style4">Désignation</td>
		<td class="auto-style4">Qté</td>
		<td class="auto-style4">Inventaire</td>
	</tr>
	    <%'----début de la boucle-----------%>
    <%rs.MoveFirst
	do while not rs.eof%>
	<tr>
		<td class="auto-style4"><%=rs("reference")%></td>
		<td class="auto-style4"><%=rs("designation")%></td>
		<td class="auto-style4"><%=rs("qte")%></td>
		<td class="auto-style4"><input name="choisir" type="checkbox" value='<%=rs("numligne")%>' /></td>
	</tr>
		<%rs.MoveNext
	loop%>
 
</table>
<input name="Submit1" type="submit" value="submit" />
</form>

Mon code pour l'update

Code :

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

1
2
3
4
Checkbox1=Request.form("choisir")

Ligne 24 : RequeteSQL = "Update PRGTIE Set Inventaire='Oui' where numligne="&Checkbox1&""

voici le message d'erreur
Microsoft OLE DB Provider for ODBC Drivers erreur '80040e14'

[Microsoft][Pilote ODBC Microsoft Access] Erreur de syntaxe (virgule) dans l'expression 'numligne=6746, 6747'.

/inventaire_pr/invsave.asp, ligne 24

[roro06]

Bonjour

Essaie avec

Code :

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

1
2
 
where numligne in (" & Checkbox1 & ")"

[onha94]

Bonjour

désoler de te répondre aussi tardivement. Effectivement ce fonctionne mieux ainsi.

J'ai un autre souci sur ces lignes. J'ai rajouté une colonne Comptage

Je démarre d'un formulaire qui fait apparaître plusieurs ligne

ex

- ref - designation - qte theo - Comptage - Inventaire -
- 1 - exemple1 - 1 - 1 - Checkbox -
- 9 - exemple9 - 2 - 2 - Checkbox -

je te mets si dessous les lignes

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
 
<form method="post" action="invsave.asp">
<table align="center" class="auto-style5">
	<tr>
		<td class="auto-style4">Référence</td>
		<td class="auto-style4">Désignation</td>
		<td class="auto-style4">Qté</td>
		<td class="auto-style4">Comptage</td>
		<td class="auto-style4">Inventaire</td>
		<td class="auto-style4">Num Ligne</td>
	</tr>
	    <%'----début de la boucle-----------%>
    <%rs.MoveFirst
	do while not rs.eof%>
	<tr>	
		<td class="auto-style4"><%=rs("reference")%></td>
		<td class="auto-style4"><%=rs("designation")%></td>
		<td class="auto-style4"><%=rs("qte")%></td>
		<td class="auto-style12"><input name="qtecpte" type="text" value='<%=rs("qte")%>' class="auto-style12" style="width: 101px" /></td>
		<td class="auto-style4"><input name="choisir" type="checkbox" value='<%=rs("numligne")%>' /></td>
		<td class="auto-style4"><%=rs("numligne")%></td>
	</tr>
		<%rs.MoveNext
	loop%>
 
</table>
	<div class="auto-style6">
	<input name="etb" type="hidden" value='<%=request("etb")%>'/>
	<input name="dossier" type="hidden" value='<%=request("dossier")%>'/>
	<input name="dateinventaire" type="hidden" value='<%=date%>'/>
	<input name="Submit1" type="submit" value="Envoyer" class="auto-style9" /></div></form>

mon soucis c'est lorsque je récupéré la validation de mon formulaire il affecte la qte des 2 lignes au meme enregistrement. Du cout si je coche la première ligne il va enregistrer dans la quantité non pas 1 mais 1,2

voici le script de mise à jours de la base de donnée

Code :

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

1
2
3
4
5
6
7
8
9
 
dossier=Request.form("dossier")
fqte_cpte=Request.form("qtecpte")
dateinventaire=Request.form("dateinventaire")
etb=Request.form("etb")
mois=Request.form("mois")
Checkbox1=Request.form("choisir")
 
RequeteSQL = "Update PRGTIE Set Inventaire='Oui',dateinventaire='"&dateinventaire&"',qte_cpte='"&fqte_cpte&"' where numligne in (" & Checkbox1 & ")"

aurais tu une idée

[onha94]

Bonjour a tous

J'avance a petit pas voici comment maintenant l'enregistrement s'effectue dans la base access

sur cette exemple j'ai 6 lignes avec des références différentes. Dans mon formulaire j'ai coché les lignes 6258 6259 et 6261.

Le script enregistre bien sur les bonnes lignes des checkbox mais me compile toutes les quantités des autres lignes non cochés.




Voici 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
14
15
16
17
18
19
20
21
22
23
24
25
 
<%
for each checkbox_value in Request.Form("choisir[]")
dossier=Request.form("dossier")
fqte_cpte=Request.form("qtecpte")
dateinventaire=Request.form("dateinventaire")
etb=Request.form("etb")
mois=Request.form("mois")%>
 
 
 
<%DSN_BASE = "DBQ=" & Server.Mappath("dbinvprgtie.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set Rs = Server.CreateObject("ADODB.Recordset")%>
 
<%
RequeteSQL = "Update PRGTIE Set Inventaire='Oui',dateinventaire='"&dateinventaire&"',qte_cpte='"&fqte_cpte&"' where numligne in (" & checkbox_value & ") "
Rs.Open RequeteSQL, Conn%>
 
<%next%>
 
 
<%Set Rs = Nothing

Si quelqu'un pourrait m'aider

merci et bonne fêtes de fin d'année ....

[onha94]

bonjour a vous tous,

Tout d'abord tous mes meilleurs vœux 2017.

je suis toujours à la recherche de la solution a mon problème.

Est ce que quelqu'un pourrait me donner un petit coup de main