Discussion :

[Ikart]

Bonjour,

J'aimerais, dans une gestion des stocks, à l'aide du super tutoriel de Claude Leloup http://claudeleloup.developpez.com/t...tion-de-stock/ créer un formulaire dans lequel j'affiche uniquement les produits dont le stock actuel est inférieur au stock limite.
Dans ce cas, j'ai un formulaire avec un bouton "Actualiser" à l'en-tête et en détail la description des différents articles, avec notamment le stock limite (donnée de ma table tArticles) et le stock actuel, calculé à l'aide d'une fonction VBA, qui se déclenche lorsque je clique sur le bouton.

Mon problème est que, lorsque je suis sur en formulaire continus et que je clique sur "Actualiser", le stock actuel s'affiche mais reste bloqué à celui du premier, c'est-à-dire que j'ai n fois le même stock pour mes n articles (ce qui n'est pas le cas).
Et lorsque je passe en formulaire unique, à chaque fois que je passe d'un article à l'autre, je dois re-cliquer sur le bouton "Actualiser" mais j'ai à chaque fois le bon stock.

Ma question est donc de savoir comment faire en sorte de pouvoir cliquer une fois sur mon bouton, et que tous les stocks s'actualisent de la bonne façon, en formulaire continus?

Merci d'avance,

Cordialement

EDIT : Après réflexion, je pense que le problème vient du fait que je ne peux pas (ou ne sais pas) sélectionner tous les enregistrements sur le formulaire en mode continus en même temps, est-il possible du coup de créer un code me permettant de les sélectionner et actualiser un-par-un?

[martii843]

Salut,

Utilise le RecordSet pour sélectionner les enregistrement un par un ou alors fais le calcul dans ta requête à l'aide de fonction ou d'une sous-requête.

[Ikart]

Bonjour,

Merci de ta réponse, je ne connais pas le Recordset j'ai donc regardé rapidement sur le forum et le site, et j'en suis arrivé à utiliser ce code:

Code :

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

1
2
3
4
5
Set Recordset = Me.Recordset
While Not Recorset.EOF
instruction...
Recordset.MoveNext
Wend

Mon enregistrement est bien parcouru, sauf qu'à la place d'avoir pour tous mes stocks actuel la valeur du premier Article, j'ai la valeur du dernier car les enregistrements ont étés parcourus jusqu'à obtenir le dernier.

Mon instruction est peut être trop simple?...

Code :

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

Me.txtStock = StockADate(txtArticleCode, Format(Date, "mm/dd/yyyy"))

Je ne sais pas si le problème vient donc le mon instruction qui n'est pas assez complète ou incorrecte, ou de mon Recordset...

[martii843]

Tu peux utiliser une boucle et un traitement simple comme :

Code :

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

1
2
3
4
5
6
7
8
Set Recordset = TonFormulaire.Recordset
 
Recordset.MoveFirst
 
Do
TonFomulaire!txtStock=StockADate(TonFomulaire!txtArticleCode, Format(Date, "mm/dd/yyyy"))
Recordset.MoveNext
Loop Until Recordset.EOF

[martii843]

Après si c'est simplement une fonction qui te fais ce calcul tu peux essayer de rajouter directement un champ dans ta requête par exemple R_txtStock : StockADate(txtArticleCode, Format(Date, "mm/dd/yyyy")) et ensuite mettre R_txtStock en contrôle de source de ton champ txtStock dans ton formulaire

[Ikart]

Merci beaucoup

Ton code me donnait le même résultat que le mien, mais la fonction dans la requête source a bien marché! Je ne savais même pas qu'on pouvait utiliser les fonctions du module VBA dans les requêtes, merci beaucoup