Enregistrement Multiple pour Saisie Unique

**SeaWolf601** · 24/10/2006, 15h20

Hello,

Voila mon soucis, c'est un probleme de gestion de stock.

J'ai un formulaire pour enregistrer des produits que je recoit.
ex : 10 ecrans 17' plat, marque : truc, fournisseurs : bidule.
jusque là rien de complexe.

Seulement une fois ces 10 ecran rentré dans mon formulaire il me faut une requete qui me copie 10 fois le meme enregistrement mais avec 1 (lisez unité) écran à chaque enregistrement.

Vous voyez ce que je veux dire ?

Je sais même pas par ou commencer, j'avoue.

**Arola78** · 24/10/2006, 15h34

Bonsoir,
Tu dupliques 10 fois dans la même table ta ligne où il y a quantité = 10 en valorisant quantité = 1, c'est cela ?

**SeaWolf601** · 24/10/2006, 15h40

Exactement, dans la même ou dans une differente. ça n'as pas d'importance.

**Arola78** · 24/10/2006, 15h44

As tu essayé qqchose dans ce genre :

INSERT INTO table
(quantité, fournisseur, marque)
SELECT 1, fournisseur, marque,
FROM table WHERE quantité = 10

A faire 10 fois évidemment

**SeaWolf601** · 24/10/2006, 15h51

Sur le bouton d'enregistrement de mon stock ? (via mon formulaire).

ça doit pas être ça.

C'est pas du SQL par hasard ? (parceque là je touche pas une bille... dans le reste non plus d'ailleurs

).

**p'tite Sandrine** · 24/10/2006, 15h55

Hello,

pourquoi dupliquer 10fois le même article?

**SeaWolf601** · 24/10/2006, 15h56

Envoyé par p'tite Sandrine

Hello,

pourquoi dupliquer 10fois le même article?

Bonne question.

Parceque mon boss veut pouvoir traiter les articles à l'unité par la suite.

**Arola78** · 24/10/2006, 16h00

Au moment où tu confirmes la saisie de tes 10 écrans, par exemple.
Mais attention à ne pas te retrouver avec 20 pièces au lieu de 10 !!
Peut être faudra-t-il supprimer la ligne de 10 pièces qui t'aura servi à dupliquer les autres, à toi de voir.

DELETE from table WHERE quantité = 10 and marque = .... and fournisseur = ...

**random** · 24/10/2006, 16h00

soit un formulaire
avec un champ qte
un champ design
un bouton de commande

une table matab
avec
qute
designation
le code suivant sur le bouton commande devrait te faire ça

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
 
private Sub Commande9_DblClick(Cancel As Integer)
Dim boucle As Long
Dim mabase As DAO.Database
Dim matab As DAO.Recordset
Set mabase = CurrentDb()
Set matab = mabase.OpenRecordset("matable")
For boucle = 1 To CLng(Me.QTE)
matab.AddNew
matab!qute = 1
matab!designation = Me.DESIGN
matab.Update
Next boucle
Me.QTE = 0
Me.DESIGN = ""
Me.Recalc
End Sub

évidemment il reste à y ajouter les traitements d'erreur