Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

modifications de données

2 réponses
Avatar
Péric
Bonjour à tous,
j'ai un formulaire indépendant contenant deux sous formulaires, le
premier (sfrm 1)est filtré au fur et à mesure de choix dans des listes
déroulantes, l'affichage se fait en feuille de données Les champs sont
Nom, Prénom, Classe, Division et "A imprimer".
A la fin de ce "filtrage" je voudrais que pour les enregistrements
restants affichés sur mon sfrm1 un bouton (placé sur mon formulaire
indépendant) me permette de passer à vrai le champ "à imprimer" pour
tout ceux-ci . Comment puis-je procéder? Merci.

2 réponses

Avatar
Eric
Bonjour,

Essaies sur le bouton :

Private Sub Commande0_Click()
' Charger la référence Microssoft DAO 3.x Object Library
Dim rst As DAO.Recordset
Set rst = Me.sfrm1.Form.Recordset
While Not rst.EOF
rst.Edit
rst("A imprimer") = True
rst.Update
rst.MoveNext
Wend
Set rst = Nothing
End Sub


Bonjour à tous,
j'ai un formulaire indépendant contenant deux sous formulaires, le
premier (sfrm 1)est filtré au fur et à mesure de choix dans des listes
déroulantes, l'affichage se fait en feuille de données Les champs sont
Nom, Prénom, Classe, Division et "A imprimer".
A la fin de ce "filtrage" je voudrais que pour les enregistrements
restants affichés sur mon sfrm1 un bouton (placé sur mon formulaire
indépendant) me permette de passer à vrai le champ "à imprimer" pour
tout ceux-ci . Comment puis-je procéder? Merci.


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Péric
Bonjour,

Essaies sur le bouton :

Private Sub Commande0_Click()
' Charger la référence Microssoft DAO 3.x Object Library
Dim rst As DAO.Recordset
Set rst = Me.sfrm1.Form.Recordset
While Not rst.EOF
rst.Edit
rst("A imprimer") = True
rst.Update
rst.MoveNext
Wend
Set rst = Nothing
End Sub


Bonjour à tous,
j'ai un formulaire indépendant contenant deux sous formulaires, le
premier (sfrm 1)est filtré au fur et à mesure de choix dans des listes
déroulantes, l'affichage se fait en feuille de données Les champs sont
Nom, Prénom, Classe, Division et "A imprimer".
A la fin de ce "filtrage" je voudrais que pour les enregistrements
restants affichés sur mon sfrm1 un bouton (placé sur mon formulaire
indépendant) me permette de passer à vrai le champ "à imprimer" pour
tout ceux-ci . Comment puis-je procéder? Merci.


Super, ça marche, merci beaucoup, Eric