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 > 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
Lea
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.
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
ba tu doi ètre en win16 ou ta VB5.0
donne moa ta config svp !
Dede.SurfVB@laposte.net
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.