Comment faire plus court ou simple, je pense que c'est For....next ou autre
Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider?
Merci d'avance.
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
Eric
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu
faire, sur quel évènement doit être appelée la procédure, ..., que
représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre
Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider?
Merci d'avance.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
fujitsu
Bonjour Eric
Dans un Formulaire, en formulaires continus Cases à cocher (me.selection) Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner****** Private Sub Commande27_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = -1 DoCmd.GoToRecord , , acNext Next End Sub
'*****Tout Désélectionner****** Private Sub Commande28_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = 0 DoCmd.GoToRecord , , acNext Next End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement que seulement 12 sélection. Par contre, quand clic sur déselectionner tous les items se décochent Comment faire pour appeler la procédure, je pense que c'est For....Next ou autre Merci d'avance.
"Eric" a écrit dans le message de news:
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Eric
Dans un Formulaire, en formulaires continus
Cases à cocher (me.selection)
Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner******
Private Sub Commande27_Click()
Dim cpt As Integer
DoCmd.GoToRecord , , acFirst
For cpt = 1 To (Me.NuméroAutoCompteur)
Me.Selection = -1
DoCmd.GoToRecord , , acNext
Next
End Sub
'*****Tout Désélectionner******
Private Sub Commande28_Click()
Dim cpt As Integer
DoCmd.GoToRecord , , acFirst
For cpt = 1 To (Me.NuméroAutoCompteur)
Me.Selection = 0
DoCmd.GoToRecord , , acNext
Next
End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement
que seulement 12 sélection.
Par contre, quand clic sur déselectionner tous les items se décochent
Comment faire pour appeler la procédure, je pense que c'est For....Next ou
autre
Merci d'avance.
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
Oyx1pOQdHHA.4684@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu
faire, sur quel évènement doit être appelée la procédure, ..., que
représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou
autre
Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider?
Merci d'avance.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Dans un Formulaire, en formulaires continus Cases à cocher (me.selection) Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner****** Private Sub Commande27_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = -1 DoCmd.GoToRecord , , acNext Next End Sub
'*****Tout Désélectionner****** Private Sub Commande28_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = 0 DoCmd.GoToRecord , , acNext Next End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement que seulement 12 sélection. Par contre, quand clic sur déselectionner tous les items se décochent Comment faire pour appeler la procédure, je pense que c'est For....Next ou autre Merci d'avance.
"Eric" a écrit dans le message de news:
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
re,
Si Selection est un champ de la table/requête sous-jacente, tu peux faire:
Option Compare Database Option Explicit Dim strSQL As String
Private Sub Commande1_Click() 'Tout sélectionner strSQL = "update LaTable set Selection=true" CurrentDb.Execute strSQL Me.Refresh End Sub
Private Sub Commande2_Click() ' Tout déselectionner strSQL = "update LaTable set Selectionúlse" CurrentDb.Execute strSQL Me.Refresh End Sub
(adapter le nom de la table)
Bonjour Eric
Dans un Formulaire, en formulaires continus Cases à cocher (me.selection) Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner****** Private Sub Commande27_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = -1 DoCmd.GoToRecord , , acNext Next End Sub
'*****Tout Désélectionner****** Private Sub Commande28_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = 0 DoCmd.GoToRecord , , acNext Next End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement que seulement 12 sélection. Par contre, quand clic sur déselectionner tous les items se décochent Comment faire pour appeler la procédure, je pense que c'est For....Next ou autre Merci d'avance.
"Eric" a écrit dans le message de news:
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance. --
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Si Selection est un champ de la table/requête sous-jacente, tu peux faire:
Option Compare Database
Option Explicit
Dim strSQL As String
Private Sub Commande1_Click() 'Tout sélectionner
strSQL = "update LaTable set Selection=true"
CurrentDb.Execute strSQL
Me.Refresh
End Sub
Private Sub Commande2_Click() ' Tout déselectionner
strSQL = "update LaTable set Selectionúlse"
CurrentDb.Execute strSQL
Me.Refresh
End Sub
(adapter le nom de la table)
Bonjour Eric
Dans un Formulaire, en formulaires continus
Cases à cocher (me.selection)
Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner******
Private Sub Commande27_Click()
Dim cpt As Integer
DoCmd.GoToRecord , , acFirst
For cpt = 1 To (Me.NuméroAutoCompteur)
Me.Selection = -1
DoCmd.GoToRecord , , acNext
Next
End Sub
'*****Tout Désélectionner******
Private Sub Commande28_Click()
Dim cpt As Integer
DoCmd.GoToRecord , , acFirst
For cpt = 1 To (Me.NuméroAutoCompteur)
Me.Selection = 0
DoCmd.GoToRecord , , acNext
Next
End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement
que seulement 12 sélection.
Par contre, quand clic sur déselectionner tous les items se décochent
Comment faire pour appeler la procédure, je pense que c'est For....Next ou
autre
Merci d'avance.
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
Oyx1pOQdHHA.4684@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu
faire, sur quel évènement doit être appelée la procédure, ..., que
représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou
autre
Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider?
Merci d'avance.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Si Selection est un champ de la table/requête sous-jacente, tu peux faire:
Option Compare Database Option Explicit Dim strSQL As String
Private Sub Commande1_Click() 'Tout sélectionner strSQL = "update LaTable set Selection=true" CurrentDb.Execute strSQL Me.Refresh End Sub
Private Sub Commande2_Click() ' Tout déselectionner strSQL = "update LaTable set Selectionúlse" CurrentDb.Execute strSQL Me.Refresh End Sub
(adapter le nom de la table)
Bonjour Eric
Dans un Formulaire, en formulaires continus Cases à cocher (me.selection) Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner****** Private Sub Commande27_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = -1 DoCmd.GoToRecord , , acNext Next End Sub
'*****Tout Désélectionner****** Private Sub Commande28_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = 0 DoCmd.GoToRecord , , acNext Next End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement que seulement 12 sélection. Par contre, quand clic sur déselectionner tous les items se décochent Comment faire pour appeler la procédure, je pense que c'est For....Next ou autre Merci d'avance.
"Eric" a écrit dans le message de news:
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance. --
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
fujitsu
Merci à Eric Bonne journée
"Eric" a écrit dans le message de news: %
re,
Si Selection est un champ de la table/requête sous-jacente, tu peux faire:
Option Compare Database Option Explicit Dim strSQL As String
Private Sub Commande1_Click() 'Tout sélectionner strSQL = "update LaTable set Selection=true" CurrentDb.Execute strSQL Me.Refresh End Sub
Private Sub Commande2_Click() ' Tout déselectionner strSQL = "update LaTable set Selectionúlse" CurrentDb.Execute strSQL Me.Refresh End Sub
(adapter le nom de la table)
Bonjour Eric
Dans un Formulaire, en formulaires continus Cases à cocher (me.selection) Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner****** Private Sub Commande27_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = -1 DoCmd.GoToRecord , , acNext Next End Sub
'*****Tout Désélectionner****** Private Sub Commande28_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = 0 DoCmd.GoToRecord , , acNext Next End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement que seulement 12 sélection. Par contre, quand clic sur déselectionner tous les items se décochent Comment faire pour appeler la procédure, je pense que c'est For....Next ou autre Merci d'avance.
"Eric" a écrit dans le message de news:
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance. --
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci à Eric
Bonne journée
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
%231JycxQdHHA.4916@TK2MSFTNGP06.phx.gbl...
re,
Si Selection est un champ de la table/requête sous-jacente, tu peux faire:
Option Compare Database
Option Explicit
Dim strSQL As String
Private Sub Commande1_Click() 'Tout sélectionner
strSQL = "update LaTable set Selection=true"
CurrentDb.Execute strSQL
Me.Refresh
End Sub
Private Sub Commande2_Click() ' Tout déselectionner
strSQL = "update LaTable set Selectionúlse"
CurrentDb.Execute strSQL
Me.Refresh
End Sub
(adapter le nom de la table)
Bonjour Eric
Dans un Formulaire, en formulaires continus
Cases à cocher (me.selection)
Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner******
Private Sub Commande27_Click()
Dim cpt As Integer
DoCmd.GoToRecord , , acFirst
For cpt = 1 To (Me.NuméroAutoCompteur)
Me.Selection = -1
DoCmd.GoToRecord , , acNext
Next
End Sub
'*****Tout Désélectionner******
Private Sub Commande28_Click()
Dim cpt As Integer
DoCmd.GoToRecord , , acFirst
For cpt = 1 To (Me.NuméroAutoCompteur)
Me.Selection = 0
DoCmd.GoToRecord , , acNext
Next
End Sub
Quand clic sur selectionner tous les items ne se cochent pas
automatiquement que seulement 12 sélection.
Par contre, quand clic sur déselectionner tous les items se décochent
Comment faire pour appeler la procédure, je pense que c'est For....Next
ou autre
Merci d'avance.
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
Oyx1pOQdHHA.4684@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu
faire, sur quel évènement doit être appelée la procédure, ..., que
représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou
autre
Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider?
Merci d'avance.
--
A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Si Selection est un champ de la table/requête sous-jacente, tu peux faire:
Option Compare Database Option Explicit Dim strSQL As String
Private Sub Commande1_Click() 'Tout sélectionner strSQL = "update LaTable set Selection=true" CurrentDb.Execute strSQL Me.Refresh End Sub
Private Sub Commande2_Click() ' Tout déselectionner strSQL = "update LaTable set Selectionúlse" CurrentDb.Execute strSQL Me.Refresh End Sub
(adapter le nom de la table)
Bonjour Eric
Dans un Formulaire, en formulaires continus Cases à cocher (me.selection) Deux boutons : "Tout sélectionner" et "Tout Désélectionner"
J'essai "For...Next"
'******Tout sélectionner****** Private Sub Commande27_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = -1 DoCmd.GoToRecord , , acNext Next End Sub
'*****Tout Désélectionner****** Private Sub Commande28_Click() Dim cpt As Integer DoCmd.GoToRecord , , acFirst For cpt = 1 To (Me.NuméroAutoCompteur) Me.Selection = 0 DoCmd.GoToRecord , , acNext Next End Sub
Quand clic sur selectionner tous les items ne se cochent pas automatiquement que seulement 12 sélection. Par contre, quand clic sur déselectionner tous les items se décochent Comment faire pour appeler la procédure, je pense que c'est For....Next ou autre Merci d'avance.
"Eric" a écrit dans le message de news:
Bonjour,
Je ne comprends pas ce que tu veux faire. Plus précisément, que veux-tu faire, sur quel évènement doit être appelée la procédure, ..., que représente Selection, un champ de la table sous-jacente du formulaire ?
Comment faire plus court ou simple, je pense que c'est For....next ou autre Étant débutant en Vba, je n'ai pas de solution: Pouvais vous m'aider? Merci d'avance. --
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr