OVH Cloud OVH Cloud

RecordSetClone et Impression

4 réponses
Avatar
Gripoil
Bonjour =E0 tous et bonne semaine,

Soit un formulaire principal avec son sous-formulaire=20
(sfrm R=E9sultat) qui affiche x enregistrements en=20
pr=E9sentation continue (donc sous forme de liste).

Soit un =E9tat qui pr=E9sente des infos plus d=E9taill=E9s.

Je souhaiterais cr=E9er un bouton Imprimer sur le formulaire=20
principal qui lance l'impression de cet =E9tat pour chacun=20
des enregistrements (impression en boucle en fonction du=20
nombre d'enregistrements du SF).

voic le bout de mon code (l'id=E9e essentiellement) :

Dim rcs As DAO.Recordset

Set rcs =3D Forms![sfrm R=E9sultat].RecordsetClone
rcs.MoveFirst
While Not rcs.EOF

La commande print sp=E9cifique
DoCmd.OpenReport "Infos", acNormal, , "[tbl Sch=E9mas].
[IDSchema] =3D " & Me.IDSchema

rcs.MoveNext
Wend

rcs.Close
Set rcs =3D Nothing

Premi=E8re erreur d=E9tect=E9e :=20

il faut visiblement que mon SF soit ouvert sinon Access me=20
renvoie le message d'erreur :

Erreur 2450 : impossible de trouver le formulaire 'sfrm=20
R=E9sultat' auquel il est fait r=E9f=E9rence.

Comment faire ?

Merci pour votre aide.

4 réponses

Avatar
3stone
Salut,

Soit un formulaire principal avec son sous-formulaire
(sfrm Résultat) qui affiche x enregistrements en
présentation continue (donc sous forme de liste).

Soit un état qui présente des infos plus détaillés.

Je souhaiterais créer un bouton Imprimer sur le formulaire
principal qui lance l'impression de cet état pour chacun
des enregistrements (impression en boucle en fonction du
nombre d'enregistrements du SF).

voic le bout de mon code (l'idée essentiellement) :

Dim rcs As DAO.Recordset

Set rcs = Forms![sfrm Résultat].RecordsetClone
-----------------------


Essaies plutôt:

Set rcs = Forms![sfrm Résultat].Form.RecordsetClone


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
Pierre CFI
bonjour
un jour à marquer en rouge, 3stone au poste à 10 h 30 :O)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
Avatar
Gripoil
Essaies plutôt:

Set rcs = Forms![sfrm Résultat].Form.RecordsetClone



La référence est bonne mais il est nécessaire que le SFM
soit ouvert.

Comment éviter çà ?

Avatar
3stone
Salut,

"Gripoil" a écrit dans le message news: 0b2401c3916b$5031e040$
Essaies plutôt:

Set rcs = Forms![sfrm Résultat].Form.RecordsetClone



La référence est bonne mais il est nécessaire que le SFM
soit ouvert.

Comment éviter çà ?


Impossible à éviter...
Tu ne peut pas t'adresser à un formulaire fermé... sauf pour l'ouvrir ;-)


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------