Discussion :

[paidge]

Bonjour,

Voilà un problème sûrement tout bête à résoudre mais auquel je ne trouve malheureusement pas de solution :

Le formulaire en question affiche une liste de personnes auxquelles un mail automatique sera envoyé. Chaque personne a, en face de son nom, une checkbox pour être sélectionnée. Pour plus de praticité, j'ai créé une checkbox pour sélectionner toute la liste. Sur l'évènement après MAJ, j'ai donc placé ce code :

Code :

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

1
2
3
4
5
6
7
 
If Ma_checkbox = Yes Then
    CurrentDb.Execute ("UPDATE [T_envoi_mail] SET [T_envoi_mail].[Envoi_mail] = Yes;")
Else
    CurrentDb.Execute ("UPDATE [T_envoi_mail] SET [T_envoi_mail].[Envoi_mail] = No;")
End If
DoCmd.Requery

Les requêtes fonctionnent bien mais le rafraîchissement du formulaire a un train de retard. Je m'explique : Une fois la case cochée, les valeurs du champ oui/non sont bien modifiés dans ma table mais le formulaire m'affiche leur valeur avant l'éxécution de la requête malgré le Requery....

Merci d'avance à ceux qui voudront bien apporter leur lumière.

[paidge]

Bon bah il m'aura fallu plus d'une heure de tests et de recherches pour y arriver Voilà la solution :

Finalement je stocke dans une variable la valeur de ma case à cocher principale et j'exécute ma requête en rapport avec cette variable :

Code :

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

1
2
3
4
5
6
7
 
Private Sub SelectAll_Click()
check = Me.SelectAll.Value
CurrentDb.Execute ("UPDATE [T_envoi_mail] SET [T_envoi_mail].[Envoi_mail] = '" & check & "';")
Me.Requery
 
End Sub