Dynamique checkbox pour vérifier état

Version imprimable

Bonjour,
Je crée des checkbox dynamiquement avec:
Code:

1 2 3 4 5 6 7 8 Set objNew = document.createElement("input") With objNew .type = "checkbox" .id = "chkItem" .setAttribute "assoc", intItem .attachEvent "onclick", getRef("chkItem_onclick") End With .appendChild objNew
Et je veux vérifier chacun des checkbox pour voir son état. J'utilise le code suivant (qui fonctionne, mais pas pour les checkbok dynamique):
Code:

1 2 3 4 5 6 For each checkbox In frmChangeOU.chkItem if frmChangeOU.check(i).Checked = True Then msgbox frmchangeou(i).value End If i=i+1 Next
NOTE: frmChangeOU étant mon <form> où est créé mes checkbock.

Le tout me donne le message d'erreur Variable is undefined 'checkbox' pour

Code:

For each checkbox In frmChangeOU.chkItem

05/06/2008, 20h27
Danyel

Une petite recherche sur le forum t'aurais donne la reponse à ton probleme.

Code:

For Each x As CheckBox In frmChangeOU.Controls
05/06/2008, 21h15
f_herpe

Code:

For Each x As CheckBox In frmChangeOU.Controls

Cela ne fonctionne pas :?

Erreur: Expected In
05/06/2008, 21h22
Danyel

Il faut chercher ailleurs, car ce code doit fonctionner.
05/06/2008, 21h36
Faladin

Petite précision...

Tes checkbox sont bien créés dans le frame:
frmChangeOU.chkItem

Sinon ça sert à rien de faire un For each dedans...

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
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
68
69
70
71
72
 
        If Exists("brFrmLine") Then
        	If IsCollection(brFrmLine) Then
            	For intItem = brFrmline.length - 1 To 1 Step -1
                	.removeChild brFrmLine(intItem)
                	.removeChild .txtItem(intItem)
                	.removeChild .chkItem(intItem)
              	next
            End If
            frmchangeou.removeChild brFrmLine
            frmchangeou.removeChild .txtItem
            frmchangeou.removeChild .chkItem
        End If
 
		Do Until objExec.Status = 0
   			WScript.Sleep 100
		Loop
 
		intItem = 0
		do until objExec.StdOut.AtEndOfStream
			present = 0
			strOutput = objExec.StdOut.readline()
			l1 = instr(strOutput,",")
			l2 = instr(strOutput,"=")
			l = right(left(strOutPut,l1-1),len(left(strOutPut,l1-1))-l2)
			If left(l,10) = "EAREntrant" Or left(l,10) = "EARSortant" or l = "msmq" Or l = "PB18F" Or l = "PB19F" Then
				present = 1
			else
        		If Exists("brFrmLine") Then
        			If IsCollection(brFrmLine) Then
						If brFrmline.length <> 0 Then
							For intItem2 = 0 To brFrmline.length - 1
								If l = myArray(intItem2) Then
									present = 1
								End If
							Next
						End If
					End If
				End If
			End if
			If ucase(l) <> ucase(lt) And present = 0 And right(left(strOutput,3),2) = "CN" Then
            	Set objNew = document.createElement("input")
            	With objNew
            		.type = "checkbox"
            		'.name = "check"
                	.id = "chkItem"
                	.setAttribute "assoc", intItem
                	.attachEvent "onclick", getRef("chkItem_onclick")
            	End With
            	.appendChild objNew
 
	            Set objNew = document.createElement("input")
    	        With objNew
        	        .type = "text"
            	    '.name = "text"
                	.id = "txtItem"
                	.value = l
            	End With
            	.appendChild objNew
 
                myArray(intItem) = l
 
            	Set objNew = document.createElement("br")
            	With objNew
            		.id = "brFrmLine"
            	End With
            		.appendChild objNew
 
            	intItem = intItem + 1
            End If
		Loop
	end with

Voici le code complet

05/06/2008, 22h51
Totanne

Tu devrais essayer For Each x As CONTROL In frmChangeOU.Controls puis dans la boucle tester si ce control est une checkBox ...
09/06/2008, 15h31
f_herpe

Citation:

Petite précision...

Tes checkbox sont bien créés dans le frame:
frmChangeOU.chkItem

Sinon ça sert à rien de faire un For each dedans...

Comment je vérifie?
09/06/2008, 15h50
Danyel

Citation:

Envoyé par f_herpe

Comment je vérifie?

Tu dois bien savoir ce que tu as mis dans ta form !!!
09/06/2008, 16h28
Faladin

Citation:

Envoyé par f_herpe

Comment je vérifie?

Ben si tu crées dynamiquement tes checkbox tu dois les inclure dans le frame, sinon aucune utilité de faire un For each en cherchant quelque chose qui n'existe pas dans ce frame.
09/06/2008, 17h54
f_herpe

Tout le code en haut est inclus dans

Code:

With frmchangeou
09/06/2008, 18h24
Danyel

10€ que le code est pas de toi :lol:

Plus serieusement, frmchangeou c'est quoi comme objet ?
09/06/2008, 18h28
f_herpe

frmchangeou :

Code:

<form name="frmChangeOU" action="#" method="get">

Et oui, tout est de moi.
09/06/2008, 18h35
Danyel

Ah ok, ben voila qui est plus clair (pour tout le monde)
Ton frmchangeou, c'est pas un winform, mais juste le nom d'un formulaire internet et surement en asp ... donc rien a voir avec tout ce qu'on a dit !!!
Je transfere dans la bonne section