Bonjour le forum,
Autant vous le dire de suite, je suis une bille 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 HTML : 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
<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>&nbsp;&nbsp;&nbsp;
  <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>&nbsp;&nbsp;&nbsp;
  <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">&nbsp;</font></td>
	 <td width="40" > <p align="left"><font face="Verdana" size="2">&nbsp;</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 : 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
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