|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Protection contre les negatifs [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (RadioNails)
 Informations & options pour cette discussion
|
vendredi 7 septembre 2001 à 15:13:39 |
Protection contre les negatifs
RadioNails
|
Bonjour, j'ai un problème, je débute dans VB, mais j'en connais asser pour ne pas voir quel est le problème de ce script, pouvez vous m'aide..? Mise en situation: Je dois entrer le nombre de Calendrier à commender dans le textBox txtCalendrier.text et ensuite faire des calculs avec cette valeur. Mais je ne veux pas de nombres negatifs dans ce textbox, voici le code que j'ai fait pour en être sur: If CCur(txtCalendrier.Text) < 0 Then txtCalendrier.Text = "" End If Il me renvoie une erreur "Type incompatible" (Type Mismatch) sur la 1er ligne de ce code... SVP Aidez moi :-) RadioNails
|
|
|
|
vendredi 7 septembre 2001 à 15:33:47 |
Re : Protection contre les negatifs
Muad-Dib
|
chez moi ca marche bien ...
evidemment, si text1 n'est pas numérique ... erf, ca génère cette erreur
ce qui est normal puisque CCur attend une valeur numérique
bref, je vois pas ton probleme ..
-------------------------------
Réponse au message :
-------------------------------
Bonjour, j'ai un problème, je débute dans VB, mais j'en connais asser pour ne pas voir quel est le problème de ce script, pouvez vous m'aide..?
Mise en situation:
Je dois entrer le nombre de Calendrier à commender dans le textBox txtCalendrier.text et ensuite faire des calculs avec cette valeur. Mais je ne veux pas de nombres negatifs dans ce textbox, voici le code que j'ai fait pour en être sur:
If CCur(txtCalendrier.Text) < 0 Then
txtCalendrier.Text = ""
End If
Il me renvoie une erreur "Type incompatible" (Type Mismatch)
sur la 1er ligne de ce code... SVP Aidez moi :-)
RadioNails
|
|
|
|
vendredi 7 septembre 2001 à 15:35:39 |
Re : Protection contre les negatifs
makabey
|
Essaye CLng...
-------------------------------
Réponse au message :
-------------------------------
Bonjour, j'ai un problème, je débute dans VB, mais j'en connais asser pour ne pas voir quel est le problème de ce script, pouvez vous m'aide..?
Mise en situation:
Je dois entrer le nombre de Calendrier à commender dans le textBox txtCalendrier.text et ensuite faire des calculs avec cette valeur. Mais je ne veux pas de nombres negatifs dans ce textbox, voici le code que j'ai fait pour en être sur:
If CCur(txtCalendrier.Text) < 0 Then
txtCalendrier.Text = ""
End If
Il me renvoie une erreur "Type incompatible" (Type Mismatch)
sur la 1er ligne de ce code... SVP Aidez moi :-)
RadioNails
|
|
|
|
vendredi 7 septembre 2001 à 15:45:13 |
Re : Protection contre les negatifs
oliver68
|
tu mélanges des variables de types différents, débarrasse toi de Ccur pour ne laisser que :
If txtCalendrier.value < 0 Then
txtCalendrier.value = 0
End If
ou alors tu multiplies par -1 (txtCalendrier.value = txtCalendrier.value * -1), comme ça si l utilisateur entre -5, c est converti en 5.
entre nous, je pense aussi qu il faudrait aussi prévoir le cas où l utilisateur rentre de l alphabetique ou alphanumerique...
A toi de jouer.
-------------------------------
Réponse au message :
-------------------------------
Bonjour, j'ai un problème, je débute dans VB, mais j'en connais asser pour ne pas voir quel est le problème de ce script, pouvez vous m'aide..?
Mise en situation:
Je dois entrer le nombre de Calendrier à commender dans le textBox txtCalendrier.text et ensuite faire des calculs avec cette valeur. Mais je ne veux pas de nombres negatifs dans ce textbox, voici le code que j'ai fait pour en être sur:
If CCur(txtCalendrier.Text) < 0 Then
txtCalendrier.Text = ""
End If
Il me renvoie une erreur "Type incompatible" (Type Mismatch)
sur la 1er ligne de ce code... SVP Aidez moi :-)
RadioNails
|
|
|
|
samedi 8 septembre 2001 à 16:09:43 |
Mon graine de sel
int19h
|
Salut
Essai le code suivant :
Private Sub txtCalendrier_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub
En faite, on interdit les caracter autres que numerique.
Retourn un valeur toujours positive : ABS
exemple :
abs(5) = 5
abs(-6) = 6
Valeur numerique d'un string : VAL
val("Bonjour") = 0
val("123") = 123
Exemple plus complet :
txtCalendrier.Text = abs(Val(txtCalendrier.Text))
Mais y'a d'autre probleme avec cette fonction...
a+
int19h
|
|
|
|
lundi 26 juillet 2004 à 14:19:12 |
Re : Protection contre les negatifs
Icar02
|
If CCur(txtCalendrier.Text) < 0 Then
txtCalendrier.Text = ""
End If
ton txtCalendrier renvoie une valeur texte et tu demande unez comparaison avec une valeur numerique (<0)
Tu dois convertir en numeric ton text :
If CDbl(CCur(txtCalendrier.Text)) < 0 Then
essaie ça, je pense que ca devrai passer !
:-)
Icar02
|
|
|
Cette discussion est classé dans : problème, text, protection, negatifs, txtcalendrier
 Répondre à ce message
 Sujets en rapport avec ce message
Gros problème...Résultat opération.... [ par Chricl ]
je suis débutant et je rencontre le problème suivant:d = Text1.Textintschilling = dschilling = intschilling / 200.482schillingue = schilling * 6.55957
Problème d'enregistrer des textbox [ par Etienne ]
Comment fait-on pour enregistrer plusieurs textbox dans un fichier text, avec chaque text des textbox par ligne, avec la commande commondialog ? Etien
***MAYDAY**** [ par JoBlo ]
Hello a tous !J'ai un petit problème.Dans un programme, je dois écrire un texte dans un textbox. Par la suite, je dois faire apparaitre tout mon text
**encore besoin d'aide** [ par JoBlo(encore) ]
Rebonjour tous ! Merci beaucoup pour votre précédente aide. j'ai encore un petit problème pour vous !La situation : j'ai 3 text box et un command but
Problème avec fichier text [ par PtitJeoJeo ]
Tout d'abord merci de m'accorder un peu de ton temps !Alors voila mon problème :Je voudrais écrire dans un fichier text comme ceciopen "c:\essai.txt"
problème newbie de varibles [ par ganja120 ]
Bonjour,Comment fait-on pour mettre des variables avec du texte?textePrivate Sub Command2_Click()heurevar = heure.Textminutevar = minute.Textsecondeva
Problème de copie ! [ par z980x ]
J'ai avancé par rapport à mon ancient problème mais je n'ai pas encore trouvé la bonne solution.Voici mes lignes de codes :accès = "Text1.Text"Fichier
problème de zone de text vide [ par dauphin70 ]
bonjourvoici mon probleme sous vb6:dans mon programme il existe certaines zones de texte ou des DTPicker qu'on est pas forcé de remplir, mais le probl
Problème de fractionnement de ligne [ par opus32 ]
Bonjour, j'ai un message d'erreur que je ne comprend pas suite au fractionnement d'une ligne trop longue : DB.Execute "CREATE TABLE T_Client( _
Problème erreur de syntaxe URGENT [ par sheetmen ]
Voilà, en vb, je fais un insert dans ma table comme ceci: req1 = "INSERT into Client (datec, ticket, nom, prenom, adresse, localite, cid, numpc, heure
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|