Problème d'utilisation de la fonction MID

Bonjour,

Dans le cadre du développement de mon application, je vais chercher une donnée sur une base via une requête SQL. Puis, je dois en extraire le troisième caractère. Je dois ensuite écrire "OUI" dans ma liste déroulante si le caractère est à 1 et "NON" si le caractère est à 0. J'ai donc écrit le code suivant.

Code:

---

1 2 3 4

If (Mid((RsUser("type_acces")),3,1) = 0) Then response.write "<tel_rep>" & "NON" & "</tel_rep>" Else response.write "<tel_rep>" & "OUI" & " </tel_rep>" End If

---

Mais peut importe la valeur du troisième caractère qu'il extrait de la donnée, il écrit toujours "NON".

Si quelqu'un peut m'aider, je suis preneuse.

Merci d'avance.

bonjour ... , mid retourne une chaine de caractère, compare son retour avec une chaine de caractère en plaçant 0 entre "" : ..1) = "0")

Non, rien à faire cela ne fonctionne toujours pas.

Salut

Audrey, tu as la mémoire courte non ? :aie:

Regarde ton topic et nos 2 dernières réponses

http://www.developpez.net/forums/d10...x/#post6024009

En effet, cela fonctionnait, jusqu'à ce que l'on me dise que finalement ils souhaitent une liste déroulante à la place de la textbox.

Et tu as bien vu que pour avoir le troisième caractère, c'est 2 et pas 3 en paramètre de la fonction Mid() ?
Mid((RsUser("type_acces")),2,1)


Et si tu affiche ton Mid((RsUser("type_acces")),2,1), tu as quoi ?

Cela m'affiche bien la bonne donnée, 0 quand il est dans le répertoire et 1 quand il ne l'est pas....
Cela doit venir de ma liste déroulante dans ce cas. Je l'ai codé comme suit :

Code:

---

1 2 3 4

<select name="txtBxRep_Tel" > <option value="OUI"> OUI </option> <option value="NON"> NON </option> </select>

---

Je ne vois pas le rapport entre ta liste déroulante et le reste :koi:

Comme cela ne marche pas je pensais que cela venait de la construction de ma liste déroulante.

Bah peut être mais quel est le rapport entre ça

Code:

---

1 2 3 4

If (Mid((RsUser("type_acces")),3,1) = 0) Then response.write "<tel_rep>" & "NON" & "</tel_rep>" Else response.write "<tel_rep>" & "OUI" & " </tel_rep>" End If

---

et ça ?

Code:

---

1 2 3 4

<select name="txtBxRep_Tel" > <option value="OUI"> OUI </option> <option value="NON"> NON </option> </select>

---

En fait c'est une fiche qui se remplie dynamiquement donc je le fais via un js :

Code:

---

1 2 3 4 5

var tel_rep=docXML.documentElement.childNodes[1].childNodes[6].firstChild.nodeValue;   [...]   document.frm_agents.txtBxRep_Tel.value=tel_rep;

---

Donc quand tu modifie ton select

Code:

---

1 2 3 4

<select name="txtBxRep_Tel" > <option value="OUI"> OUI </option> <option value="NON"> NON </option> </select>

---

ça enregistre oui ou non dans ta base de données, mais je ne vois toujours pas le rapport avec ton problème initial qui est de récupérer le 3ème caractère d'une chaine, que si il est égal à 0, on affiche quelque chose et si il est différent, on affiche autre chose

Si la valeur du Mid est 0 cela veut dire que l'agent est visible dans le répertoire téléphonique donc il faut mettre la liste déroulante à OUI (car il est affiché). Si la valeur du Mid est 1 cela veut dire que l'agent ne doit pas être visible dans le répertoire téléphonique donc il faut mettre la liste déroulante à NON (car il est n'est, alors, pas affiché).

Tu as essayé d'utiliser CInt() ?

Code:

---

1 2 3 4 5

If (CInt(Mid((RsUser("type_acces")),3,1)) = 0) Then response.write "<tel_rep>" & "NON" & "</tel_rep>" Else response.write "<tel_rep>" & "OUI" & " </tel_rep>" End If

---

Je ne connaissais pas. Il passe quand même toujours dans la boucle où il doit afficher "NON".

donc ton

Code:

---

1 2	Response.Write CInt(Mid((RsUser("type_acces")),2,1))

---

t'affiche bien 0

c'est pas ce que tu veux ?

Si le problème n'est pas dans la fonction Mid ou dans ton test If Else alors elle se situe peut-être ailleurs...
As-tu un "On Error Resume Next" quelque part, genre dans ta fonction RsUser, qui pourrait te cacher une erreur ?

C'est peut-être un fausse piste, mais ça peut être le cas quand les tests If Else se comportent bizarrement.
Bonne continuation.

Bonjour,

Je vais d'abord répondre à pitchalov car la réponse va être simple.

Tout d'abord, merci pour ton idée, car je n'avais pas pensé à vérifier de nouveau cette histoire de "On Error Resume Next".
Mais j'en avais déjà fait la chasse et il n'y en a plus à l'horizon.

Pour tumoo :

Quand l'affichage est en TextBox il m'affiche bien ce que je souhaite obtenir. C'est à dire : il écrit "OUI" quand la valeur est à 0, et "NON" quand la valeur est à 1. Mais dès que je passe en menu déroulant, il passe dans le if et jamais dans le else. Donc il m'affiche, à chaque fois, "NON".

Je vois pas trop d'où vient ton problème
J'ai fait des tests de mon côté

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

a="1001010" b="0110101"   If (Mid((a),3,1) = "0") Then Response.write "Non" Elseif (Mid((a),3,1) = "1") Then Response.write "Oui" else Response.write "Autre" End If   Response.write "<br />"   If (Mid((b),3,1) = "0") Then Response.write "Non" Elseif (Mid((b),3,1) = "1") Then Response.write "Oui" else Response.write "Autre" End If

---

J'ai bien le bon résultat d'affiché.

Par contre pour le 3ème caractère, c'est 3 et non 2 en paramètre de Mid() comme je l'ai dit

J'ai testé plusieurs syntaxes

Code:

---

1 2 3 4 5

(Mid((b),3,1) = 0) (Mid((b),3,1) = "0") (Cint(Mid((b),3,1)) = 0) (Cint(Mid((b),3,1)) = "0")

---

Les 4 syntaxes me donnent le bon résultat

Bonjour,

ça y est j'ai enfin réglé mon soucis.
C'était, comme toujours, une erreur à la con, i.e. un espace en trop.
En effet, j'avais écrit :

Code:

---

1 2 3 4

If (CInt(Mid((RsUser("type_acces")),3,1)) = 0) Then response.write "<tel_rep>" & "NON" & "</tel_rep>" Else response.write "<tel_rep>" & "OUI" & " </tel_rep>" End If

---

Et c'est donc :

Code:

---

1 2 3 4

If (CInt(Mid((RsUser("type_acces")),3,1)) = 0) Then response.write "<tel_rep>" & "NON" & "</tel_rep>" Else response.write "<tel_rep>" & "OUI" & "</tel_rep>" End If

---