Discussion :

[Yo1LTM]

Bonjour a tous,

Je cherche depuis quelques temps la solution a un problème auquel je fait face, je m'explique :

J'ai au travail un fichier Access (Gestion de stock) relié à un autre fichier (Stock)
Mon fichier gestion de stock me permet de générer un Etat "A commander" grâce un Formulaire. (Contenant les références que je dois commander grâce un simple calcul [Stock Minimum]-[Stock])
Mon but est de faire en sorte que lorsque ma commande a été passée, je puisse cliquer sur un bouton et qu'ainsi mes références n'apparaissent plus dans mon Etat "A commander".

Pour ce faire, j'ai ajouté a ma table "stock" un champ "commandé" avec un type de donnée "oui/non", et ajouté la condition a mon formulaire.
Manuellement, je peux donc faire en sorte de modifier cette donnée et ca fonctionne, ma référence n'apparait plus dans mon Etat "A commander".

Cependant j'aimerais qu'en cliquant sur un bouton depuis mon Etat, cette donnée soit modifiée automatiquement pour la référence concernée mais impossible de trouver comment faire.

Quelqu'un aurait il une solution à me proposer ?

Cordialement,

[frabeau]

Bonjour,

Est-ce que tu gères le passage en commande dans ta base, auquel cas il suffit de faire un test Stockmini - Stock + commande ?

[tee_grandbois]

bonjour,

Cependant j'aimerais qu'en cliquant sur un bouton depuis mon Etat, cette donnée soit modifiée automatiquement pour la référence concernée mais impossible de trouver comment faire.

tu peux passer par une requête de mise à jour sur clic de ton bouton:

Code :

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

1
2
3
Dim stSQL as string
stSQL = "update stock set [commandé] = True  where Idcommande = " & Me.Idcommande   ' <==== à adapter selon l'identifiant de la table
Currentdb.Execute  stSQL, dbFailOnError

Cela dit cela ne va traiter que l'enregistrement en cours.
Pour mettre à jour tout ce qui a été sélectionné, il faudra utiliser les données de l'état et mettre à jour les enregistrements à la fermeture de l'état (ou à l'impression), par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Report_Close()
Dim oRst As Recordset
Set oRst = Me.RecordSetClone
If Not oRst.EOF Then
    oRst.MoveFirst
    Do Until oRst.EOF
        oRst.Edit
        oRst.Fields("commandé") = True
        oRst.Update
        oRst.MoveNext
    Loop
End If
Set oRst = Nothing
 
End Sub

[Yo1LTM]

Bonjour,

Merci a vous d'avoir pris le temps de me répondre.
Je suis effectivement parvenu a solutionner ma problématique grâce à une requête de mise a jour de ma valeur "Commandé" Oui/non.
Je n'ai cependant pas eu recours a l'utilisation d'une boucle comme dans l'exemple si dessus, j'ai uniquement fait appelle à des conditions (Ex: si "Stock > Stock Mini" et que "A commandé = True" alors au click "A commander = False".
J'ai ensuite modifié la requête qui génère ma liste d'articles a commander pour qu'elle prenne en compte la valeur "A commander" et qu'ainsi seul les références pour lesquelles la valeur est "true" apparaissent.
Puis j'ai fait appel a la requête inverse pour que lorsque le magasinier entre une référence en stock, la valeur "A commander" redevienne "True".
J'espère avoir réussi a me faire comprendre !

Merci beaucoup d'avoir pris le temps de m'aider, au plaisir d'échanger a nouveau avec vous ici.

Cordialement,