Bonjour,
je suis sous access 2003, mais pour le moment mes fichier sont au format 2000
j'ai un formulaire principal dans lequel j'ai un sous formulaire qui me donne le resultat d'une requette en fonction d'un des champs de mon formulaire principal.
je voudrais que ces lignes issues du sous formulaire, soient copier dans un autre sous formulaire dependant aussi du formulaire principal.
mon probleme etant que ces deux sous formulaires sont en continu mode feuille de donnée.
j'ai bien reussi a le faire, mais cela ne me donne que le premier enregistrement du sous formulaire d'origine, la suite pas moyen de l'avoir!
avec une image cela sera plus parlant
en sachant que le sous formulaire de resultat de la requete a terme sera masqué
je suis parti dans la voix du recordset, si quelqu'un pouvais me dire si je ne me plante pas totalement, ou m'aider il me sort un probleme de "type"
Le recordset me dit que l'espace n'est pas cree ou la colection n'existe pas...
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
18 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'Declaration de variables: MaBD comme base de données 'MaTable comme recordset de type DAO Dim MoFO As Form, MoFORM As DAO.Recordset 'activer MoFo corespondant a un espace de travail nouveau et a un nouvelle base de donnée Set MoFO = DBEngine.Workspaces(1).OpenDatabase(1) 'activer MoFORM issue de MoFO, recordset du sousformulaire "SF_documents a crée" ouvert en objet Dynamique Set MoFORM = MoFO.OpenRecordset("SF_documents a crée", dbOpenDynaset) 'aller au premier enregistrement de MaTable MoFORM.MoveFirst 'BOUCLE tant que n'as pas accéder au dernier enregistrement de MaTable Do Until MoFORM.EOF DoCmd.RunMacro "M_Documents a cree" Loop MoFORM.Close '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
par avance merci du coup de main que vous pourrez me donner!
Partager