Balayage d'enregistrements d'un sous formulaire...
1 réponse
Rey
Bonjour à tous,
Comment balayer l'ensemble des enregistrements d'un sous-formulaire ouvert
en vue de lancer l'impression d'un état sur chaque ligne de ce
sous-formulaire ?
(Utilisation de for each présentie mais........)
Merci et bonne journée...
Rey.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
tu peux passer par un recordset et le balayer. Dim Rs As DAO.Recordset Set Rs = Forms!formulaire1!SF1.Form.Recordset If Rs.BOF Then GoTo Sortie Rs.MoveFirst Do Until Rs.EOF ' ici le traitement Rs.MoveNext Loop Sortie: Set Rs = Nothing
Set Rs = Forms!formulaire1!SF1.Form.Recordset peut être remplacé par: Set Rs = Me!SF1.Form.Recordset
SF1 étant le sous-formulaire -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rey" a écrit dans le message de news: 427f6dd8$0$1248$
Bonjour à tous, Comment balayer l'ensemble des enregistrements d'un sous-formulaire ouvert en vue de lancer l'impression d'un état sur chaque ligne de ce sous-formulaire ? (Utilisation de for each présentie mais........) Merci et bonne journée... Rey.
Bonjour.
tu peux passer par un recordset et le balayer.
Dim Rs As DAO.Recordset
Set Rs = Forms!formulaire1!SF1.Form.Recordset
If Rs.BOF Then GoTo Sortie
Rs.MoveFirst
Do Until Rs.EOF
' ici le traitement
Rs.MoveNext
Loop
Sortie:
Set Rs = Nothing
Set Rs = Forms!formulaire1!SF1.Form.Recordset
peut être remplacé par:
Set Rs = Me!SF1.Form.Recordset
SF1 étant le sous-formulaire
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rey" <rey_lg@libertysurf.fr> a écrit dans le message de news:
427f6dd8$0$1248$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Comment balayer l'ensemble des enregistrements d'un sous-formulaire ouvert
en vue de lancer l'impression d'un état sur chaque ligne de ce
sous-formulaire ?
(Utilisation de for each présentie mais........)
Merci et bonne journée...
Rey.
tu peux passer par un recordset et le balayer. Dim Rs As DAO.Recordset Set Rs = Forms!formulaire1!SF1.Form.Recordset If Rs.BOF Then GoTo Sortie Rs.MoveFirst Do Until Rs.EOF ' ici le traitement Rs.MoveNext Loop Sortie: Set Rs = Nothing
Set Rs = Forms!formulaire1!SF1.Form.Recordset peut être remplacé par: Set Rs = Me!SF1.Form.Recordset
SF1 étant le sous-formulaire -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rey" a écrit dans le message de news: 427f6dd8$0$1248$
Bonjour à tous, Comment balayer l'ensemble des enregistrements d'un sous-formulaire ouvert en vue de lancer l'impression d'un état sur chaque ligne de ce sous-formulaire ? (Utilisation de for each présentie mais........) Merci et bonne journée... Rey.
