Discussion :

[Eris13]

Bonjour,

Voici mon problème avec Access. J'ai un formulaire avec un bouton "fermer" grisé.
Dans ce formulaire, j'ai un sous formulaire avec des enregistrements. Chaque enregistrement se termine par une case à cocher.

Je voudrais que mon bouton fermer devienne actif si et seulement si la case à cocher de chaque enregistrement du sous formulaire a été cochée. Si une ne l'est pas, le bouton fermer du formulaire reste grisé.
C'est un peu compliqué pour moi ...
Merci de votre aide !!!

[yannick63]

Bonsoir,

Je peux peut être t'apporter quelques indications pour résoudre ton problème.

Ton sous formulaire doit normalement être au format tabulaire. Tu peux ajouter un champs vrai-faux à la table qui constitue la source de ton sous formulaire.

Ensuite,tu conditionnes l'activation de ton bouton fermer à la valeur de chaque case à cocher, donc à la valeur de ton champs vrai faux.

Pour ce faire, tu réalises un test sur ton bouton fermer.

Si toutes les cases à cocher sont activées, tu fermes le formulaire sinon tu affiches un message pour indiquer à l'utilisateur qu'il doit cocher les cases avant de pouvoir fermer le formulaire.

sur l'evenement surclic de ton formulaire, tu peux mettre ce bout de code.

Private Sub nom_du_bouton_Click()

Code :

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

1
2
3
4
5
6
If Forms![nom_du_form]![nom_du_sous_form]![nom_du_champs_vrai_faux].Value = -1 Then
DoCmd.Close
Else
MsgBox ("Vous devez cocher au préalable toutes les cases avant de pouvoir fermer le formulaire")
End If
End Sub

Normalement cela devrait marcher.

Bon courage

cordialement

[Eris13]

Merci beaucoup pour ton aide. Ta solution ne permet pas de gérer le grisement ou pas du bouton "fermer" mais c'était un élément de réponse. Je m'en suis sorti en calculant un indice après chaque appui sur une case oui/non : il ajoute au nombre total de ligne de mon sous formulaire la somme du champ oui/non (-1/0), donc quand toutes les cases de toutes les lignes étaient cochées, l'indice est égal à 0. Après, si indice <> 0 => case grisé, si =0 le bouton apparait, ouf !