Discussion :

[georgeabitbol]

Bonjour,

J'aimerais savoir si c'est possible de parcourri un par un les champs d'un formulaire et à chaque fois, de faaire une opération dessus ?

Voila mon code et il me dit que j 'ai "une variable de controle de oucle 'for' incorrecte"....

Sachant que le nom de mes champs provient d'un recordset...

Code :

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

1
2
3
4
5
for each rsTruc("nom") in Request.Form
	if rsTruc("nom")="on" then command.Parameters("@Reponse")=rsTruc("Reponse") 
                 procedure.execute
                end if
          next

Ce que j aimerais c'est pouvoir parcourir le formulaire et en cas de cochage par exemple d'une checkbox, executer une procedure...

Le truc c'est que je ne sais aps comment passer d'un champ à l'autre, je n'arrive qu'à ressortir l 'ensemble des cases cochées d'un seul coup...

[malbaladejo]

Tu ne peux pas utilser rsTruc("nom") comme tu le fais.
Si je comprend ce que tu veux, il faut faire :

Code :

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

1
2
3
4
5
6
7
For each strTruc in Request.Form
     If strTruc = rsTruc("nom") Then
          If Response.Form(strTruc) = "on" Then
                ......
          End If
     End If
Next

[georgeabitbol]

Salut,

je vois pas bien à quoi sert le if sur ta deuxieme ligne...
Ce que je fais c'estque je construit un formulaire à partir d'élements d'une table dont je recupere les noms dans mon rsTruc.

J'affecte ces noms à des checkboxs et une fois que mon formulaire est rempli,j 'aimerai savoir quelle cases sont cochées et les enregistrer...

[malbaladejo]

En faisant :

Code :

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

For each strTruc in Request.Form

strTruc prend successivement le nom de tout les objets du formulaire (checkbox, select, text, ....)
Avec

Code :

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

If strTruc = rsTruc("nom") Then

Tu vérifie si le nom de l'objet correspond on nom dans ton recordset.
Et enfin avec

Code :

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

If Response.Form(strTruc) = "on" Then

tu vérifies si ton checkbox est coché.
Tu dois aussi faire une boucle sur ton recordset:

Code :

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

1
2
3
4
5
6
7
8
9
10
While Not rsTruc.Eof
  For each strTruc in Request.Form 
     If strTruc = rsTruc("nom") Then 
          If Response.Form(strTruc) = "on" Then 
                ...... 
          End If 
     End If 
  rsTruc.MoveNext
 Next
Wend

[georgeabitbol]

Merci ca marche...

Enfin je pense, j'ai mis 2 jours pour arriver à à peu près faire ce que je voulais...

Merci beaucoup en tous cas, tu m'as sauvé la peau