Créer un nbr d'enregistrement en fonction d'une qt

Fermé

merlinc Messages postés 4 Date d'inscription vendredi 27 juillet 2018 Statut Membre Dernière intervention 27 juillet 2018 - 27 juil. 2018 à 14:41
merlinc Messages postés 4 Date d'inscription vendredi 27 juillet 2018 Statut Membre Dernière intervention 27 juillet 2018 - 27 juil. 2018 à 16:04

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

A voir également:

Créer un nbr d'enregistrement en fonction d'une qt
Créer un compte gmail - Guide
Créer un compte google - Guide
Créer un groupe whatsapp - Guide
Créer un compte instagram - Guide
Créer une liste déroulante excel - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22784 Date d'inscription lundi 9 juin 2008 Statut Non membre Dernière intervention 13 mai 2024 1 481
27 juil. 2018 à 14:56

bonjour, je pense que cela peut se faire, en VBA.

merlinc Messages postés 4 Date d'inscription vendredi 27 juillet 2018 Statut Membre Dernière intervention 27 juillet 2018
27 juil. 2018 à 15:01

Je pense même qu'il n'y a pas d'autre solution... et c'est là que j'ai besoin d'aide...

yg_be Messages postés 22784 Date d'inscription lundi 9 juin 2008 Statut Non membre Dernière intervention 13 mai 2024 1 481 > merlinc Messages postés 4 Date d'inscription vendredi 27 juillet 2018 Statut Membre Dernière intervention 27 juillet 2018
27 juil. 2018 à 15:32

voici un exemple:

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 Sub

merlinc Messages postés 4 Date d'inscription vendredi 27 juillet 2018 Statut Membre Dernière intervention 27 juillet 2018
27 juil. 2018 à 15:51

Je viens de copier la séquence et de faire des test avec des tables bidon mer_in et mer_out.
Ca semble correspondre a ce que je cherche.
Je vais maintenant tenter d'adapter le code à mes tables.
Merci beaucoup :-)

merci de l'info. ne torture pas tes tables, en principe c'est le code qui doit s'adapter à ta situation.

merlinc Messages postés 4 Date d'inscription vendredi 27 juillet 2018 Statut Membre Dernière intervention 27 juillet 2018
27 juil. 2018 à 16:04

CA MARCHE :-) étape 2 validée!
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.

Discussions similaires

créer une adresse gmail pour une autre personne

Discussions similaires

Newsletters