Discussion :

[eximOO]

Bonsoir

J'ai créé un formulaire de saisie dans lequel je rentre un enregistrement et je clique sur une macro qui me permet d'exécuter une "requête ajout" (L'enregistrement sert de filtre pour l'ouverture de la requête, ce qui me permet d'ajouter des données filtrées dans une table) : DoCmd.OpenQuery "Req_ajouter_enr", acViewNormal, acEdit
A la fermeture du formulaire, je supprime l'enregistrement, car je ne veux pas les conserver.

Je fais la manipulation environ 15 fois car j'ai 15 enregistrements à filtrer, mais je trouve ça fastidieux.

Aussi, je souhaiterai savoir s'il est possible de rentrer les 15 enregistrements à la suite dans mon formulaire de saisie et d'appuyer sur un bouton qui permettrai d'exécuter la macro pour chaque enregistrement contenu dans le formulaire.

Merci d'avance pour votre aide

[loufab]

Bonjour,
Tout est possible.

Parcourir les enregistrements d'une source d'un formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim rst as dao.recordset
 
set rst = me.recordsetclone
 
if not rst.eof then rst.movefirst
 
while not rst.eof
       .... traitement de l'enregistrement courant
      rst.movenext
wend
 
rst = nothing

Pour en savoir plus sur DAO voir le tuto sur le sujet.
A noter que recordsetclone est en lecture seule alors que recordset est ouvert en écriture.

Cordialement,