Discussion :

[b.billet85]

J'ai un petit probleme de concaténation dans une boucle

une exemple

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
Dim var1 as string
Dim var2 as string
Dim var3 as string
...
Dim varX as string


Var1 = "Bruit"
Var2 = "odeur"
var3 = "Vue"
...
varX =

for a=1 to X
if ("var" & a)<>"" then
.....
end if
next

Le probleme c'est que mon "var" & a est égal à "Var1" et non a "Bruit" comme je le voudrais


merci d'avance

[Lincoln911]

Essaie d'utiliser eval()

[b.billet85]

Non ca ne marche pas eval()

[Manhexter]

Salutations,

As-tu vu le joli post tout neuf de loufab :

http://www.developpez.net/forums/d95...-liste-appels/

En adaptant un peu tu devrais pouvoir trouver une solution je pense.

Cordialement,

[b.billet85]

ca correspond toujours pas à ce que je veux, il faut partir du principe que je ne peux pas toucher aux données d'entrées (Var1, Var 2, ....)

[User]

Salut,

Désolé d'être rabat-joie

Mais pourquoi n'utilises-tu pas un tableau au lieu de n variables ?

genre :

Code :

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

1
2
3
4
5
6
7
Dim var(1 to X) as string
 
var(1) = "Bruit"
var(2) = "odeur"
var(3) = "Vue"
...
var(X) =

A+

[b.billet85]

C'est par rapport au contexte réel, la je ne vous avais fait qu'un exemple pour illustrer mon problème :

Code réel :

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
Private Sub cmd_phasederisque_Click()
Dim stDocName As String
Dim stLinkCriteria As String
    stDocName = "selectionpictogramme"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    [Form_selectionpictogramme].txt_type_pictogramme = "Risque"
    [Form_selectionpictogramme].txt_unité = Me.Unité
    a = "SELECT nompictorisque1 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"
    a = "SELECT nompictorisque2 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"
    a = "SELECT nompictorisque3 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"
    a = "SELECT nompictorisque4 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"
    a = "SELECT nompictorisque5 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"
    a = "SELECT nompictorisque6 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"
    a = "SELECT nompictorisque7 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"
    a = "SELECT nompictorisque8 * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "'"

A ce moment la les variables nompicorisque1 à 8 on une valeur et je veut exploiter leur valeur dans une boucle comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
b= 1
For a = 1 to 8
    if isnull("nompictorisque" & a) <> 0 then
        me("choix" & b).value = "nompictorisque" & a
        b = b+1
    end if
next

end sub

Le code que vous vous voyer en rouge ne fonctionnement pas puisque la valeur de "nompictorisque" & a est "nompictorisque1","nompictorisque2" ..... et non la valeur réel trouver dans mon select

[lolivie]

Bonjour ,

Si j'ai bien compris ce que tu voulais dire par là ...
<< Le code que vous vous voyer en rouge ne fonctionnement pas puisque la valeur de "nompictorisque" & a est "nompictorisque1","nompictorisque2" ..... et non la valeur réel trouver dans mon select >>

Voici une proposition de 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
Private Sub cmd_phasederisque_Click()
Dim stDocName As String
Dim stLinkCriteria As String
Dim MonRecordset as object '*** Pour manipuler les données
Dim sql_txt as string
 
    stDocName = "selectionpictogramme"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    [Form_selectionpictogramme].txt_type_pictogramme = "Risque"
    [Form_selectionpictogramme].txt_unité = Me.Unité
 
b = 1
For a = 1 to 8
    sql_txt = "SELECT nompictorisque" & a & " * FROM [Unité de travail] WHERE [unité] = '" & Me.Unité.Value & "' ;"
    set MonRecordset = CurrentDB.openrecordset (sql_txt , dbOpenSnapshot)
	' *** Toujours tester le retour sinon génération d'erreur quand pas d'enregistrement courant
	if MonRecordset.recordcount > 0 then
		MonRecordset.Movefirst ' ** histoire d'être sur d'être positionné sur le premier enregistrement du recordset
		if MonRecordset.fields("nompictorisque" & a) <> "" then
			me("choix" & b).value = MonRecordset.fields("nompictorisque" & a)
			b = b + 1
		end if	
	End if
next
 
end sub

En espérant que cela te fasse avancer.

Une petite remarque générale en passant , les tests de valeur suivants ne retourne pas toujours la même chose et les résultats peuvent générer des "effets de bord" :

mavar <> "" .... isnull(mavar) = false ... mavar = 0 ...

Personnellement , j'utilise :
mavar <> "" --> Pour vérifier qu'une chaine de caractère n'est pas vide
Isnull(mavar) --> Très rarement , pour vérifier que le code a été traité ou que quelque chose répond au bout (essentiellement pour les objets).
mavar = 0 --> Uniquement pour les valeurs numériques.

Bizarrement le test le plus fiable et mon préféré est : mavar <> ""

Ceci est un point qui m'a titillé pas mal de fois.
Si quelqu'un a une meilleure approche qu'il n'hésite pas à me la donner.

A+
Olivier