Discussion :

[bricoreur]

Bonjour

j'aimerai :

- créer un bouton "Tous" afin de sélectionner tous les mails (case à cocher) APRES AVOIR ACTIVE UN OU DEUX FILTRES dans le formulaire fJoueurs
nb : il existe un bouton RAZ qui remet tous les mails à zéro (vide la case à cocher).

- j'aimerai avoir un message d'Alerte + case à cocher impossible (si l'adresse mail n'est pas renseignée ou mal renseignée ____@__.__)

ci-joint ma base simplifiée.

JOUEURS.rar

remarque : j'ai posté ce sujet hier mais je ne le retrouve pas. Je pense que j'ai mal enregistré.

[madefemere]

Bonjour,

Tu veux dire filtre sur le sous-formulaire sfjoueurs j'imagine ?

- Une première méthode serait de parcourir le Recordset de ton sous-formulaire et mettre à jour les cases à cocher correspondants lors du passage.
- Une deuxième serait de faire une requête UpDate en utilisant le critère de "filtre" courant du sous-formulaire dans la clause WHERE de la requête. => Si tu filtres en utilisant la propriété Filter.
- Si tu filtres ton sous-formulaire en modifiant sa source, il faut pouvoir "récupérer" l'expression de filtre et faire une requête Update comme indiqué ci-dessus.

Pour la vérification avec la première méthode, il faut vérifier la validité de la valeur de l'email avant de lancer la mise à jour et lancer le message idoine.
Avec la deuxième méthode, une vérification pas-à-pas des valeurs des email n'est pas possible avec un message "personnalisé".

Cordialement,

[bricoreur]

Merci pour votre réponse,

j'ai essayé de comprendre et d'écrire des codes sur les bases de vos conseils mais sans succès. Pouvez-vous m'orienter un peu plus car ce n'est pas encore accessible pour moi.

merci d'avance

[madefemere]

Bonsoir,

Qu'est-ce que tu entends par "Filtre" ici :

APRES AVOIR ACTIVE UN OU DEUX FILTRES dans le formulaire fJoueurs

parce que cela peut être important sur la solution proposée.

Et est-ce que ce qu eje dis est juste :

Tu veux dire filtre sur le sous-formulaire sfjoueurs j'imagine ?

Cordialement,

[bricoreur]

Bonjour,

je vais tenter d'être plus clair et précis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tu veux dire filtre sur le sous-formulaire sfjoueurs j'imagine ?

=> OUI désolé. Le sous-formulaire sfJoueurs est intégré dans un formulaire fJoueurs => VOIR BASE DE DONNES ENVOYEE #1

Le formulaire fJoueurs dispose de deux filtres SEXE et CATEGORIE qui agissent sur sfJoueurs.

Lorsque j'active un (ou 2 filtres), un résultat apparaît. A partir de ce résultat, j'aimerai à l'aide d'un bouton "TOUS" pouvoir sélectionner tous les mails en 1 clic des joueurs issus de mes filtres (résultat).


je tente cela, j'avance doucement mais je ne sais pas si je suis sur le bon chemin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub btTous_Click()
Dim nbligne As Integer
Dim i As Long
 
For i = 1 To nbligne
Me.PRENDRE1.Value = 1    ' => cocher tous les mails issus de ma recherche multicritères (SEXE et/ou CATEGORIE)
Next i
End Sub

QUESTION 2 : j'aimerai également que la case à cocher (pour sélectionner un mail) NE SOIT PAS POSSIBLE si une adresse mail valide n'est pas renseignée dans le champ MAIL

En espérant avoir été plus précis.

Cordialement

[madefemere]

Bonjour,

Pour la mise à jour de tes résultats filtrés, vu que tu utilises une chaine SQL pour le résultat du filtre, il suffirait de faire une requête mise à jour sur la valeur du champ Prendre1 dans la requête rJoueurs.
Le code ressemblerait à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub btTous_Click()
DoCmd.RunSQL "UPDATE rJoueurs SET rJoueurs.PRENDRE1 = Yes"
End Sub

Pour la question 2, il faut "décomposer" le problème et voir tous les tenants et aboutissants parce que :
- Qu'est ce qu'une adresse mail non valide ? (Si la règle est simple, une mise en forme conditionnelle serait suffisante). sinon il faudrait créer (ou utiliser une fonction de vérification d'une adresse mail)
- Comment ne pas permettre la sélection de la case à cocher ( la rendre invisible ou la bloquer ?). Qu'est-ce qui se passe quand on lance des procédures ou fonctions derrières mais la sélection ne se fait pas manuellement ?

Autant de questions quoi !

Bonne continuation

[bricoreur]

Désolé de vous répondre que maintenant mais j'étais parti plusieurs jours pour le travail.

Votre code fonctionne très bien et je vous en remercie sincèrement.

Merci pour votre aide

Cordialement