Message d ereur else sans if sous vb6
Fermé
the wizard
-
16 mars 2008 à 14:28
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 17 mars 2008 à 21:59
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 17 mars 2008 à 21:59
A voir également:
- Message d ereur else sans if sous vb6
- Notification messenger sans message - Forum Facebook Messenger
- Recuperer message whatsapp - Guide
- Message d'absence outlook - Guide
- Message non envoyé appuyez pour réessayer - Forum Mobile
- {"Message":"","status":"fail"} - Forum Instagram
7 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
17 mars 2008 à 07:36
17 mars 2008 à 07:36
bonjour,
Si je te mets le code ça ne va pas mettre fin à ton problème, bien au contraire, ça va être le début de tes problèmes.
Reprends tes cours et bosses. De plus, sers toi d'internet pour trouver des solutions et non pour demander qu'on fasses tes exercices.
;o)
Polux
Si je te mets le code ça ne va pas mettre fin à ton problème, bien au contraire, ça va être le début de tes problèmes.
Reprends tes cours et bosses. De plus, sers toi d'internet pour trouver des solutions et non pour demander qu'on fasses tes exercices.
;o)
Polux
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
16 mars 2008 à 14:43
16 mars 2008 à 14:43
Bonjour,
La syntaxe est ElseIf et non Else : If ...
Ensuite il n'y a aucune différence entre If IsNumeric(Text1.Text) et le EsleIf suivant ???
D'autre part, il faut que tu vérifies que la note soit bien comprise entre 0 et 20 ... ce que tu ne fais pas dans ton code.
Il est préférable d'utiliser une boîte à message pour signifer à l'utilisateur une erreur ou autre, par exemple :
If Text1.Text = "" Then
MsgBox "Veuillez entrer une note, svp ...", VbExclamation,"Message Erreur Saisie"
Text1.SetFocus 'pour donner le focus au textbox
Exit Sub 'pour mettre fin à la procédure
....
;o)
Polux
PS: Evites le mode écriture SMS, s'il te plaît, c'est pénible à lire: http://www.commentcamarche.net/ccmguide/ccmcharte ecriture.php3#ecriture
La syntaxe est ElseIf et non Else : If ...
Ensuite il n'y a aucune différence entre If IsNumeric(Text1.Text) et le EsleIf suivant ???
D'autre part, il faut que tu vérifies que la note soit bien comprise entre 0 et 20 ... ce que tu ne fais pas dans ton code.
Il est préférable d'utiliser une boîte à message pour signifer à l'utilisateur une erreur ou autre, par exemple :
If Text1.Text = "" Then
MsgBox "Veuillez entrer une note, svp ...", VbExclamation,"Message Erreur Saisie"
Text1.SetFocus 'pour donner le focus au textbox
Exit Sub 'pour mettre fin à la procédure
....
;o)
Polux
PS: Evites le mode écriture SMS, s'il te plaît, c'est pénible à lire: http://www.commentcamarche.net/ccmguide/ccmcharte ecriture.php3#ecriture
bonsoir,desole de vous deranger,mais comme je vous ai explique,ca fait a peine 20 heures de cours vb que j ai eu,donc je suis encore un debutant dans ce domaine.
pardonnez moi cela,car je sais bien que c est trop demande,mais s il vous plait redigez un code source pour mettre fin a mon problem,merci d avance
pardonnez moi cela,car je sais bien que c est trop demande,mais s il vous plait redigez un code source pour mettre fin a mon problem,merci d avance
oui cela est evident,sauf qu avec toutes les solutions que vous m avez donne,ca n a pas marche,c est pour cela que j ai cherche a avoir le code source direct,en tout cas je vous remerci de votre effort,et a la prochaine
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
17 mars 2008 à 13:49
17 mars 2008 à 13:49
lol, je n'ai donné aucun code ... comment peux-tu dire que ça ne marche pas ? ....
Ici c'est forum d'aide et c'est ce que je me suis efforcé de faire ... A toi de mettre en pratique ou non les conseils que l'on te donne. En 20 heures de cours, tu as du apprendre quelque chose et je doute fort que l'on te donne un exercice sur quelque chose que tu n'aurais pas déjà étudié.
polux
Ici c'est forum d'aide et c'est ce que je me suis efforcé de faire ... A toi de mettre en pratique ou non les conseils que l'on te donne. En 20 heures de cours, tu as du apprendre quelque chose et je doute fort que l'on te donne un exercice sur quelque chose que tu n'aurais pas déjà étudié.
polux
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
en tou cas je vous remerci de votre aide,il est vrai que je n arrive toujours pas a faire la difference entre else if et elseif,parceque a chaque fois je recoit le meme message du compilateur,qui di else sans if,et a vrai dire ca commence a me rendre fou ce truc
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
17 mars 2008 à 20:57
17 mars 2008 à 20:57
peux tu mettre ici ton code, pour qu'on puisse te dire ou est le blème ... As-tu corrigé ton premier code ?
je ne vous remercirai jamais assez,ca c sur,concernant mon code,il marche,en tout cas ca se compile sans probleme,mais il ne repond po a cent pourcent au tp,le voici
Private Sub Command1_Click()
resultat.text = "" 'c est pour reinitialiser tous les textes box
Text1.Text = ""
End Sub
Public Sub test_Click()
If IsNumeric(Text1) = True Then resultat = "c est une note"
If IsNumeric(Text1) = False Then MsgBox "Veuillez entrer une note, svp", vbExclamation
If Text1.Text = "" Then MsgBox "Veuillez entrer une note, svp", vbExclamation, "Message Erreur Saisie"
End Sub
maintenant j ai un autre problem,c est que sur ma copie du Tp,j ai un shema d une form(feuille)surlaquelle il y a un bouton quitter,je ne sais ni a quoi il doit servir,ni coment le creer sur mon code,pouvez vous m eclaircir un peu plus les choses
Private Sub Command1_Click()
resultat.text = "" 'c est pour reinitialiser tous les textes box
Text1.Text = ""
End Sub
Public Sub test_Click()
If IsNumeric(Text1) = True Then resultat = "c est une note"
If IsNumeric(Text1) = False Then MsgBox "Veuillez entrer une note, svp", vbExclamation
If Text1.Text = "" Then MsgBox "Veuillez entrer une note, svp", vbExclamation, "Message Erreur Saisie"
End Sub
maintenant j ai un autre problem,c est que sur ma copie du Tp,j ai un shema d une form(feuille)surlaquelle il y a un bouton quitter,je ne sais ni a quoi il doit servir,ni coment le creer sur mon code,pouvez vous m eclaircir un peu plus les choses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
17 mars 2008 à 21:59
17 mars 2008 à 21:59
il n'y pas le cas d'une note inférieure à 0 et supérieure à 20. Il faut l'inclure dans ton code.
Le bouton quitter est là pour fermer l'application ... il faut le créer avec le contrôle CommandButton de la boîte à outils et mettre le code derrière pour fermer l'appli.
Le bouton quitter est là pour fermer l'application ... il faut le créer avec le contrôle CommandButton de la boîte à outils et mettre le code derrière pour fermer l'appli.