ajout données dans une table [Résolu]

[rose0729]

Bonjour,
J’ai une table ou j’ai alimenté une réception de produits :

exemple :
réf produit : 408200
Q vrac : 500
Q/unité : sachet de 25
Q/sachet : 20

Comment je pourrais faire, pour créer une table qui m’ajoute 20 fois le même produit, pour que j’édite 20 étiquettes.

Es ce possible ?

Merci de me donner une idée.

[marot_r]

À mettre dans un module et a adapter à ton besoin. Il faudra peut-être ajouter un code produit en paramètre.

Code :

1
2
3
4
5
6
7
8
9
10
public sub AjouterEtiquette(prmNbEtiquette as long)
  dim db as dao.database:set db=currentdb
  dim r as dao.recordset:set r=db.openRecordset("NomTaTable")
  dim i as long: for i=1 to prmNbEtiquette
     r.addnew 'crée un nouvel enr
     r![nomTonChamp]=TaValeur 'ici ce qiue tu veux mettre dans la table
     r.update 'Sauvegarde le nouvel enr
  next i
  set db=nothing
end sub

[rose0729]

oh merci pour l'idée marot r
je teste et je te tiens au courant

[rose0729]

j'en suis là !
je suis bloquée sur la ligne rose, j'ai comme message :
"trop peu de paramètre. 1 attendu"
pourtant ma requête est bien alimentée

Merci, si vous avez une idée

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Dim db As dao.Database
  Dim r As dao.Recordset
  Dim s As dao.Recordset
  Dim i As Long
  Dim j As Long
  Set db = CurrentDb()
  Set r = db.OpenRecordset("RQreceptionEtiquette") 'requête ou j'ai les info
  Set s = db.OpenRecordset("dbo_etiquette") 'table ou je veux mettre les quantités d'étiquette voulues
  r.MoveFirst
  While Not r.EOF
  j = Int(r![QL] * r![QU])
   For i = 1 To j
       s.AddNew 'crée un nouvel enr
     s![numReception] = r![numReception] 'ici ce qiue tu veux mettre dans la table
     s![Codeproduit] = r![Codeproduit]
     s![QL] = r![QL]
     s.Update 'Sauvegarde le nouvel enr
  Next i
  Set db = Nothing

[rose0729]

Evidemment que j'avais un message ! j'avais mal fait ma requête !
voilà la solution et ça marche
Merci à toi marot r

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Dim db As Database
  Dim r As Recordset
  Dim s As Recordset
  Dim i As Long
  Dim j As Long
  Set db = CurrentDb()
  Set r = db.OpenRecordset("rqreceptionetiquette")  'requête ou j'ai les info
  Set s = db.OpenRecordset("dbo_etiquette") 'table ou je veux mettre les quantités d'étiquette voulues
  r.MoveFirst
  While Not r.EOF
  j = Int(r!QL * 1)
   For i = 1 To j
       s.AddNew 'crée un nouvel enr
     s![numReception] = r![numReception] 'ici ce qiue tu veux mettre dans la table
     s![Codeproduit] = r![Codeproduit]
     s![QL] = r![QL]
     s.Update 'Sauvegarde le nouvel enr
  Next i
  r.MoveNext
  Set db = Nothing