Bonjour.
si je comprend bien, tu veux inverser le sens de la case ou tout à Vrai ou
tout à Faux.
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
If Not Rs.EOF Then
Rs.MoveFirst
Do Until Rs.EOF
Rs.Edit
Rs!Macase = Not Rs!Macase ' pour inverser
Rs!Macase = True ' pour tout à Vrai
Rs!Macase = False ' pour tout à faux
Rs.Update
Rs.MoveNext
Loop
End If
Set Rs = Nothing
tu choisis ton option.
--
@+
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:
| 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
Bonjour.
si je comprend bien, tu veux inverser le sens de la case ou tout à Vrai ou
tout à Faux.
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
If Not Rs.EOF Then
Rs.MoveFirst
Do Until Rs.EOF
Rs.Edit
Rs!Macase = Not Rs!Macase ' pour inverser
Rs!Macase = True ' pour tout à Vrai
Rs!Macase = False ' pour tout à faux
Rs.Update
Rs.MoveNext
Loop
End If
Set Rs = Nothing
tu choisis ton option.
--
@+
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" <Philippe@discussions.microsoft.com> a écrit dans le message de
news: 84C09489-9117-41CC-B559-5B430F7FC949@microsoft.com...
| 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
Bonjour.
si je comprend bien, tu veux inverser le sens de la case ou tout à Vrai ou
tout à Faux.
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
If Not Rs.EOF Then
Rs.MoveFirst
Do Until Rs.EOF
Rs.Edit
Rs!Macase = Not Rs!Macase ' pour inverser
Rs!Macase = True ' pour tout à Vrai
Rs!Macase = False ' pour tout à faux
Rs.Update
Rs.MoveNext
Loop
End If
Set Rs = Nothing
tu choisis ton option.
--
@+
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:
| 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
Le plus simple serait dans l'événement click d'un bouton, mais tu es plus à
même de juger.
dans la fenêtre propriétés du bouton créé, onglet événement, ligne sur
click.
cliques sur le bouton en fin de ligne marqué trois points (...) ce qui
ouvrira l'éditeur VBA et tu places le code entre les deux lignes préparées:
Private Sub Commande0_Click()
End Sub
--
@+
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 Raymond,
|
| Ou je dois coller ce code ?
| Encore merci.
| Philippe.
|
Le plus simple serait dans l'événement click d'un bouton, mais tu es plus à
même de juger.
dans la fenêtre propriétés du bouton créé, onglet événement, ligne sur
click.
cliques sur le bouton en fin de ligne marqué trois points (...) ce qui
ouvrira l'éditeur VBA et tu places le code entre les deux lignes préparées:
Private Sub Commande0_Click()
End Sub
--
@+
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" <Philippe@discussions.microsoft.com> a écrit dans le message de
news: B79E499F-0E48-47DE-BCE2-8B821BE77CA3@microsoft.com...
| Merci Raymond,
|
| Ou je dois coller ce code ?
| Encore merci.
| Philippe.
|
Le plus simple serait dans l'événement click d'un bouton, mais tu es plus à
même de juger.
dans la fenêtre propriétés du bouton créé, onglet événement, ligne sur
click.
cliques sur le bouton en fin de ligne marqué trois points (...) ce qui
ouvrira l'éditeur VBA et tu places le code entre les deux lignes préparées:
Private Sub Commande0_Click()
End Sub
--
@+
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 Raymond,
|
| Ou je dois coller ce code ?
| Encore merci.
| Philippe.
|
affiche ici le code exact que tu as tapé.
--
@+
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:
| Raymond,
|
| Les enregistrements défilent mais les coches ne sont pas activées.
| Que ce passe t'il ?
|
| Merci.
|
affiche ici le code exact que tu as tapé.
--
@+
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" <Philippe@discussions.microsoft.com> a écrit dans le message de
news: BBF69A19-92DC-4590-A6CF-B43C2F4FC2B6@microsoft.com...
| Raymond,
|
| Les enregistrements défilent mais les coches ne sont pas activées.
| Que ce passe t'il ?
|
| Merci.
|
affiche ici le code exact que tu as tapé.
--
@+
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:
| Raymond,
|
| Les enregistrements défilent mais les coches ne sont pas activées.
| Que ce passe t'il ?
|
| Merci.
|
il faut que tu mettes seulement une seule des trois options que je t'ai
indiqué:
Rs!VALIDE = Not Rs!VALIDE ' pour inverser
Rs!VALIDE = True ' pour tout à Vrai
Rs!VALIDE = False ' pour tout à faux
selon ton désir.
1ere ligne pour inverser la valeur
2e ligne pour toutes les cases cochées
3e ligne pour toutes les cases décochées.
supprime 2 lignes sur les 3.
--
@+
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:
| Private Sub Commande2_Click()
| Dim Rs As DAO.Recordset
| Set Rs = Me.Recordset
| If Not Rs.EOF Then
| Rs.MoveFirst
| Do Until Rs.EOF
| Rs.Edit
| Rs!VALIDE = Not Rs!VALIDE ' pour inverser
| Rs!VALIDE = True ' pour tout à Vrai
| Rs!VALIDE = False ' pour tout à faux
| Rs.Update
| Rs.MoveNext
| Loop
| End If
| Set Rs = Nothing
|
|
| End Sub
|
|
|
|
| > affiche ici le code exact que tu as tapé.
| >
| > --
| > @+
| > 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:
| > | Raymond,
| > |
| > | Les enregistrements défilent mais les coches ne sont pas activées.
| > | Que ce passe t'il ?
| > |
| > | Merci.
| > |
| >
| >
| >
il faut que tu mettes seulement une seule des trois options que je t'ai
indiqué:
Rs!VALIDE = Not Rs!VALIDE ' pour inverser
Rs!VALIDE = True ' pour tout à Vrai
Rs!VALIDE = False ' pour tout à faux
selon ton désir.
1ere ligne pour inverser la valeur
2e ligne pour toutes les cases cochées
3e ligne pour toutes les cases décochées.
supprime 2 lignes sur les 3.
--
@+
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" <Philippe@discussions.microsoft.com> a écrit dans le message de
news: 0260C427-34D8-452C-8807-C0D4A51B7471@microsoft.com...
| Private Sub Commande2_Click()
| Dim Rs As DAO.Recordset
| Set Rs = Me.Recordset
| If Not Rs.EOF Then
| Rs.MoveFirst
| Do Until Rs.EOF
| Rs.Edit
| Rs!VALIDE = Not Rs!VALIDE ' pour inverser
| Rs!VALIDE = True ' pour tout à Vrai
| Rs!VALIDE = False ' pour tout à faux
| Rs.Update
| Rs.MoveNext
| Loop
| End If
| Set Rs = Nothing
|
|
| End Sub
|
|
|
|
| > affiche ici le code exact que tu as tapé.
| >
| > --
| > @+
| > 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" <Philippe@discussions.microsoft.com> a écrit dans le message
de
| > news: BBF69A19-92DC-4590-A6CF-B43C2F4FC2B6@microsoft.com...
| > | Raymond,
| > |
| > | Les enregistrements défilent mais les coches ne sont pas activées.
| > | Que ce passe t'il ?
| > |
| > | Merci.
| > |
| >
| >
| >
il faut que tu mettes seulement une seule des trois options que je t'ai
indiqué:
Rs!VALIDE = Not Rs!VALIDE ' pour inverser
Rs!VALIDE = True ' pour tout à Vrai
Rs!VALIDE = False ' pour tout à faux
selon ton désir.
1ere ligne pour inverser la valeur
2e ligne pour toutes les cases cochées
3e ligne pour toutes les cases décochées.
supprime 2 lignes sur les 3.
--
@+
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:
| Private Sub Commande2_Click()
| Dim Rs As DAO.Recordset
| Set Rs = Me.Recordset
| If Not Rs.EOF Then
| Rs.MoveFirst
| Do Until Rs.EOF
| Rs.Edit
| Rs!VALIDE = Not Rs!VALIDE ' pour inverser
| Rs!VALIDE = True ' pour tout à Vrai
| Rs!VALIDE = False ' pour tout à faux
| Rs.Update
| Rs.MoveNext
| Loop
| End If
| Set Rs = Nothing
|
|
| End Sub
|
|
|
|
| > affiche ici le code exact que tu as tapé.
| >
| > --
| > @+
| > 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:
| > | Raymond,
| > |
| > | Les enregistrements défilent mais les coches ne sont pas activées.
| > | Que ce passe t'il ?
| > |
| > | 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.
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" <Philippe@discussions.microsoft.com> a écrit dans le message de
news: 271EB194-8349-464B-94D4-2E240E26C7FE@microsoft.com...
| 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.
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.