Discussion :

[Kyndred40]

Bonjour,
Je viens vers vous car je suis entrain de faire un formulaire pour gérer le Surplus, en gros j'ai un formulaire ou j'ai tout les enregistrements ou il y a du Surplus qui s'affiche:

Puis je coche l'enregistrement auxquelles je souhaite enlever ce Surplus pour l'affecter à une autre commande qui possède la même référence !


Mais lorsque je met une valeur au champ Ventilation celui-ci ne s'enlève pas du champ Surplus de l'enregistrement précédemment coché en gros quand je met 5 à Ventilation j'aimerai que Surplus diminue de 5 ?
ce code correspond a la première capture :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
 
Private Sub Ventilation_AfterUpdate()
 
DoCmd.RunSQL " UPDATE EnAttPlanification SET Surplus = Surplus - Ventilation" & _
            " WHERE Choix=-1;"
 
'Me.Surplus = Surplus - Ventilation
'Me.QteManquante = QteManquante - Ventilation
'WHERE Choix = -1
 
End Sub
 
Private Sub Ventiler_Click()
 
'DoCmd.OpenForm "F_Surplus3"
'Ici faire afficher un formulaire qui montre les N° identique ...
' et possibilité de changer surplus...
majSousFormulaire
 
End Sub
 
 
Public Sub majSousFormulaire()
Dim RS As DAO.Recordset
Dim SQL As String
 
       SQL = "SELECT * " & _
             "FROM EnAttPlanification  " & _
             "WHERE EnAttPlanification.Choix=-1 ;"
           '  "WHERE EnAttPlanification.Numero = EnAttPlanification.Numero " & _
             "WHERE EnAttPlanification.Choix=True ;"
 
             Set RS = CurrentDb.OpenRecordset(SQL)
 
 
 DoCmd.OpenForm "F_Surplus3", , , "NumArticle = '" & RS.Fields("NumArticle").Value & "'"
End Sub

Et celui-ci à la deuxième :

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 QteManquante_AfterUpdate()
 
Me.QteManquante = QteManquante - Ventilation
 
 
 
End Sub
 
Private Sub Ventilation_AfterUpdate()
    CurrentDb.Execute "UPDATE EnAttPlanification SET EnAttPlanification.Surplus = [Surplus]-[Ventilation]" _
    & " WHERE Choix = True", dbFailOnError
 
    Me.QteManquante = QteManquante - Ventilation
 
End Sub

J'espère que je me suis correctement exprimé afin que vous compreniez mon problème.

[hyperion13]

Salut
Dans tes query UpDate() tu n'indiques pas entre-autre la relation entre le champ "commande" de F_Surplus2,avec celui de F_Surplus3.
La "commande" correspond à quel champ dans les 2 frm ? Je note que des données sont différentes entre les 2 articles.

[Kyndred40]

Bonjour,
Il n'y a pas de champ commande (enfaite chaque enregistrement (ligne)) correspond à une commande dans les formulaires.
Oui des données sont différente entre les deux articles et c'est tout à fait normal, quand je clique sur Ventiler il m'ouvre un formulaire "F_Surplus3" avec les enregistrements possédant la même référence (NumArticle) que l'enregistrement précédemment coché dans "F_Surplus2" .

Voici une BDD avec juste les formulaire concerné : SURPLUS DATABASE.rar
Car pour le moment c'est le champ Ventilation à côté de l'enregistrement coché qui est pris en compte dans la diminution hors de préférence j'aimerai même que ce champ ne soit plus présent.

[hyperion13]

Que je comprenne bien.
Dans F_Surplus2,tu coches un article (3ème ligne) parce que Surplus>0. Tu dois donc ouvrir F_Surplus3,pour t'assurer qu'il y a une correspondance. Si correspondance, le Surplus=2,dans F_Surplus2,doit passer à 0 pour être affecté au Surplus de l'article correspondant dans F_Surplus3,

[Kyndred40]

C'est cela, si le Surplus avait été de 20 et qu'on en met 10 il en reste 10 encore en Surplus mais oui dans l'idée c'est ça.
Le surplus qui est dans F_Surplus2 quand il est affecté dans F_Surplus3 cela fait diminué la QteManquante de l'article (cela fonctionne déjà).
En gros vu qu'il y a du Surplus on met ce Surplus sur une autre commande pour évité d'en produire plus que nécessaire (diminution de la QteManquante)

[hyperion13]

Ok, c'est dans F_Surplus3,qu'il faudra saisir la valeur de Surplus pour qu'on puisse diminuer celui dans F_Surplus2.
Et si dans F_Surplus3,il y avait plusieurs mêmes articles ?