Bouton radio avec BD MsAccess
Bonjour le forum,
Autant vous le dire de suite, je suis une bille:calim2: en codage, je me débrouille comme je peux.
Voila, j'ai un script dans lequel je souhaite ajouter des boutons radio et que les valeurs soit enregistrées dans un champ de ma BD MsAccess 97.
L'affichage html est bon, les choix ca marche mais rien n'est envoyé dans ma BD.
Je pense que je dois créer une fonction mais là je ne sais pas faire.
Ma table s'appelle RNC et le champ ReplMeth
j'ai la possibilité de: soit créer un nouvel enregistrement, soit de ré-ouvrir un enregistrement ("NoRNC") = ""
Voila mon code:
Code:
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
| <table border="0" width="100%" cellspacing="0" cellpadding="5" >
<tr>
<td width="9"><img border="0" src="images/Spacer.gif" height="7" width="5"></td>
<td width="100" > <p align="left"><font face="Verdana" size="2"><b>Pièce remplacée :</b></font></td>
<td width="" > <p align="left"><font face="Verdana" size="2">
<%If bRncClos AND Not Session("UserAdmin") Then%>
<%=rstRNC("ReplMeth")%>
<%Else%>
<% If Request("NoRNC") = "" Then %>
<input type="radio" id="replaced-YN-1" name="ReplMeth" onclick="ReplMeth" value="YES">
<label for="yes">YES/OUI</label>
<input type="radio" id="replaced-YN-2" name="ReplMeth" onclick="ReplMeth" value="NO" checked>
<label for="no">NO/NON</label>
<% Else %>
<input type="radio" id="replaced-YN-1" name="ReplMeth" value="<%=rstRNC("ReplMeth")%>">
<label for="yes">YES/OUI</label>
<input type="radio" id="replaced-YN-2" name="ReplMeth" value="<%=rstRNC("ReplMeth")%>">
<label for="no">NO/NON</label>
<% End If %>
<% End If %>
</td>
<td width="40" > <p align="left"><font face="Verdana" size="2"> </font></td>
<td width="40" > <p align="left"><font face="Verdana" size="2"> </font></td>
<td width="9"><img border="0" src="images/Spacer.gif" height="7" width="5"></td>
</tr> |
La commande enregister avec le code:
Code:
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
| Sub SaveRNC()
sSql = "SELECT * FROM RNC where NoRNC=" & CDbl(Request("NoRNC"))
set rstRNC = Server.CreateObject("ADODB.Recordset")
rstRNC.Open sSql, Conn, adOpenDynamic, adLockOptimistic
If rstRNC.EOF Then
rstRNC.AddNew
End If
rstRNC("DateRNC") = CDate(Request("DateRNC"))
rstRNC("EtapeAmdec") = Request("EtapeAmdec")
rstRNC("CasAmdec") = Request("CasAmdec")
rstRNC("NomPce") = Request("NomPce")
.
.
.
rstRNC("billFlow") = Request("BillFlow")
rstRNC("ReplMeth") = Request("ReplMeth")
rstRNC.Update
End Sub |
merci si quelqu'un peut m'aidez.:)
Cordialement