cs_Mémère
Messages postés222Date d'inscriptionsamedi 24 mars 2001StatutMembreDernière intervention24 juin 2007
-
26 mars 2003 à 11:49
cs_clementpat
Messages postés406Date d'inscriptionlundi 2 décembre 2002StatutMembreDernière intervention25 janvier 2014
-
10 août 2006 à 11:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_clementpat
Messages postés406Date d'inscriptionlundi 2 décembre 2002StatutMembreDernière intervention25 janvier 2014 10 août 2006 à 11:51
Tres bien
DedeSurf
Messages postés156Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention23 novembre 2011 2 avril 2003 à 10:17
Merci
Lea
cs_tex
Messages postés116Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention23 mai 2004 26 mars 2003 à 13:52
Petite traduction du commentaire de steve :
il a dit que tu pouvais limiter ta boucle For Next à 512 car au delà ce sont des numéros d'erreur réservées aux erreurs définie par l'utilisateur.
Pour définir ta propre erreur tu fais : Err.Raise 513, "Mon projet", "Erreur : une erreur inconnue a causé une erreur fatale dans le module X38OJ (PS: dsl) !"
Voilà, en gros c ce qu'il a dit. A, oui, il te félicite aussi pour ton code, mais ça je pense que tu l'avais compris :)
Thanks steve for your help.
@+ tex
PS: j'aime bien ce côté international que prend le site.
stevebelgium
Messages postés180Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 7 juin 20031 26 mars 2003 à 13:07
That's all that I know . If you want to know more tell me how !
VB 6.0 32-bit
Version 8176
VBA Retail : 6.0.8169
Forms3 : 2.01
----------------------------
Example CODE :
Private Sub Command1_Click()
Dim Name As String
If Name = "steve" Then
MsgBox "ok"
Else
Err.Raise 999, "My_project", "Wrong name !"
End If
End Sub
DedeSurf
Messages postés156Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention23 novembre 2011 26 mars 2003 à 12:49
stevebelgium > si jè bien compris les limites de Error() est 512 ?
ba tu doi ètre en win16 ou ta VB5.0
donne moa ta config svp !
Dede.SurfVB@laposte.net
stevebelgium
Messages postés180Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 7 juin 20031 26 mars 2003 à 12:39
You can limit your loop till 512 because the range 513?65535 is only for user-defined errors . I hope you will at least remember the errors that you raised yourself ;-)
Though , well done !
See MSDN Library :
object.Raise number
Number : Required.Long integer that identifies the nature of the error. Visual Basic errors (both Visual Basic-defined and user-defined errors) are in the range 0?65535. The range 0?512 is reserved for system errors; the range 513?65535 is available for user-defined errors. When setting the Number property to your own error code in a class module, you add your error code number to the vbObjectErrorconstant. For example, to generate theerror number 513, assign vbObjectError + 513 to the Number property.
For x = 0 To 65535
If LCase(Text2) = LCase(Error(x)) Then
'Ici je recherche a la barbare le numero d'erreur qui correspond a la saisie de text2
MsgBox "" & Text2 & " = Erreur N°" & x & "", , "Resultat"
Exit Sub
End If
Next
cs_Mémère
Messages postés222Date d'inscriptionsamedi 24 mars 2001StatutMembreDernière intervention24 juin 2007 26 mars 2003 à 11:50
ça fait combien de temps que tu fais du vb? Tu as appris tout seul??
cs_Mémère
Messages postés222Date d'inscriptionsamedi 24 mars 2001StatutMembreDernière intervention24 juin 2007 26 mars 2003 à 11:49
Non sans dec' c'est vraiment top!
cs_Mémère
Messages postés222Date d'inscriptionsamedi 24 mars 2001StatutMembreDernière intervention24 juin 2007 26 mars 2003 à 11:49
Ah oui, bravo! Ca fait des années que je cherche comment faire!!!! Merci!!!!!!!!!!
10 août 2006 à 11:51
2 avril 2003 à 10:17
Lea
26 mars 2003 à 13:52
il a dit que tu pouvais limiter ta boucle For Next à 512 car au delà ce sont des numéros d'erreur réservées aux erreurs définie par l'utilisateur.
Pour définir ta propre erreur tu fais : Err.Raise 513, "Mon projet", "Erreur : une erreur inconnue a causé une erreur fatale dans le module X38OJ (PS: dsl) !"
Voilà, en gros c ce qu'il a dit. A, oui, il te félicite aussi pour ton code, mais ça je pense que tu l'avais compris :)
Thanks steve for your help.
@+ tex
PS: j'aime bien ce côté international que prend le site.
26 mars 2003 à 13:07
VB 6.0 32-bit
Version 8176
VBA Retail : 6.0.8169
Forms3 : 2.01
----------------------------
Example CODE :
Private Sub Command1_Click()
Dim Name As String
If Name = "steve" Then
MsgBox "ok"
Else
Err.Raise 999, "My_project", "Wrong name !"
End If
End Sub
26 mars 2003 à 12:49
ba tu doi ètre en win16 ou ta VB5.0
donne moa ta config svp !
Dede.SurfVB@laposte.net
26 mars 2003 à 12:39
Though , well done !
See MSDN Library :
object.Raise number
Number : Required.Long integer that identifies the nature of the error. Visual Basic errors (both Visual Basic-defined and user-defined errors) are in the range 0?65535. The range 0?512 is reserved for system errors; the range 513?65535 is available for user-defined errors. When setting the Number property to your own error code in a class module, you add your error code number to the vbObjectErrorconstant. For example, to generate theerror number 513, assign vbObjectError + 513 to the Number property.
---------------------------------------------------------------
Your source ( Partial ) :
For x = 0 To 65535
If LCase(Text2) = LCase(Error(x)) Then
'Ici je recherche a la barbare le numero d'erreur qui correspond a la saisie de text2
MsgBox "" & Text2 & " = Erreur N°" & x & "", , "Resultat"
Exit Sub
End If
Next
26 mars 2003 à 11:50
26 mars 2003 à 11:49
26 mars 2003 à 11:49