erreur "6"

[rvkgb]

Bonjour à tous,

Sur le fichier en PJ ou je gère des entrées/sorties, il se produit une erreur d'exécution "6" lorsque je fais des sorties de stock sur tous les articles sauf le premier article ou ça fonctionne. Les entrées en stock fonctionnent bien sur tous les articles.
Merci de votre aide.
A++

 

[jp14]

Re : erreur "6"

Bonjour

Il faut pour éviter l'erreur modifier la propriété Max ou Min du contrôle SpinCompteur.
Le code suivant permet de limiter les entrées sorties.

    If SpinCompteur.Value > SpinCompteur.Max Then SpinCompteur.Value = SpinCompteur.Max
     If SpinCompteur < SpinCompteur.Min Then SpinCompteur.Value = SpinCompteur.Min

Jp

 

[rvkgb]

Re : erreur "6"

Bonjour jp,

Merci pour ta réponse précise. Avant que j'aille plus loin, je le colle ou le code?
A++
RV

 

[jp14]

Re : erreur "6"

Bonjour

Il faut mettre le code dans la procédure : Private Sub SpinCompteur_Change()

JP

 

[rvkgb]

Re : erreur "6"

Re,

Super!
Merci encore & bonne fin de journée.

 

[rvkgb]

Re : erreur "6"

Re,

jp, malgré le code j'ai encore cette erreur d'exécution "6"
Tu peux jeter un œil s'il te plais.
je te remercie d'avance.
RV

 

[jp14]

Re : erreur "6"

Bonjour

L'erreur provient de la valeur en stock. Avec un entier la valeur maxi est de 32 767. Il faut remplacer Cint par Clng.

JP

 

[rvkgb]

Re : erreur "6"

Merci JP, enfin ça marche!
Bonne fin de journée à tous.