Créer un nbr d'enregistrement en fonction d'une qt
merlinc
Messages postés
4
Statut
Membre
-
merlinc Messages postés 4 Statut Membre -
merlinc Messages postés 4 Statut Membre -
Bonjour.
Je reçois du matériel dont je voudrais gérer la distribution auprès des membres de mon club.
En me basant sur les factures je peux facilement créer une table, une requête, un tableau croisé dynamique, avec le numéro de facture, la référence de chaque article, et la quantité de chaque article.
Mais j'aimerais qu'a partir de là access me génère automatiquement un nombre d'enregistrement par article correspondant à la quantité renseignée.
Ainsi je pourrais compléter les enregistrement avec le nom du destinataire de chaque article. (exemple réalisé sous excel)
SOS.
Je débute avec les macros avec l'assistant...
Merci d'avance
Je reçois du matériel dont je voudrais gérer la distribution auprès des membres de mon club.
En me basant sur les factures je peux facilement créer une table, une requête, un tableau croisé dynamique, avec le numéro de facture, la référence de chaque article, et la quantité de chaque article.
Mais j'aimerais qu'a partir de là access me génère automatiquement un nombre d'enregistrement par article correspondant à la quantité renseignée.
Ainsi je pourrais compléter les enregistrement avec le nom du destinataire de chaque article. (exemple réalisé sous excel)
SOS.
Je débute avec les macros avec l'assistant...
Merci d'avance
A voir également:
- Créer un nbr d'enregistrement en fonction d'une qt
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Fonction si et - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour, je pense que cela peut se faire, en VBA.
Sub creation() Dim rsin As DAO.Recordset, rsout As DAO.Recordset Dim i As Long Set rsin = CurrentDb.OpenRecordset("mer_in") Set rsout = CurrentDb.OpenRecordset("mer_out") Do While Not rsin.EOF For i = 1 To rsin!quantite rsout.AddNew rsout!facture = rsin!facture rsout!Reference = rsin!article rsout!quantite = 1 rsout.Update Next i rsin.MoveNext Loop ' Do While Not rsin.EOF End SubCa semble correspondre a ce que je cherche.
Je vais maintenant tenter d'adapter le code à mes tables.
Merci beaucoup :-)
Oui j'ai adapté le code à mes tables.
Maintenant je m'attaque à l'ajout des lignes ainsi générées dans une table qui ne ce fera pas écraser à chaque exécution de la macro.