Garder fixe la sélection d'une liste déroulante

**hysteresis** · 20/10/2005, 09h48

Bonjour,

C'est encore moi,

Ptite question, j'ai une liste déroulante avec les nom des employés provenant de ma base access; lorsque je choisis une personne dans la liste, j'effectue un " onchange" et les données de cette personne s'affiche...le problème est que, dans la liste déroulante, j'ai le nom de la premiere personne de ma base qui se réaffiche a chaque fois.

Comment fait on pour garder selectionner la personne que l'on a choisit ??

Un ptit bout de code vaut mieux qu'un long discours :

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
 
 
<script language="JavaScript">
function Val_Recherche()
{
	rechercheform.submit();
}
</script>
<body>
 
<p><font face="Arial" color="#000080">
  <b><u>Liste des employés :</u></b>
  </font></p>
<form name="rechercheform" method="post" action="">
  <label>Recherche
  <select name="select" type="text" OnChange="rechercheform.target='_self';rechercheform.action='listeforme.asp';Val_Recherche();">>
    <%
While (NOT Recordset1.EOF)
%>
    <option value="<%=(Recordset1.Fields.Item("IDMatricule").Value)%>"><%=(Recordset1.Fields.Item("Nom").Value)%>&nbsp;&nbsp;<%=(Recordset1.Fields.Item("Prenom").Value)%></option>
    <%
  Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
%>
  </select>
  </label>
</form>

**Immobilis** · 20/10/2005, 10h12

Salut,

IF RS("ID_Matricule")=request.form("ID_Matricule") THEN
response.write("<option (...) selected>")
ELSE
response.write("<option (...)>")
END IF

A+

**pc75** · 20/10/2005, 10h16

Bonjour,

Une idée ?

Dans ta page listeforme.asp, tu récupères bien le nom sélectionné dans ta liste. Dans cette même page, tu peux, par exemple, stocker ce nom dans une variable de session que tu pourras alors relire pour marquer comme "selected" ce nom quand tu alimenteras à nouveau ta liste.

Je suis assez clair ?

**hysteresis** · 20/10/2005, 10h29

heu..comprends pas tres bien ton expliquation pc75 ..sorry

Mais le truc c'est que le onchange recharge toute la page et nottament la liste déroulante, il faudrait qu'il reste sur la dernière personne sélectionné...doit etre possible qd meme

**pc75** · 20/10/2005, 10h51

Re,

Petite précision : Le code que tu as joins correspond bien à 'listeforme.asp' ?

**hysteresis** · 20/10/2005, 10h52

oui

**Immobilis** · 20/10/2005, 10h59

Envoyé par hysteresis

heu..comprends pas tres bien ton expliquation pc75 ..sorry

Mais le truc c'est que le onchange recharge toute la page et nottament la liste déroulante, il faudrait qu'il reste sur la dernière personne sélectionné...doit etre possible qd meme

Et mon post alors, tu l'as lu?

**pc75** · 20/10/2005, 11h04

Re,

Alors tu modifies l'appel de ta page en ajoutant en paramètre le nom sélectionné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
...
rechercheform.action='listeforme.asp?ID=select.value'

En début de page tu récupères cette valeur avec un request.querystring et tu appliques le code que Immobilis a posté.

**hysteresis** · 20/10/2005, 14h06

Merci Immobilis

Ca marche

**hysteresis** · 20/10/2005, 14h13

EDIT

Ca marche a moitié

Voila comment j'ai modifier 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
 
 
<form name="rechercheform" method="post" action="">
  <label>Recherche
  <select name="select" OnChange="rechercheform.target='_self';rechercheform.action='listeforme.asp';Val_Recherche();" type="text">>
    <%
While (NOT Recordset1.EOF)
 
If Recordset1("IDMatricule")=Cint(Request.Form("select")) then %>
 
    <option value="<%=(Recordset1.Fields.Item("IDMatricule").Value)%>"selected><%=(Recordset1.Fields.Item("NOM").Value)%>&nbsp;&nbsp;<%=(Recordset1.Fields.Item("Prenom").Value)%></option>
    <%
	Else%>
	<option value="<%=(Recordset1.Fields.Item("IDMatricule").Value)%>"<%=(Recordset1.Fields.Item("NOM").Value)%>&nbsp;&nbsp;<%=(Recordset1.Fields.Item("Prenom").Value)%></option>
 
	<% End If
 
  Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
%>
  </select>

Lorsque j'affiche ma page, ma liste deroulante est blanche mais j'arrive tout de meme a selectionner ( au hasard une personne ), lorsque je clique dessus j'ai alors le nom qui apparait et la selection reste bloqué sur ce nom ( ca c'est OK ) mais j'ai le reste de ma liste qui est blanche ...bloursppppppppppppppp

**Pymm** · 20/10/2005, 14h32

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
<form name="rechercheform" method="post" action="">
  <label>Recherche
  <select name="select" id="select" OnChange="this.form.submit();" type="text">>
    <%
While (NOT Recordset1.EOF)
%>
     <option value="<%=Recordset1("IDMatricule")%>"selected><%=Recordset1("NOM")%>&nbsp;&nbsp;<%=Recordset1("Prenom")%></option>
<% 
 Recordset1.MoveNext()  
Wend
If Request.Form("select")<>"" then
   Response.Write "<script language=""javascript"">" & chr(10)
   Response.Write "  document.getElementById('select').value='" &      Request.Form("select").Item & "';" & chr(10)
   Response.Write "</script>" & chr(10)
End If

je pense ça ce serait plus simple et evites de nommer ton select "select" tu risques des problèmes avec des mots réservés