Discussion :

[trouvaille]

Bonjour,

Dans un sous formulaire représentant un suivi de commande, j'ai entre autres la QuCde (quantité en commande) et QuIN (quantité livrée).

ayant une longue liste d'Article en commande dans ce formulaire, j'aimerai sur un clic bouton Que la QuIN soit égale à la QuCde pour tout les articles. Bouton qui me servirait après contrôle physique de la réception de mes articles sous condition que tout les articles commandés soient arrivés, de cliquer sur ce bouton m'évitant ainsi la modification article par article de la QuIN.

Une fois les QuIn remplis, je clic sur une bouton de validation qui lui, modifie les différentes tables (ce bouton fonctionne bien déjà).

En fait c'est vraiment pour éviter de remplir le QuIN article après article alors que je sais que la réception de ma commande est complète donc que les QuIN correspondent à leur QuCde respectifs.

Merc de votre aide.

[tee_grandbois]

bonjour,

Une fois les QuIn remplis, je clic sur une bouton de validation qui lui, modifie les différentes tables (ce bouton fonctionne bien déjà).

peut-on voir le code actuel, ainsi qu'une impression d'écran du formulaire ?

[trouvaille]

Ci-dessous le code du bouton valider la réception
je n'ai pas encore de code pour le bouton que je veux créer remplissant par égalité la quantité livrée à celle commandée....

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub ConfirmerSuivi_Click()
 
Dim Condi As Integer: Dim Art, Tai, requete, choix As String
Dim base As Database: Dim ligne As Recordset
 
 
    'If Livraison.Value = 0 Then
    'choix = MsgBox(" Toutes les livraisons ne sont pas complètées, êtes-vous certaine de vouloir quitter le formulaire de réception?", vbYesNo, "Aucune réception?")
    '6 pour oui et 7 pour non
    'If choix = 7 Then
    'Exit Sub
    'End If
    'End If
 
       'Mise à jour des Quantités reçues (QuIn1) en rapport à la livraison (Livraison)
CurrentDb.Execute "UPDATE T_CdeMagDetail SET T_CdeMagDetail.QuIN1 = [QuIN1] + [Livraison]  WHERE  NCde='" & numcom & "'", dbFailOnError
 
 
    'Mise à jour des Suivis selon les conditions y afférentes
CurrentDb.Execute "UPDATE T_CdeMagDetail SET T_CdeMagDetail.Suivi = '" & "Complet" & "'  WHERE  QuIN1 = QuCde And NCde='" & numcom & "'", dbFailOnError
CurrentDb.Execute "UPDATE T_CdeMagDetail SET T_CdeMagDetail.Suivi = '" & "Commandé" & "'  WHERE T_CdeMagDetail.QuIN1 = 0 And NCde='" & numcom & "'", dbFailOnError
CurrentDb.Execute "UPDATE T_CdeMagDetail SET T_CdeMagDetail.Suivi = '" & "Partiel" & "'  WHERE  NCde='" & numcom & "' And QuIN1 < QuCde And QuIN1 <> 0 And NCde= '" & numcom & "'", dbFailOnError
 
 
    'Mise à jour
Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("SELECT * FROM T_CdeMagDetail WHERE NCde='" & numcom & "'", dbOpenDynaset)
ligne.MoveFirst
Do
Condi = ligne.Fields("Livraison")
Art = ligne.Fields("Article")
Tai = ligne.Fields("Taille")
If Condi > 0 Then
    'Mise à jour du Stock
requete = "UPDATE T_Stock SET T_Stock.QUANTITE = [QUANTITE]+ " & Int(Condi) & " WHERE (((T_Stock.Article) = '" & Art & "') and ((T_Stock.Taille) = '" & Tai & "'))"
base.Execute requete
    'Mise à jour des Quantités commandées en rapport à la livraison pour T_Stock
CurrentDb.Execute "UPDATE T_Stock SET T_Stock.Stock_Cde = [Stock_Cde] - " & Int(Condi) & "  WHERE (((T_Stock.Article) = '" & Art & "') and ((T_Stock.Taille) = '" & Tai & "'))", dbFailOnError
    'Mise à jour des Quantités commandées en rapport à la livraison pour T_CdeMagDetail
'CurrentDb.Execute "UPDATE T_CdeMagDetail SET T_CdeMagDetail.QuCde = [QuCde] - " & Int(Condi) & "  WHERE (((T_CdeMagDetail.Article) = '" & Art & "') and ((T_CdeMagDetail.Taille) = '" & Tai & "'))", dbFailOnError
 
End If
ligne.MoveNext
Loop Until ligne.EOF
 
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing
 
    'Remise à zéro Livraison
CurrentDb.Execute "UPDATE T_CdeMagDetail SET [Livraison] = 0  WHERE  NCde='" & numcom & "'", dbFailOnError
 
Me.Requery
 
DoCmd.Close acForm, "F_SuiviCdeMag"
DoCmd.OpenForm "Menu EB"
 
 
End Sub

[trouvaille]

[Robert1957]

Bonjour trouvaille, tee_grandbois,

Si

j'aimerai sur un clic bouton Que la QuIN soit égale à la QuCde pour tout les articles

est bien ce que tu désires, le code pour cela est:

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
Private Sub btnUpDateTotal_Click()
On Error GoTo gestion_err
 
    Dim db As DAO.Database: Set db = CurrentDb
    Dim strSQL As String
 
    'Ici la requête de mise à jour du champ QuIn
    strSQL = "UPDATE T_TaTable SET T_TaTable.QuIN = [QuCde] " _
    & "WHERE T_TaTable.NUM_COMMANDE_FK=" & Chr(34) & Me.LeNomDuChampDuNuméroDeLaCommande & Chr(34) & ";"
    'Ici je suppose que le nom du champ qui fait le lien est NUM_COMMANDE_FK
    db.Execute strSQL, dbFailOnError
    Set db = Nothing
    Me.LeNomDuSousFormulaire.Form.Requery  'Pour mettre à jour le sous formulaire
 
Sortie:
Exit Sub
gestion_err:
MsgBox Err.Description & Chr(13) & "Erreur # " & Err.Number
Resume Sortie
End Sub

Bonne journée

[trouvaille]

Super génial..;et moi qui me casse le ... à essayer de travailler sur le formulaire, alors que de travailler l'Update sur la table et ensuite mettre à jour le formulaire était aussi simple.

Un grand merci de l'aide.

[tee_grandbois]

bonjour trouvaille et Robert1957,
on peut aussi utiliser Me.RecorsSetClone pour mettre à jour: c'est la copie du RecordSet du sous-formulaire affiché, l'avantage c'est qu'il n'y aucune sélection à faire puisqu'elle est "naturelle" avec champ pères/champs fils ...