Discussion :

[Asdorve]

Salut à tous.

Voilà ce qui vient d'arriver, si quelqu'un a une explication rationnelle...

J'ai créé il y a quelques semaines une appli qui génère des étiquettes avec adresses de livraison, code barre et nombre de colis (sur trois caractères).

Autrement dit,
si j'ai entre 1 et 9 colis : 00X
si j'ai entre 10 et 99 colis : 0XX
si j'ai entre 100 et 999 colis : XXX

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
  If NbColis < 10 Then
            VarFin = "00" & NbColis
        End If
        If (NbColis >= 10 And NbColis < 100) Then
            VarFin = "0" & NbColis
        End If

Jusqu'à aujourd'hui, c'est au total environ 5000 étiquettes qui ont été imprimées, soit une centaine par jour, autrement dit, il s'agirait là de 5000 tests supplémentaires...

Mais voilà, aujourd'hui il y a eu un bug, et un seul: j'ai eu le résultat suivant

Colis 001/00001 au lieu de 001/001.

Quelqu'un verrait ce qu'il s'est passé?

[argyronet]

Bonjour,

Et la fonction Format()!!! Tu l'as oublié ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VarFin = Format(NBColis, "000")

C'est autrement plus simple sans If et sans failles...

Argy

[Asdorve]

Merci, je connaissais pas format()

Mais ça viendrait d'une faille du if?

[AlainTech]

Mais ça viendrait d'une faille du if?

J'en doute fort.

[Asdorve]

c'est bizarre alors...

[AlainTech]

Je dirais plutôt que, pour une raison ou une autre, tu passes plusieurs fois dans ton "ajout" de zéros.

Avec Format, tu peux le faire aussi souvent que tu veux, le résultat restera le même.

[Asdorve]

c'est vrai que mes if sont dans une boucle Do Loop

Il se pourrait donc qu'il y ai eu un passage où ça aurait planté, non?

[AlainTech]

Autrement dit, une condition à laquelle tu n'aurais pas pensé.

[Asdorve]

Mais pourquoi ça a marché dans tous les autres cas similaires? Le nombre d'étiquettes est aléatoire, tout dépend les commandes qu'on a.
Le cas qui s'est produit ce matin n'est pas exeptionnel quand au travail à effectuer, tous les jours il y a des commandes avec 1 seul colis.

La seule chose qui a changé, ,c'est l'utilisateur.

[AlainTech]

Un bon code ne permet pas à l'utilisateur de provoquer des erreurs...

[Asdorve]

je sais, c'est une absurdité que j'ai dite en parlant d'un changement d'utilisateur. Pour le code, qui est long certes, je pense qu'en lui même y'a pas trop de soucis, il a fait ses preuves.
D'ailleurs, quand j'ai fait la même manip que l'utilisateur de ce matin, et ^ce plusieurs fois, il n'y a eu aucun pb.

[Actarus69]

mouai bizarre...

est-ce l'utilisateur qui saisi le nombre ??? si oui il a pu saisir "001" qui est plus petit (quand évalué par Vb) que 10 ...et donc en rajoutant devant "00"....ça donne ton erreur...

je connaissais pas non plus format (jamais eu la curiosité de chercher), merci je saurais....
car jusqu'à maintenant j'étais assez crading sur ce genre de truc... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
VarFin = right("000" & NbColis,3)

[Asdorve]

mouai bizarre...

est-ce l'utilisateur qui saisi le nombre ??? si oui il a pu saisir "001" qui est plus petit (quand évalué par Vb) que 10 ...et donc en rajoutant devant "00"....ça donne ton erreur...

non, ce sont des infos récupérées dans la base de données, mais au bon format (pas d'erreur possible) normalement.

Perso, j'ai fait quelques modif sur mon appli pour éviter que ça se reproduise (j'ai mis des Format() partout où c'était nécessaire) et j'ai fait en sorte que les utilisateurs puissent faire une chose à la fois pour éviter un éventuel bug (ce qu'on appelle le "worst case").

Merci à ceux qui se sont penché sur le sujet.
Je mets Résolu (pour l'instant...)