Discussion :

[tomo0013]

Bonjour a tous:
Voila, j'ai un petit probleme, j'ai une variable string (nommée : strVBA) qui contient la condition a tester dans une boucle conditionnel (un if). Mon probleme est le suivant : Comment la boucle conditionnel (le if) peut elle etre éxécuter avec la condition contenu dans la variable strVBA ???

je donne l'exemple:

Code :

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

1
2
3
4
5
6
7
8
9
 
strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03" 
 
if ("QUE-JE-DOIS-JE-ECRIRE-ICI-PR-QUE-LA-CONDITION-SOIT-CELLE-CONTENU-DANS-strVBA") then
....
.......
..
.....
end if

Merci a l'avance de votre aide, et bonne continuation a la communauté VB

[zoom61]

Salut,

Le code peut être le suivant :

Code :

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

1
2
3
4
5
strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03" 
 
if strVBA="Test" then 
   commandes...
end if

ou

Code :

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

1
2
3
4
5
strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03" 
 
if strVBA=1 then 
   commandes...
end if

[tomo0013]

Ok merci, je vais tester tout ca!!!

[random]

en fait il te faut la fonction evaluate qui ne semble pas présente
essaye ceci si tu as excel
ajoute à ton programme la librairie excel référence

et lance excel.application.evaluate(mavarstring)

[tomo0013]

Bon et bien ca ne marche pas, car en fait ma variable strVBA est un peu différente de ce que j'ai annoncé (c'était pour simplifier le prob et la compréhension)

voila en fait ce que j'ai:

Code :

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

1
2
3
4
5
6
7
8
9
 
strVBA = "strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok" & iconverti & "] <> rs.ok" & iconverti 
debug.print strVBA
if ("QUE-JE-DOIS-JE-ECRIRE-ICI-PR-QUE-LA-CONDITION-SOIT-CELLE-CONTENU-DANS-strVBA") then 
.... 
....... 
.. 
..... 
end if

par contre grace au debug.print, je sais que ma variable strVBA est égal successivement a :

Code :

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

1
2
3
4
Forms![Frm_clsh]![ssfrmenfper].Form![ok01] <> rs.ok01
Forms![Frm_clsh]![ssfrmenfper].Form![ok02] <> rs.ok02
Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03
Forms![Frm_clsh]![ssfrmenfper].Form![ok04] <> rs.ok04

[tomo0013]

je me ssui renseigner sur la fonction "evaluate", il existe la meme sous access sosu le nom de eval.

j'ai essayé de testé avec, mais elle ne marche pas, car eval ne fonctionne qu'avec une commande a éxécuter en string, et non pas avec une condition:

Code :

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

1
2
3
4
5
eval(var_en_string_:_commande_a_executer_ex:docmd.) MARCHE!
 
eval(var_en_string_avec_condition_a_mettre_dans_un_if) MARCHE PAS!
 
quelqu'un d'autre a une idée, car la je bloque sérieusement depuis ce matin!

[cafeine]

Hello,

je voudrais comprendre comment cela se fait que tu récupères une chaine avec un rs. ce qui semble être un recordset ?
Ce serait plus simple de faire :

Code :

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

1
2
If Eval("Forms![Frm_clsh]![ssfrmenfper].Form![ok03]") <> rs.ok03 Then
...