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

Messages postés
28
Date d'inscription
mercredi 26 décembre 2001
Dernière intervention
26 juillet 2018
-
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 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.