Récupérer la valeur d'une liste de checkbox

Messages postés
29
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
4 mars 2019
-
Bonjour a vous tous,
je vous présente tous mes meilleurs vœux pour cette nouvelle année.

je rencontre un souci pour effectuer un update à partir d'un formulaire avec checkbox ou la valeur provient d'une base access avec un champ text.

voici le script du formulaire
<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>
<td class="auto-style4">Qté 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-style4"><input type="checkbox" name="choisir" value='<%=rs("numligne")%>' /></td>
<td class="auto-style4"><input type="text" name="qteinv" value='<%=rs("qte")%>' class="auto-style2" style="width: 81px" /></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>



exemple de sélection. Sur une liste de 10 références je vais cocher 2 références sans changer la quantité du champ Qté Inventaire qui sont à 1 pour la 1ere référence et 10 pour la 2ème.

voici le résultat du update dans la base
référence pointé 1 ce retrouve avec comme quantité 1,10,2,2,2,1,1,3,8,7
référence pointé 2 ce retrouve également avec 1,10,2,2,2,1,1,3,8,7
L'update compile toutes les quantités dans le champ qteinv pour les références qui ne sont pas cocher.
## Voici le script pour la mise a jour de la base
<%
dossier=Request.form("dossier")
dateinventaire=Request.form("dateinventaire")
etb=Request.form("etb")
mois=Request.form("mois")
qte_cpte=Request.form("qteinv")
Checkbox1=Request.form("choisir")
%>
<%
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='"&qte_cpte&"' where numligne in (" & Checkbox1 & ")"
Rs.Open RequeteSQL, Conn%>

<%Set Rs = Nothing

Conn.Close
Set Conn = Nothing%>

est ce que quelqu'un aurait une solution ?
Onha
Afficher la suite