Discussion :

[amzyr]

Bonjour à tous,
Svp, j’ai besoin d’aide en vba (je suis novice).
Mon problème est que ma boucle ne fait pas tous les enregistrements, je dois modifier chaque ligne saisie du sous formulaire dans ma table produits, le pb c’est qu’il modifie d’une ligne : formulaire :commande2 ; sous formulaire : DetCdeSForm ; voilà ma le code que j’ai mis :

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
Option Compare Database
Dim rs As DAO.Recordset
Dim n As Integer
Private Sub Commande21_Click()
 
With Forms("commandes2").Controls("DetCdeSform").Form.RecordsetClone
  .MoveLast
  Debug.Print .RecordCount
  n = .RecordCount
 
End With
    Set rs = CurrentDb.OpenRecordset("Produits", dbOpenDynaset)
    Do While i < n
 
    rs.FindFirst "[Réf Produit] = " & Me!DetCdeSform![Réf Produit].Value
    rs.Edit
    rs("stock") = rs("stock") - Me!DetCdeSform!Quantité.Value
      rs.Update
       i = i + 1
 
 Loop
 
End Sub

Merci bcp

[paidge]

Bonjour à toi,
Un peu de recherches sur le forum et dans les tutoriels et tu trouveras ta réponse
Forum : J'ai posté ça ce matin

Tutoriel : Définition et manipulation de données avec DAO

Tu n'as pas besoin d'un .moveLast pour récupérer le .RecordCount de ton recordset. Un simple :

Code :

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

1
2
3
4
5
6
7
    Do While Not rs.EOF
        rs.Edit
        rs(0) = uneValeur
        rs(1) = uneAutreValeur
        rs.Update
        rs.MoveNext
    Loop

fait l'affaire

Tu as oublié le .moveNext donc tu ne passes pas sur l'enregistrement suivant de ton recordset. Un peu de lecture ne te feras pas de mal

[amzyr]

bonjour Paidge.
Merci pour ta éponse et ton conseil, j'ai lu les deux liens et voilà ce que j'ai pu faire (sans oublier que je suis un débutant):
le problème que j'ai maintenant c'est qu'il ne modifie que le premier enregistrement, le reste rien. merci d'avance

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
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Dim strsql As String
Dim n As Integer
 
Private Sub Commande21_Click()
 
strsql = "select [stock]" & " from produits" & " where [réf produit]=" & Me!DetCdeSform![réf produit].Value & Quantité & ""
Set rs = CurrentDb.OpenRecordset(strsql)
 
Do While Not rs.EOF
For Each fld In rs.Fields
  rs.Edit
  rs("stock") = rs("stock") - Me!DetCdeSform!Quantité.Value
  rs.Update
 Next fld
 rs.MoveNext
Loop
 
End Sub

[Invité]

Bonjour

Pourquoi & Quantité dans ta requête SQL

Pourquoi parcourir tous les champs For Each fld In rs.Fields
alors que tu ne modifies que le champ Stock ?

réf produit c'est un numérique ?

Dans ta table produit, celui-ci n'apparait qu'une seule fois ? S'il apparait plusieurs fois, je pense que tu as un petit soucis de conception.

Philippe

[amzyr]

Bonjour Philippe,
Merci bcp pour ton aide et le temps que tu m’accordes.
Ci-joint une doc avec image écran, Tables: Produits, détail produit; formulaire :commande2 (inclus le sous fomulaire DetCdeSform).

- Pourquoi & Quantité dans ta requête SQL: c'était sur le début pour garder la bonne Réf Produit.
- Pourquoi parcourir tous les champs For Each fld In rs.Fields
alors que tu ne modifies que le champ Stock ? heu oui c'est vraie.

En fin c'est une base de donnée qui me sert à gérer les stocks, le formulaire me créer un BL et quand je clique sur le bouton il devrait mettre à jour mon stock.
je bloc, je n'arrive pas à m'avancer.

Voilà je pense que j'ai détaillé un peu ma base. Merci encore