Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access valeur dans txtbox

valeur dans txtbox

8 réponses
Avatar
Pascal
bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas correctement?
si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical, "ERREUR")
Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jt
par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:

bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas correctement?
si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical, "ERREUR")
Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal




Avatar
Pascal
merci jt, mais cela ne m'avance pas plus
j'ai essayé aussi ceci sans succès
if asc(txtcol3.value) < asc(txtcol2.value)
j'ai tjs le même problème, pige pas
Pascal


"jt" a écrit dans le message de news:
#
par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:

bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas correctement?
si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,
"ERREUR")


Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal








Avatar
Raymond [mvp]
bonjour.

il manque des lignes:
txtcol... sont déclarées et chargées comment ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pascal" a écrit dans le message de news:

merci jt, mais cela ne m'avance pas plus
j'ai essayé aussi ceci sans succès
if asc(txtcol3.value) < asc(txtcol2.value)
j'ai tjs le même problème, pige pas
Pascal


"jt" a écrit dans le message de news:
#
par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:

bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas correctement?
si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,
"ERREUR")


Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal











Avatar
Eric
Bonsoir Pascal,

ASC(chaine) retourne la valeur du 1er caractère d'une chaine.

ASC() ne te sera pas d'un grand secours puisque 12 est composé de 2
caractères et asc(12) te retournera la valeur ascii du 1er caractère qui
est 1 , code qui est inférieur à 2,3,4,5,6 ...


Il te faut utiliser la fonction VAL() {je crois que tu travailles sur
des entiers)

mets à la place :

If Val(txtcol6.Value) < Val(txtcol5.Value) Or _
Val(txtcol5.Value) < Val(txtcol4.Value) Or _
Val(txtcol4.Value) < Val(txtcol3.Value) Or _
Val(txtcol3.Value) < Val(txtcol2.Value) Or _
Val(txtcol2.Value) < Val(txtcol1.Value) Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical, "ERREUR")
Exit Sub
End If


A+
Eric

PS : Bonnes fêtes de Paques

merci jt, mais cela ne m'avance pas plus
j'ai essayé aussi ceci sans succès
if asc(txtcol3.value) < asc(txtcol2.value)
j'ai tjs le même problème, pige pas
Pascal


"jt" a écrit dans le message de news:
#

par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:


bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas correctement?
si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,



"ERREUR")

Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal











Avatar
Lelleg_n
"Pascal" wrote in message news:...
merci jt, mais cela ne m'avance pas plus
j'ai essayé aussi ceci sans succès
if asc(txtcol3.value) < asc(txtcol2.value)
j'ai tjs le même problème, pige pas
Pascal


"jt" a écrit dans le message de news:
#
par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:

bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas correctement?
si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,
"ERREUR")


Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal








Bonjour,

Est-ce que si ce sont des valeurs string 12 ne se situe-t-il pas après
1 mais avant 2 ?
alors les chiffres de la seconde série ne sont pas en ordre croissant.



Avatar
Pascal
bonsoir, merci pour votre réponse
veuillez m'excuser mais je ne comprend pas votre question
pour moi il n'y a pas de lignes a mettre en sus la déclaration est faite
dans l'objet textbox
et comme j'ai pu le comprendre la valeur est de type STRING, ce qui pose
problème lors de vérification

Pascal

"Raymond [mvp]" a écrit dans le message de
news:
bonjour.

il manque des lignes:
txtcol... sont déclarées et chargées comment ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pascal" a écrit dans le message de news:

merci jt, mais cela ne m'avance pas plus
j'ai essayé aussi ceci sans succès
if asc(txtcol3.value) < asc(txtcol2.value)
j'ai tjs le même problème, pige pas
Pascal


"jt" a écrit dans le message de news:
#
par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:

bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas
correctement?




si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,
"ERREUR")


Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal















Avatar
Pascal
oui legn, c'est exactement cela

"Legn" a écrit dans le message de news:

"Pascal" wrote in message
news:...

merci jt, mais cela ne m'avance pas plus
j'ai essayé aussi ceci sans succès
if asc(txtcol3.value) < asc(txtcol2.value)
j'ai tjs le même problème, pige pas
Pascal


"jt" a écrit dans le message de news:
#
par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:

bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas
correctement?




si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,
"ERREUR")


Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal








Bonjour,

Est-ce que si ce sont des valeurs string 12 ne se situe-t-il pas après
1 mais avant 2 ?
alors les chiffres de la seconde série ne sont pas en ordre croissant.





Avatar
Pascal
Soir Eric,
j'étais persuadé que ASC donnait la valeur ascii, dans mon cas si je
demandais asc(i) i valant 5 j'obtenais la valeur 53 si i = 2 valeur R
je pensais la logique bonne puisque en ascii 10 est plus grand que 1
mais effectivement avec val cela fonctionne parfaitement
encore une fois merci Eric
dis, je ferais pas mieux de prendre un abonnement?
merci également à Raymond et Len pour leurs aide


"Eric" a écrit dans le message de news:

Bonsoir Pascal,

ASC(chaine) retourne la valeur du 1er caractère d'une chaine.

ASC() ne te sera pas d'un grand secours puisque 12 est composé de 2
caractères et asc(12) te retournera la valeur ascii du 1er caractère qui
est 1 , code qui est inférieur à 2,3,4,5,6 ...


Il te faut utiliser la fonction VAL() {je crois que tu travailles sur
des entiers)

mets à la place :

If Val(txtcol6.Value) < Val(txtcol5.Value) Or _
Val(txtcol5.Value) < Val(txtcol4.Value) Or _
Val(txtcol4.Value) < Val(txtcol3.Value) Or _
Val(txtcol3.Value) < Val(txtcol2.Value) Or _
Val(txtcol2.Value) < Val(txtcol1.Value) Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,
"ERREUR")

Exit Sub
End If


A+
Eric

PS : Bonnes fêtes de Paques

merci jt, mais cela ne m'avance pas plus
j'ai essayé aussi ceci sans succès
if asc(txtcol3.value) < asc(txtcol2.value)
j'ai tjs le même problème, pige pas
Pascal


"jt" a écrit dans le message de news:
#

par defaut les textbox sont en string


"Pascal" a écrit dans le message de news:


bonjour,
qqn a t-il une idée de pourquoi ce code ne fonctionne pas correctement?
si je rentre 1, 2, 3, 5, 4, 6 OK
si je rentre 1, 2, 3, 5, 4, 12 fonctionne pas

If txtcol6.Value < txtcol5.Value Or _
txtcol5.Value < txtcol4.Value Or _
txtcol4.Value < txtcol3.Value Or _
txtcol3.Value < txtcol2.Value Or _
txtcol2.Value < txtcol1.Value Then
reponse = MsgBox("les chiffres entrés ne sont pas en ordre
croissant" _
& vbCrLf & "Veuillez modifier ces chiffres ", vbCritical,



"ERREUR")

Exit Sub
End If

Est-ce que dans les propriétés du textbox il faut parametrer que les
valeurs
sont de type ENTIER si oui OU?
merci de votre aide

Pascal