Voila pour ceux que ca interesse je met les codes car tt fonctionne maintenan , un grand merci a tout le monde et surtout a kaiser .

formulaire :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Fiche de Suivi SAV </title>
<style type="text/css">
<!--
body {background-color: #FF6600;}
 
h1 {text-align: center;border-bottom:1px #000000 solid;}
 
label {float: left;width:500px;text-align:right;padding-right:.3em;}
 
p 
{
 margin: 10px auto 10px auto;
 text-align: left;
 font-size: 1.2em;
 font-weight: bold;
 font-family: Serif,Verdana, Arial, Sans-serif;
 font-style:italic;
 width:95%;
}
 
-->
</style>
</head>
<body>
<%
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
Sql = "SELECT * FROM SuiviSAV where id = "& request.querystring("id") &""
Rs.open Sql, conn
 
Response.write " <h1>Fiche de Suivi SAV</h1>"&vbcrlf
 Response.write "<form action=""recept2.asp"" method=""post"">"&vbcrlf
 
if not rs.eof then
'Si un enregistrment existe dj dans ce cas l''id ne peut etre modifiable:
Response.write "	<p><label>ID :</label> <input readonly type=""text"" name=""idsav"" size=""2"" value="""& rs(0) &"""></p>"&vbcrlf
Response.write "	<p><label>N d'emplacement :</label> <input type=""text"" size=""5"" name=""desc"" value="""& rs(1) &"""></p>"&vbcrlf
Response.write "    <p><label>Nom du client :</label> <input type=""text"" size=""15"" name=""clt_nom"" value="""& rs(2) &""" /></p>"&vbcrlf
Response.write "    <p><label>Emplacements du MH : </label><input type=""text"" name=""emplacement"" size=""15"" value="""& rs(3) &"""></p>"&vbcrlf
Response.write "    <p><label>Date de prise en charge du client  : </label><input type=""text"" name=""dtpchclt"" size=""7"" maxlength=""10"" value="""& rs(4) &"""></p>"&vbcrlf
Response.write "	<p><label>Date de Prise en charge du materiel : </label><input type=""text"" name=""dtpchm"" size=""7"" maxlength=""10"" value="""& rs(5) &"""></p>"&vbcrlf
Response.write "	<p><label>Avancement du travail : </label><input type=""text"" name=""avancement"" size=""12"" value="""& rs(6) &"""></p>"&vbcrlf
Response.write "	<p><label>Matriel Rpar : </label><input type=""text"" name=""Mat_rep"" size=""4"" value="""& rs(7) &""" /></p>"&vbcrlf
Response.write "	<p><label>Retour Atelier : </label><input type=""text"" name=""retour"" size=""4"" value="""& rs(8) &""" /></p>"&vbcrlf
Response.write "	<p><label>Dtail de la panne : </label><textarea name=""detailpanne"" cols=""30"" rows=""4"">"& rs(9) &"</textarea></p>"&vbcrlf
Response.write "	<p><label>Remarques : </label><textarea name=""rmq"" cols=""30"" rows=""2"">"& rs(10) &"</textarea></p>"&vbcrlf
Response.write "	<p><input type=""submit"" name=""Envoie"" value=""Modifier""/></p>"&vbcrlf
end if
 
response.write "</form>"
 
 
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
 
</body>
</html>

code de resultat de la modification ou de l enregistrement :

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
32
33
34
35
36
37
38
39
40
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<TITLE>resultat de la modification ou de l enregistrement  </TITLE>
</HEAD>
<BODY>
<%
dpanne=Request.form("detailpanne")
 
dpanne=replace(dpanne,"<br/>","\vbcrlf")
 
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
Select case request.form("Envoie") 
	case "Modifier"
		SQL = "Update SuiviSav Set N0emplacement = '"& Request.form("desc") &"', nomduclient = '"& Request.form("clt_nom") &"', emplacementduMH = '"& Request.form("emplacement") &"', DatedepriseenchargeduClient = '"& Request.form("dtpchclt") &"', Datedepriseenchargedumateriel = '"& Request.form("dtpchm") &"', avancementduTravail = '"& Request.form("avancement") &"', MaterielRepare = '"& Request.form("Mat_rep") &"', Retouratelier = "& Request.form("retour") &", Remarques = '"& Request.form("rmq") &"', Detaildelapanne = '"& dpanne &"' where ID = "& Request.form("idsav") &""
		RS.Open SQL , Conn
 
		Response.write "Mise  jour termine du materiel de : "& Request.form("clt_nom") &""
 
   case "Enregistrer"  
     Sql="Insert into SuiviSAV  (N0emplacement,nomduclient,emplacementduMH,datedepriseenchargeduclient,datedepriseenchargedumateriel,avancementdutravail,materielrepare,retouratelier,remarques,detaildelapanne) Values ('"& Request.form("desc") &"','"& Request.form("clt_nom") &"','"& Request.form("emplacement") &"','"& Request.form("dtpchclt") &"','"& Request.form("dtpchm") &"','"& Request.form("avancement") &"','"& Request.form("Mat_rep") &"',"& Request.form("retour") &",'"& Request.form("rmq") &"', '"& dpanne &"')"
	Rs.Open SQL, conn
 
	Response.write "Le materiel de : "& Request.form("clt_nom") &" a bien ete enregistre dans la base."
 case else  
     Response.write "aucune tache choisie" 
end select
 
Set RS = Nothing 
Conn.Close 
Set Conn = Nothing 
%>
</BODY>
</HTML>
Voila j'espère que cela pourras vous faire avancer merci encore à tous et vive DEVELOPPEZ héhé