OVH Cloud OVH Cloud

Parcourir enregistrements

15 réponses
Avatar
Philippe
Bonjour,

Dans un formulaire en mode continue comment parcourir les enregistements et
mettre une coche en "Vrai" sur chacun d'entre eux ?

Ou à l'inverse les enlever si ces coches sont valider ?

Merci d'avance.
Philippe

5 réponses

1 2
Avatar
Raymond [mvp]
Bonjour.

il est fortement déconseillé de placer les boutons dans un autre formulaire
pour des raisons pratiques mais ça ne change rien il faut changer le
recordset.
Set Rs = Me.sous-formulaire.Form.Recordset
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"John" a écrit dans le message de news:

| Bonjour,
|
| C'est parfait, mais comment mettre le code dans un formulaire principal
| alors qu'il agira sur un sous formulaire pour obtenir la même chose ?
| Merci
| --
| John.
|
Avatar
Philippe
Bonjour Raymond,

J'ai encore besoin de tes services.

Avec le code que tu m'as donné et qui fonctionne trés bien, j'aurais voulu
le perfectionné, en effet il faut lorsque celui-ci fonctionne qu'il appelle
la procédure Aprés MAJ de la même case à cocher.

Dans ton code il faut normalement mettre Call Valide_AfterUpdate
je ne vois pas ou.

si la case à cocher est à true le champ "A" doit être remplis par "Ok"
Sinon il doit être à ""

Merci.


c'est exactement ça.
Bonne soirée.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Philippe" a écrit dans le message de
news:
| Merci beaucoup, je n'avais pas compris, mais cette fois ça fonctionne, en
| fait pour faire l'inverse en cas d'erreur il suffit d'ajouter un deuxiéme
| boutons, avec l'autre ligne.
|
| Cordialement.
| Philippe.





Avatar
Raymond [mvp]
Bonjour.

je ne vois pas bien ce que tu veux faire avec l'événement afterupdate de la
case.
tu peux très inclure du code dans la procédure.
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
If Not Rs.EOF Then
Rs.MoveFirst
Do Until Rs.EOF
Rs.Edit
Rs!Macase = True
Rs.Update
''' ------------------------------------------------------
' ici inclure du code particulier ou
Macase_AfterUpdate ' pour exécuter la procédure afterupdate
Rs.MoveNext
Loop
End If
Set Rs = Nothing


--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Philippe" a écrit dans le message de
news:
| Bonjour Raymond,
|
| J'ai encore besoin de tes services.
|
| Avec le code que tu m'as donné et qui fonctionne trés bien, j'aurais voulu
| le perfectionné, en effet il faut lorsque celui-ci fonctionne qu'il
appelle
| la procédure Aprés MAJ de la même case à cocher.
|
| Dans ton code il faut normalement mettre Call Valide_AfterUpdate
| je ne vois pas ou.
|
| si la case à cocher est à true le champ "A" doit être remplis par "Ok"
| Sinon il doit être à ""
|
| Merci.
|
|
| > c'est exactement ça.
| > Bonne soirée.
| >
| > --
| > @+
| > Raymond Access MVP http://www.OfficeSystemAccess.com/
| > http://officesystem.access.over-blog.com/
| > http://officesystem.access.free.fr/wiki/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99
| >
| >
| > "Philippe" a écrit dans le message
de
| > news:
| > | Merci beaucoup, je n'avais pas compris, mais cette fois ça fonctionne,
en
| > | fait pour faire l'inverse en cas d'erreur il suffit d'ajouter un
deuxiéme
| > | boutons, avec l'autre ligne.
| > |
| > | Cordialement.
| > | Philippe.
| >
| >
| >
Avatar
Philippe
Merci,

J'avais trouvé entre temps, voici le code de aprés MAJ de la coche

Private Sub Valide_AfterUpdate()
If Me.VALIDE = True Then
CléSani = Forms!groupersanitaire!Compteur
Else
CléSani = ""
End If
End Sub

Mon formulaire principal à le champ compteur "NumAuto" mon sous formulaire
est un table mémoire, donc quand les coches sont à true le champ clésani est
= au champ compteur, une fois ma saisie terminée je clique sur un bouton qui
actionne une requête ajout et qui ferme mes formulaire.

Je pense qu'il y a plus simple, par exemple si les enregistrement étaient
déja dans leur table il suffirait de lié les champs fils et pére.

Dis moi si ma méthode est correct.
Merci d'avance.

Philippe.



Bonjour.

je ne vois pas bien ce que tu veux faire avec l'événement afterupdate de la
case.
tu peux très inclure du code dans la procédure.
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
If Not Rs.EOF Then
Rs.MoveFirst
Do Until Rs.EOF
Rs.Edit
Rs!Macase = True
Rs.Update
''' ------------------------------------------------------
' ici inclure du code particulier ou
Macase_AfterUpdate ' pour exécuter la procédure afterupdate
Rs.MoveNext
Loop
End If
Set Rs = Nothing


--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Philippe" a écrit dans le message de
news:
| Bonjour Raymond,
|
| J'ai encore besoin de tes services.
|
| Avec le code que tu m'as donné et qui fonctionne trés bien, j'aurais voulu
| le perfectionné, en effet il faut lorsque celui-ci fonctionne qu'il
appelle
| la procédure Aprés MAJ de la même case à cocher.
|
| Dans ton code il faut normalement mettre Call Valide_AfterUpdate
| je ne vois pas ou.
|
| si la case à cocher est à true le champ "A" doit être remplis par "Ok"
| Sinon il doit être à ""
|
| Merci.
|
|
| > c'est exactement ça.
| > Bonne soirée.
| >
| > --
| > @+
| > Raymond Access MVP http://www.OfficeSystemAccess.com/
| > http://officesystem.access.over-blog.com/
| > http://officesystem.access.free.fr/wiki/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99
| >
| >
| > "Philippe" a écrit dans le message
de
| > news:
| > | Merci beaucoup, je n'avais pas compris, mais cette fois ça fonctionne,
en
| > | fait pour faire l'inverse en cas d'erreur il suffit d'ajouter un
deuxiéme
| > | boutons, avec l'autre ligne.
| > |
| > | Cordialement.
| > | Philippe.
| >
| >
| >





Avatar
Raymond [mvp]
Il parait évident que lorsqu'on a un formulaire et un sous-formulaire, les
deux sources de ces formulaires sont reliées par les champs père/fils et
qu'aucune opération supplémentaire, comme une requête ajout, n'est
nécessaire. le principal, d'abord c'est de faire une application qui
fonctionne et l'optimisation viendra plus tard.
j'ai du mal à m'imaginer ton organisation dans son ensemble.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Philippe" a écrit dans le message de
news:
| Merci,
|
| J'avais trouvé entre temps, voici le code de aprés MAJ de la coche
|
| Private Sub Valide_AfterUpdate()
| If Me.VALIDE = True Then
| CléSani = Forms!groupersanitaire!Compteur
| Else
| CléSani = ""
| End If
| End Sub
|
| Mon formulaire principal à le champ compteur "NumAuto" mon sous formulaire
| est un table mémoire, donc quand les coches sont à true le champ clésani
est
| = au champ compteur, une fois ma saisie terminée je clique sur un bouton
qui
| actionne une requête ajout et qui ferme mes formulaire.
|
| Je pense qu'il y a plus simple, par exemple si les enregistrement étaient
| déja dans leur table il suffirait de lié les champs fils et pére.
|
| Dis moi si ma méthode est correct.
| Merci d'avance.
|
| Philippe.
1 2