Bonjour à tous !
J'ai un petit problème concernant l'incrémentation d'un nombre. Je n'ai jamais effectué cela auparavant, je ne suis pas non plus doué en programmation, et j'ai donc un peu de mal. Après diverses recherches sur le sujet, j'ai essayé de faire un petit bout de code, mais qui ne donne pas grand chose.
L'idée principale est de chercher dans la base de données le fichier Produit, et de vérifier si cette base est vide. Si elle l'est, on doit créer le premier enregistrement qui sera ajouté par programmation. Une fois cet enregistrement créé, lors de la création du second enregistrement, on verifie si la base est vide, et comme elle ne l'est pas, on incrémente le dernier numéro. Et à chaque enregistrement, on incrémentera le dernier numéro utilisé (code barre).
Voici mon bout de code:
Ce code ne fonctionnant pas, merci de me proposer des améliorations du code !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 n est un entier = Produit.CodeBarreInterne HLitRecherche(Produit,CodeBarreInterne,"427600001") SI HTrouve() ALORS HLitDernier(Produit,CodeBarreInterne) SAI_CodeBarreInterne=n+1 SINON SAI_CodeBarreInterne=427600001 FIN
Merci à tous !
Partager