Lotus script :::: if .... then

[VastoMarine]

Bonjour, Puis-je simplifier mon If imbriqué ? Merci

Forall xFieldname In oForm.Fields

If Cstr(xFieldname) = "fldExec1" then

If CStr(xFieldname) = "fldExec2" then

If CStr(xFieldname) = "fldExec3" Then

If CStr(xFieldname) = "fldExec4" Then

If CStr(xFieldname) = "fldExec5" Then

If CStr(xFieldname) = "fldExec6" Then

If CStr(xFieldname) = "fldExec7" Then




cont = 1

End If
End If
End If
End If
End If
End If
End If
End ForAll

[gouff]

Avec un select Case je pense

[kochiz]

Salut,

Effectivement le select cas est très approprié dans ton cas.

[pivo]

Je comprends pas ton (tes) if... Il faut qu'un champ s'appelle à la fois "fldExec1" et "fldExec2" et ... et "fldExec7" pour arriver à l'instruction "cont = 1" ??

Pas sûr que ça arrive souvent.

Sinon si tu veux vérifier qu'il existe au moins un champ nommé "fldExec[i]" je partirais sur un

If LCase(Left(xFieldname, 7)) = "fldexec" AND Cint(Right(xFieldname, 1) >= 1 AND Cint(Right(xFieldname, 1) <= 7 then
cont = 1
End if

Avec évt encore un test sur la longueur.